Hallo,
versuchs mal damit...
Dim DRW as DrawingDocument
Dim DRWShts as DrawingSheets
Dim Anzahl as Integer
Set DRW = CATIA.ActiveDocument
Set DRWShts = DRW.Sheets
Anzahl = DRWShts.Count
------------------
MFG
Rick Schulz
Nettiquette (CAD.de)
Konfuzius sprach: "Wer sich das Alte noch einmal vor Augen führt, um das Neue zu verstehen, der kann anderen ein Lehrer sein."
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP