---

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

---

Hallo Klaus,

kein Wunder, dass es dafuer kein Objekt gibt.
Die Funktion Plotten im V4-"Vorgucker" steht nicht zur Verfuegung.

Also kann man das auch nicht automatisiseren.

Beste Gruesse
Catrin

------------------
CATIS GmbH                  38444 Wolfsburg
catrin.eger@catis.de        www.catis.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

plotten geht bereits mit diesem Script, wenn ich vorher manuell den *DRAFT-Reiter anklicke und damit auf die Zeichnung umschalte.

Nur dieser Klick auf auf den *DRAFT-Reiter fehlt noch im Script.

Gruß, Klaus

------------------
mfG
Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Zusammen,

diesen Klick benödige ich auch dringend!!!

sprich wie kann ich *DRAFT anwählen und über die Zwichenablage in eine neue Drawing kopieren um dieses als PDF zu speichern.

Eventuel hat da bereits jemand 'nen fertigen Script oder auch nur einen Teil davon.

Gruß Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP