---

Hallo zusammen!

ich hab ein makro erstellt dass ein part öffnet und anschließend die workbench wechselt. das problem ist nun wenn diese workbench vorher schon aktiv war wird durch das workbench wechseln noch ein neues part erzeugt (einfach den code unten 2x ausführen). wie kann man verhindern dass noch ein part erzeugt wird? ist mein workbench wechsel falsch? oder wie kann man die aktuelle workbench abfragen?

Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Add("Part")

CATIA.StartWorkbench "PrtCfg"

'partDocument1.Close

End Sub

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

---

Hallo Baldi,

probiere mal so.

Sub CATMain()

Dim documents1 As Documents
Set documents1 = catia.Documents

Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Add("Part")

If catia.GetWorkbenchId <> "PrtCfg" Then
    catia.StartWorkbench "PrtCfg"
End If

'partDocument1.Close

End Sub

Ciao
Filippo

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