Tech-ecke CATScript

Tech-Ecke / CATScript/VBS Inhalt / Publications

Publications

Seiteninhalt:
	Alle Publications auflisten
	Alle Publicationen im aktivem Dokument löschen

Alle Publications auflisten:

Sub CATMain()

set Dok = CATIA.ActiveDocument.Product

for n = 1 to Dok.Publications.Count
MsgBox (Dok.Publications.Item(n).Name)
next

End Sub

Alle Publicationen im aktivem Dokument löschen:

Sub CATMain()

set Dok = CATIA.ActiveDocument.Product

for n = 1 to Dok.Publications.count
PubName = Dok.Publications.Item(n).Name ' Name der Publication abfragen
Dok.Publications.Remove PubName ' Publication über den Name löschen
next

End Sub