Tech-ecke CATScript

Tech-Ecke / CATScript/VBS Inhalt / Drawings (Zeichnungen)

Drawings (Zeichnungen)

Seiteninhalt:
	Dokumenten-Eigenschaften von Drawings
	Prüfen auf Detail-Sheet
	Blattgröße ermitteln
	Blattgröße ändern

Dokumenten-Eigenschaften von Drawings auslesen

Sub CATMain()

set Dok = CATIA.ActiveDocument

MsgBox Dok.Name ' Dateiname + Endung
MsgBox Dok.FullName ' Dateiname + Pfad

End Sub

Prüfen auf Detail-Sheet

Prüfen ob das aktuelle Blatt ein Detail-Sheet ist über "IsDetail".

Sub CATMain()

if CATIA.ActiveDocument.Sheets.ActiveSheet.IsDetail then
MsgBox "Current sheet is a Detail Sheet!"
end if

End Sub

Blattgröße ermitteln

Blattgröße in mm vom aktuellen Blatt ermitteln.

Sub CATMain()

set ActSheet = CATIA.ActiveDocument.Sheets.ActiveSheet
Hoehe = ActSheet.GetPaperHeight
Breite = ActSheet.GetPaperWidth

s = "?"

if Hoehe = 210 then s = "A4"
if Hoehe = 297 then s = "A3"
if Hoehe = 420 then s = "A2"
if Hoehe = 594 then s = "A1"
if Hoehe = 841 then s = "A0"

MsgBox Hoehe &"x" &Breite &" mm - das entspricht einem " &s &"-Format"

End Sub

Blattgröße ändern

Sub CATMain()

set ActSheet = CATIA.ActiveDocument.Sheets.ActiveSheet
ActSheet.PaperSize = catPaperUser

' auf A3-Format
ActSheet.SetPaperHeight 297
ActSheet.SetPaperWidth 420

End Sub