---

Hallo Leute

Habe schon im Forum gesucht und auch gegoogelt bin aber noch zu keiner Lösung gekommen.

Szenario:
Mein Makro macht folgendes: Es fügt mit "NEU AUS" ein Startmodell in eine Baugruppe ein und zählt dabei die Teilenummer um 1 hoch und vergibt einen Exemplarnamen.
Also, Die Baugruppe ist geöffnet. Nach Klick auf das Makro öffnet sich mein Startmodell wird Kopiert, schließt sich wieder und wird ins Produkt eingefügt.

Mich stört das "Flackern" (Modell öffnen,kopieren,schließen) Kann ich diese Schritte irgendwie "unsichtbar" machen so das der USER die ganze Prozedur gar nicht mitbekommt?

Hoffe jemand kann mir helfen.

Gruß
Fugmann

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Fugmann,

hast Du's mal mit

Code:

---

Catia.RefreshDisplay=false
.
.
'do something
.
.
Catia.RefreshDisplay=true

---

probiert?

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Joe

Bringt leider nichts, "flackert" immernoch.

Ist ein catvba und mit F8 auch zu sehen was er macht.

Hier mal der Codeschnipsel

''''' Startmodell laden und kopieren

Dim Startmodell As PartDocument

CATIA.RefreshDisplay = False

Set Startmodell = CATIA.Documents.NewFrom("
\V5_STARTMOD\0000-00-00_000-03__---_STARTMODELL______________________________--____.CATPart")

Startmodell.Activate

CATIA.ActiveDocument.Product.PartNumber = neuerpartname
Set partselection = CATIA.ActiveDocument.Selection
    partselection.Clear
    partselection.Add Startmodell.Part
    partselection.Copy

'######################################################################################################################
' Startmodell in Zielprodukt einfügen

Start.Activate
       
Set ProductSelection = CATIA.ActiveDocument.Selection
    ProductSelection.Clear
    ProductSelection.Add MyProduct
    ProductSelection.Paste
 
'######################################################################################################################
' Startmodell schließen
partselection.Activate

Startmodell.Close

CATIA.RefreshDisplay = True

??????????

Gruß
Fugmann

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Fugmann,

schau mal, ob's so besser ist.
Ich hab ein paar 'Activates' rausgeworfen.

[CODE]
Sub catmain()
  Dim Startmodell As PartDocument
  Dim neuerpartname As String
  Dim oProdDoc As ProductDocument
 
  Set oProdDoc = CATIA.ActiveDocument    'produkt aktiv bei start
 
  Set Startmodell = CATIA.Documents.NewFrom("
\V5_STARTMOD\0000-00-00_000-03__---_STARTMODELL______________________________--____.CATPart")
  neuerpartname = "TestPartName4"        'neuer part name muss stets anders lauten, sonst knallt's

  Startmodell.Product.PartNumber = neuerpartname

  '--------------------------------------------------------------------------------------------------
  Set partselection = Startmodell.Selection
  partselection.Clear
  partselection.Add Startmodell.Part
  partselection.Copy

  '######################################################################################################################
  ' Startmodell in Zielprodukt einfügen
  Set ProductSelection = oProdDoc.Selection
  ProductSelection.Clear
  ProductSelection.Add oProdDoc.Product
  ProductSelection.Paste

  '######################################################################################################################
  ' Startmodell schließen
  Startmodell.Close
 
End Sub
/CODE]

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Joe

So gefällt es mir schon besser.

Der Hinweis
###############
neuerpartname = "TestPartName4"        'neuer part name muss stets anders lauten, sonst knallt's
##############

war mir bekannt, jedoch baue ich den Namen an einer ganz anderen Stelle im Code zusammen. Dabei darf der Part- und Exemplarname NICHT doppelt vorkommen.

1000Dank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP