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