---

Hallo!

Ich habe mir ein Makro geschrieben mit dem ich abhängig von einer Eingabe über eine InputBox (z.B. 1 für A1) aus einer Vorlagezeichnung eine Tabelle auf die Zeichnung kopiere. Je nach Eingabe wird eine andere Tabelle an einen bestimmten Platz kopiert.

Nun möchte ich aber weiter automatisieren:
Abhängig von der Blattgröße (oder Breite bzw. Höhe) möchte ich, dass automatisch die richtige Tabelle ohne Benutzereingabe auf die Zeichnung kopiert wird.

Es soll also die Blattgröße als Variable (z.B. Format = paper size) ausgelesen wird, welche ich dann in meiner If Beziehung verwenden kann, um die richtige Tabelle automatisch zu kopieren.

Ich hoffe, ich konnte das Problem einigermaßen verständlich Beschreiben.

DANKE schon mal!!!

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

---

Servus
Folgender Code gibt dir das Blattformat zurück:

Code:

---

Sub CATMain()

Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.ActiveSheet

Dim GetPaperSize As CatPaperSize

GetPaperSize = drawingSheet1.PaperSize

End Sub

---

Siehe auch in der Doku "CatPaperSize" was die Werte der Enumeration zu bedeuten haben (zB 0 = DIN A2)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo!

Danke!

Ich mußte zwar die "Dim" Zeilen löschen, aber nun funktioniert es.

Bei mir sieht es jetzt so aus:

Set drawingDocument1 = CATIA.ActiveDocument

Set drawingSheets1 = drawingDocument1.Sheets

Set drawingSheet1 = drawingSheets1.ActiveSheet

GetPaperSize = drawingSheet1.PaperName

MsgBox (GetPaperSize)

Mit PaperName bekomme ich wirklich das Format (z.B. "A0"). Bei PaperSize bekam ich immer nur "13", egal welches Format die Zeichnung hatte.

DANKE!

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