Hallo,
ich bin gerade dabei ein CATScript zu schreiben, welches ein CATIA V4 model öffnen, auf *DRAFT umschalten und diesen in eine Datei plotten soll.
Das Öffnen der Datei, sowie das Plotten der View stellt kein Problem dar, jedoch für das Umschalten auf *DRAFT finde ich kein passendes Objekt.
Das Script sieht z.Zt. so aus:
Code:
Language="VBSCRIPT"
Sub CATMain()' ----- Model öffnen -----
' Set ADoc = CATIA.Documents.Open("Y:\irgendein.model")
Set CADWindow = CATIA.ActiveWindow
Dim CADDoc As Document
Set CADDoc = CATIA.ActiveDocument
Dim ViewerToWorkIn As Viewer
Set ViewerToWorkIn = CADWindow.ActiveViewer
Dim thePrinter As Printer
Set thePrinter = CATIA.Printers.Item("HPGL-Datei auf B:\")
CATIA.ActivePrinter = thePrinter
ViewerToWorkIn.Reframe ' Einpassen in Fenster
MsgBox ViewerToWorkIn.Name
' ---- Die Idee mit den Viewern will nicht so richtig ----
Dim Viewer2 As Viewer2D
Set Viewer2 = CADWindow.Viewers.Item(1)
Set PageSetUp = CADWindow.PageSetup
PageSetUp.PaperSize = catPaperUser
PageSetUp.PaperWidth = 100000
PageSetUp.PaperHeight = 100000
PageSetup.Rotation = catImageRotation0
PageSetUp.Orientation = 1
PageSetUp.LeftMargin = 1
PageSetUp.RightMargin = 1
PageSetUp.TopMargin = 1
PageSetUp.BottomMargin = 1
PageSetUp.BottomMargin = 1
' PageSetUp.FitToSheetFormat = False ' only when use Sheets
PageSetUp.MaximumSize = True
PageSetUp.Left = 2
PageSetUp.Bottom = 2
PageSetUp.Zoom = 100
pageSetup.Scaling1To1 = True
pageSetup.Color = catTrueMonochrome
CADWindow.PrintToFile("B:\test1.hpg")
MsgBox "Plotten fertig"
End Sub
Besser währe es hier Sheets zu verwenden, aber das CATIA.ActiveDocument unterstützt hier keine Sheets.
Hat jemand von euch eine Idee ?
Gruß, Klaus
------------------
mfG
Klaus
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP