Hallo,
das Blattformat ist im Object PageSetup als Enum "catpapersize" beschrieben. Siehe auch Online-Doku, Automatisation Docu. Homepage zur genauen Beschreibung. Eine Möglichkeit, diese Parameter mit einem Makro aufzuzeichnen ist z.B. während der Makro-Aufzeichnung den "Schnelldruck"-Icon zu betätigen.
Hier ein Beispielmakro:
-----------------------------------------------------------------
Sub CATMain()
CATIA.DisplayFileAlerts = False
Set DrwDoc= CATIA.ActiveDocument
Set DrwSheets = DrwDoc.Sheets
Set CurrentSheet = DrwSheets.ActiveSheet
BlattFormat = CurrentSheet.PaperSize
Select Case BlattFormat
Case 2: Format = "A0"
Case 3: Format = "A1"
Case 4: Format = "A2"
Case 5: Format = "A3"
Case 6: Format = "A4"
Case 7: Format = "A ANSI"
Case 8: Format = "B ANSI"
Case 9: Format = "C ANSI"
Case 10: Format = "D ANSI"
Case 11: Format = "E ANSI"
Case 12: Format = "F ANSI"
End Select
MsgBox ("Format = " & Format)
End Sub
------------------
a.m.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP