---

Hallo,
ich stehe gerade vor der Aufgabe, zu prüfen ob in einem Part ein Achsensytem vorhanden ist.
Dabei ist mir aufgefallen, dass mir die Achsensysteme, die nicht unter dem Knoten AxisSystems liegen, durch die Lappen gehen.
Wenn sie in einem Geometrischen Set liegen, gehören sie dann nicht mehr zu Axissystems?
Muss man echt über die Suchfunktion gehen?

Code:

---

Sub CATMain()

Dim oDoc As Document
Dim oPart As Part
Dim oSel As Selection
Dim oAxisSystems As AxisSystems

Set oDoc = CATIA.ActiveDocument
Set oPart = oDoc.Part
Set oAxisSystems = oPart.AxisSystems
Set oSel = oDoc.Selection

oSel.Clear
oSel.Search "'Part Design'.'Axis System';all"

MsgBox "oAxisSystems.Count: " & oAxisSystems.Count & Chr(13) &_
    "Selection.Count: " & oSel.Count

End Sub

---

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

---

Servus Lionel

Der Makorekorder liefert folgenden Suchstring:

Zitat:

---

oSel.Search "(((CATStFreeStyleSearch.AxisSystem + CATPrtSearch.AxisSystem) + CATGmoSearch.AxisSystem) + CATSpdSearch.AxisSystem),all"

---

Damit werden bei mir alle Achsensystem gefunden (vermutlich kann man den String noch etwa ausmisten)

Gruß
Bernd

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

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

---

Ich hatte einfach den Suchstring eingefügt, den ich in der Advanced Search zusammengebaut habe:

Code:

---

oSel.Search "'Part Design'.'Axis System';all"

---

Wird der intern noch mal zerlegt und kommt auf den String, den du gepostet hast?

[Diese Nachricht wurde von Lionel Hutz am 20. Nov. 2023 editiert.]

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

---

Servus Lionel

Scheinbar wird das noch mal übersetzt in:

Code:

---

oSel.Search "CATPrtSearch.AxisSystem,all"

---

Gruß
Bernd

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

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