|
Sub
CATMain()
MsgBox CATIA.ActiveDocument.Name
' Name des aktives
Dokument
MsgBox CATIA.Documents.count
' Anzahl der Dokumente
MsgBox CATIA.Documents.item(1).Name
' Name des ersten Dokuments
End Sub |
Schließen von
Dokumenten
|
Sub
CATMain()
' schließt das erste Dokument
set Dokument = CATIA.Documents.Item(1)
Dokument.close
End Sub |
Fenster besitzen ebenfalls die
unter Dokument gezeigten Methoden und Eigenschaften. Ersetze
hier Document/s durch Window/s.
Zusätzlich gibt es hier aber noch:
Fenster Minimieren und Maximieren:
|
Sub
CATMain()
CATIA.Windows.item(1).WindowState
= catWindowStateMinimized // Fenster 1
minimieren
CATIA.Windows.item(2).WindowState
= catWindowStateMaximized // Fenster 2
maximieren
CATIA.Windows.item(3).WindowState
= catWindowStateNormal // Fenster 2
wiederherstellen
End Sub |
CATIA.Windows.item(i).WindowState = catWindowStateMinimized