Hallo Zusammen,
ich versuche gerade einen Makro zu basteln, welche die Blätter in einer Zeichnung umordnen kann, da CATIA hier selber keiner Funktion anbietet (R16).
Ich habe gedacht, ich benutze Cut&Paste. Ausschneiden in der neuen Reihenfolge und gleich einfügen (blattweise).
Ich habe den Makrorekorder verwendet, um ein Beispiel zu bekommen. Es sah ziemlich gut aus, ich habe es gleich für mich angepasst, Ablaufen will es aber nicht. Dann habe ich den Original auch überprüft und es war nicht lauffähig. So wie es aussieht, kann CATIA aus VBA keinen Blatt einfügen (ausschneiden geht).
Ich habe auch den älteren Beiträgen abgesucht und Hinweise darauf gefunden, dass es in 2003, bzw. 2004 nicht möglich war, seitdem sind aber schon einige Jahre weg.
Beitrag_1,
Beitrag_2
Beitrag_3
Hat da vielleicht jemand bessere Erfahrunen gesammelt?
Anbei auch mein Code:
Private Sub cmdStartReorder_Click()
Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument
Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets
Dim drawingSheet1 As DrawingSheet
Dim selection1 As Selection
Dim selection2 As Selection
Set selection2 = drawingDocument1.Selection
Dim drawingRoot1 As DrawingRoot
Dim iActPage As Integer
selection2.Clear
Set drawingRoot1 = drawingDocument1.DrawingRoot
selection2.Add drawingRoot1
For iActPage = 0 To Me.lstPages.ListCount
Set selection1 = drawingDocument1.Selection
selection1.Clear
Set drawingSheet1 = drawingSheets1.Item(CStr(Me.lstPages.List(iActPage, 0)))
selection1.Add drawingSheet1
selection1.Cut
Set selection2 = drawingDocument1.Selection
selection2.Clear
selection2.Add drawingRoot1
' selection2.Add drawingDocument1.Sheets
selection2.Paste
Next
End Sub
Gruß,
Zoltan
[Diese Nachricht wurde von zoltan.bekesi am 07. Sep. 2007 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP