---

Unbenannt.JPG

Hallo

ich habe zu meiner Frage schon viele Beiträge gesehen die ähnlich sind. Aber leider keinen gefunden der mir weiter hilft :-/

Ich will mit eine Variable erstellen welche folgende Eigenschaften hat.

Liste(0) = ElementName, Typ
Liste(1) = ElementName, Typ
Liste(2) = ElementName, Typ
...

Und jetzt würde ich gerne "Schritt-fuer-Schritt" und der Reihen nach von oben-nach-unten durch den Baum gehen und den Baum wie er da steht in die Variable Liste einspeichern. Sollte dann zB so aussehen..

Liste(0) = "GeoSet1", Geoset
Liste(1) = "Punkt1", Punkt
Liste(2) = "GeoSet2",  Geoset
Liste(2) = "GeoSet3",  Geoset

Ist das möglich? Gibt es eine Art Durchnummerierung der Teile im Baum?

Vielen Dank

Sepp

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

---

Hallo Sepp,

derzeit wüsste ich nur die Möglichkeit über die Selection zu gehen.
Eine Möglichkeit den Baum direkt auszulesen kenn ich nicht.
Mein Ansatz ist einfach alles zu selektieren, in der Hoffnung das die Reihenfolge wie im Baum ist.
Probleme gibt es z.B. wenn man eine Skizze für ein "UserPattern" in einem Geo-Set hat, und die Skizze
dann zum vervielfältigen von Bohrungen nutzt.
Dann Taucht die Skizze nämlich öffters im Baum auf...

Aber hier mal der Code der zumindest ansaztweise das macht was du möchtest.

Code:

---

Option Explicit
Type Liste
    EName As String
    ETyp As String
End Type
Sub CATMain()
Dim Sel As Object ' Selection
Dim i As Long
Dim L() As Liste

Set Sel = CATIA.ActiveDocument.Selection

Sel.Search "Type=*,all"

For i = 1 To Sel.Count
    ReDim Preserve L(1 To i)
    L(i).EName = Sel.Item(i).Value.Name
    L(i).ETyp = TypeName(Sel.Item(i).Value)
Next i
End Sub

---

------------------
Gruss Markus

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