---

Hallo zusammen,
seit der V11 funktionieren bei mir folgende Funktionen nicht mehr:

Blatt1.PaperSize = catPaperUser
Blatt1.SetPaperHeight 800
Blatt1.SetPaperWidth 2000

Ich dachte vielleicht geht es wieder in der V12, war aber eine Fehlanzeige.
Irgend etwas ist geändert worden. Hat jemand eine Ahnung was???

Gruß
Guido

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

---

Hallo,

genau das gleiche Problem habe ich auch, hast Du inzwischen eine Lösung gefunden? Die Vorgehensweise bei R12 ist folgende:

1) Ein neues Drawing öffne mit zB A0 Querformat
2) Seite einrichten -> bei "Format" einen eigenen Namen angeben -> Breite und Höhe anpassen -> "Aktualisieren" drücken -> "ok" drücken

Wenn ich das im Makro nachvollziehen möchte, scheitere ich schon daran, dass ich keinen eigenen Formatnamen eingeben kann. Hat jemand eine Lösung?

------------------
Karin

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

---

Hallo Karin,
ich habe festgestellt, dass die Funktion PaperSize nicht mehr auf CatUserPaper umschalten kann(ab V5R11). Hängt wohl an den neuen Standards. Wenn das aktuelle Blatt aber nicht auf CatUserPaper gesetzt ist, kann auch die Blattgröße nicht verändert werden. Ich habe mir so geholfen, dass ich mir eine Vorlagezeichnung erstellt habe und dieser über Seite einrichten ein Benutzerformat gegeben habe. Nun rufe ich in meinem Makro mit NewFrom die Zeichnung auf. Da sie nun schon auf CatUserPaper gesetzt ist, läßt sich die Größe auch einstellen. Hurra!
Gruß
Guido

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

---

Ist ja toll, dass Du eine Lösung hast! Aber wie genau kann ich denn bei der Vorlage die Blattgröße ändern? Hast Du einen Beispielcode? Wäre toll, wenn Du mir hilfst, mir raucht schon der Schädel...

------------------
Karin

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

---

Hi Karin,
wie gesagt das Script geht nur wenn du eine Zeichnung geöffnet hast in der ein Benutzerformat eingestellt ist.

Sub test()
Dim DrwDocument As DrawingDocument
Set DrwDocument = CATIA.ActiveDocument

Dim DrwSheets As DrawingSheets
Set DrwSheets = DrwDocument.Sheets

Dim DrwSheet As DrawingSheet
Set DrwSheet = DrwSheets.ActiveSheet

DrwSheet.PaperName = "Karins Format"
DrwSheet.SetPaperHeight 200
DrwSheet.SetPaperWidth 300
End Sub

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

---

Hallo Guido,

jetzt komme ich der Sache schon näher, vielen Dank für Deine Hilfe!

------------------
Karin

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

---

Hurra,
ich habe gerade den SP3 in der V5R12 installiert, nun funzt catPaperUser wieder.

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