---

Hallo @all !

Erst einmal möchte ich Allen aus diesem Forum ein großes Lob
aussprechen. Wenn ich Euch nicht hätte, wäre ich total aufgeschmissen.

Jetzt zu meinem Problem.
Ich lade eine .dxf Datei und möchte alle 2D-Komponenten zerlegen.
Ich habe bis jetzt diesen Code (siehe unten). Aber er wählt halt nur alle 2D-Komponenten aus, zum zerlegen muß ich dann noch über die rechte Maustaste -> zerlegen klicken. Was brauche ich für einen Code um die Auswahl auch direkt zu zerlegen. Die Dateien haben immer unterschiedliche Blatt- un Ansichtsnamen.

Code:

---

Language="VBSCRIPT"
Sub CATMain()

Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = drawingDocument1.Selection

selection1.Search "CATDrwSearch.DrwDitto,all"

End Sub

---

Ich Danke Euch schon einmal im voraus

Gaby

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

---

Hallo Gaby,

über die Selektion kommt man nicht an das direkte Objekt der 2D-Komponente ran.
Deswegen würde ich hier über alle Views aller Nicht-Detail-Sheets gehen und die 2D-Komponente einzel ansprechen und zerlegen.

Hier der Code:

Sub CATMain()

    Dim oDRWDoc As DrawingDocument
    Dim oSheet As DrawingSheet
    Dim oView As DrawingView
    Dim oDRWComp As DrawingComponent
   
    Set oDRWDoc = CATIA.ActiveDocument
   
    'Schleife für alle Sheets
    For i = 1 To oDRWDoc.Sheets.Count
        Set oSheet = oDRWDoc.Sheets.Item(i)
        'Ist das Sheet kein Detail-Sheet?
        If Not oSheet.IsDetail Then
            'Schleife für alle Views im Sheet
            For j = 1 To oSheet.Views.Count
                Set oView = oSheet.Views.Item(j)
                'Schleife für alle 2D-Komponenten der View
                For k = 1 To oView.Components.Count
                    Set oDRWComp = oView.Components.Item(k)
                    '2D-Komponente zerlegen
                    oDRWComp.Explode
                Next k
            Next j
        End If
    Next i
   
End Sub

Danach noch alle Detail-Sheets händisch löschen.

Gruß
Steffen

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

---

Hallo Steffen,

danke für deine Mühe, aber leider bleibt der Code bei Next k hängen und gibt diese Fehlermeldung:

  Quelle: Kompilierungsfehler in Microsoft VBScript
  Beschreibung: Anweisungsende erwartet
  Anweisung: Next k
  Linie: 23
  Spalte: 21

Gruß
Gaby

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

---

Hallo Gabi,

ich habs mit VBA gemacht.
Bei CATScript darf der NEXT-Anweisung keine Laufvariable folgen.
Also alle Variablen (i, j, k) nach NEXT löschen.

Gruß
Steffen

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

---

DANKE Steffen !!!!!!

Jetzt klappt es.   

Gruß
Gaby

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

---

Hallo Leute,

um mich nochmal an das Thema ranzuhängen:

hab den oben gezeigten code bei mir mal durchlaufen lassen, doch leider ohne erfolg. bin auch nicht ganz hinter den syntax gestiegen.

mein problem:

ich möchte alle elemente vom typ "resource" zerlegen. wie ihr bereits oben bemerkt habt, geht das ja über die selektion nicht.
wie komme ich denn jetzt an die ganzen polylinien usw. ran?

danke für die hilfe

gehirnsuelze

------------------

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