---

Hallo Zusammen,

wie kann ich Elemente mit Makro veröffentlichen?
Ich versuchte mit der Makroaufzeichnung zu veröffentlichen aber irgendwie funktioniert nicht.

Kann mir jemand helfen?

------------------
Gruss BADU

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

---

veroeff.txt

Guten Morgen BADU,
liegt sicher nicht an der Aufzeichnung der Veröffentlichung sondern an diener Auswahl vorher, das der Recorder nix aufzeichnet. Hab mal ne eindeutige Suche vorangestellt. (Du wirst ja sicher das zu veröffentlichende Element schon vorher selected haben)

MfG Ronny

Attribute VB_Name = "Modul10"
Sub CATMain()
Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = productDocument1.Selection
selection1.Search "(Name='Achsensystem.2' & ((CATStFreeStyleSearch.AxisSystem + CATPrtSearch.AxisSystem) + CATGmoSearch.AxisSystem)),in"
selection1.Search "Name='Achsensystem.2',from"
Dim product1 As Product
Set product1 = productDocument1.Product
Dim reference1 As Reference
Set reference1 = product1.CreateReferenceFromName("Product1/Gussunterteil.1/!Achsensystem.2")
Dim publications1 As Publications
Set publications1 = product1.Publications
Dim publication1 As Publication
Set publication1 = publications1.Add("Achsensystem.2")
publications1.SetDirect "Achsensystem.2", reference1
End Sub

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

---

Bild1.jpg

Hallo ich bins nochmal

ich habe den Fehler festgestellt.
Die Veröffentlichung wird erst angezeigt wenn ich einmal auf das Quellelement (xy-Ebene) doppelklicke und einfach das Fenster-Ebenendefinition ohne Änderung mit OK/Abbrechen schliesse.

Warum tut er mir das an? 

------------------
Gruss BADU

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