---

Hallo Zusammen,
momentan arbeite ich an einem CATSCript Makro mit dem die Inhalte der Zeichnungsblätter alle mittels FitAllIn eingepasst werden sollen.

Für eine einzelnes Blatt, welches bereits durch den User angeklickt wurde, funktioniert das ganz gut.
Nur leider kann ich nicht alle Blätter per Makro "durcharbeiten" lassen obwohl es mir gelingt die Blattnamen einzeln auszulesen.
Die Methode .Activate funktionieren nicht und werfen einen Fehler aus (daher sind beider versuche auskommentiert).

Mein Script sieht derzeit so aus:
'Geometrie einpassen (Fit all in)
'****************************************
Dim DrwSel As Selection
Set DrwSel = drawingDocument1.Selection
DrwSel.Search "CATDrwSearch.DrwSheet,all"
Dim Z As Integer

For Z = 1 To DrwSel.Count
Set Sheet = DrwSel.Item(Z).Value
SheetName = Sheet.Name

MsgBox SheetName
'Set Sheet = DrwSel.Item(Z).Activate
'Set Sheet = DrwSel.Item(Z).ActiveSheet

CATIA.StartCommand "Fit All In"
CATIA.RefreshDisplay = True
Next

Habt kennt Ihr eine Methode wie ich das per CATScript gelöst bekomme?

Vielen Dank und viele Grüße
Der Ziegelstein

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

---

Servus

Willkommen im Forum.
Probier es mal so:

Code:

---

Sub CATMain()

Dim oDrwDoc As DrawingDocument
Dim oDrwSheet As DrawingSheet

Set oDrwDoc = CATIA.ActiveDocument

For Each oDrwSheet In oDrwDoc.Sheets
  oDrwSheet.Activate
  CATIA.StartCommand "Fit All In"
  'CATIA.StartCommand "Alles einpassen"
Next

End Sub

---

ggf noch einbauen dass am Ende das erste Blatt oder das zuvor aktive Blatt wieder aktiv gesetzt wird.

Gruß
Bernd

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

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

---

Hallo,

was das aktivieren der Zeichnungsblätter angeht, versuche es doch mal so...

Code:

---

Sub CATMain()

Dim oDrwDoc As DrawingDocument
Dim oDrwSheet As DrawingSheet

Set oDrwDoc = CATIA.ActiveDocument

For Each oDrwSheet In oDrwDoc.Sheets
    oDrwSheet.Activate   
Next

End Sub

---

Gruß
Randle

------------------
Wer für nichts steht, fällt für alles!

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

---

Hallo Zusammen,
vielen Lieben Dank für die schnelle Hilfe, es funktioniert. :-) Die erste Antwort war bereits der Treffer.
Da werden sich die Konstrukteure aber freuen.

Viele Grüße
Der Ziegelstein

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