---

Hallo zusammen,

Hier übernimmt die Geometrie Name vom GeoSet, in dem die liegt.

Makro funktioniert nur mit "lebendige Geometrie" und "Result with Link";
die tote Geo und GeoSets nehmen die Name vom  zweite Stufe von oben:

und zwar:GeoSet"XXX"
              ->GeoSet"001"
                  ->Result oder GeoSet mit Name"XXX"( möchte aber "001" haben)

Hat jemand Idee?

___________________________________________________________________________

Sub CATMain()

Dim PartDoc As PartDocument
Dim Selected_Obj As Object
Dim oSel As AnyObject
Dim Name_Geo As String

Set PartDoc = CATIA.ActiveDocument
Set Selected_Obj = PartDoc.Selection

Set oSel = Selected_Obj.Item(1).Value
Name_Geo = oSel.Parent.Parent.Name
oSel.Name = Name_Geo

End Sub

------------------
Gruß
Konstantin

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

---

Servus
AFAIR kann man bei isolierten Elementen nur über "GetNameToUseInRelation" sich den Pfad des Elementes ausgeben lassen, und muss dann den Namen des GeoSets aus dem Sting extrahieren.

Gruß
Bernd

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

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