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
 

"Die Option Drucken funktioniert erst ab Netscape V4.0 bzw. I-Explorer 5.0 !"

[letzte Aktualisierung 03.11.2009]