---

Clipboard01.jpg

Hallo

wie kann ich der Name von Geometrical Set als Prefix anwenden ?
Makro soll alle Punkte in selektiertem GS umbenennen (siehe Anlage)
Bis jetzt funktioniert sehr gut, aber nur wenn Prefix vordefiniert ist (was ich nicht wirklich flexibel finde -> mehrere GS)

Hat jemand einen Idee ?
Danke
PJ

  selection1.Search ".Point.Name=*,sel"
  Set oSel = Catia.ActiveDocument.Selection
 
  sInp = Inputbox("Set Prefix ","Rename selected points","Prefix_")
  For i = 1 to oSel.Count
      oSel.Item(i).Value.Name = sInp & oSel.Item(i).Value.Name
  Next

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

---

Servus

Du könntest doch vor der Suche den Namen des GeoSets auslesen. zB (ungetestet)

Code:

---

StrPrefix =  oSel.item2(1).Value.Name

oSel.Search ".Point.Name=*,sel"
For i = 1 to oSel.Count
    oSel.Item2(i).Value.Name = StrPrefix & oSel.Item2(i).Value.Name
Next

---

Gruß
Bernd

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

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

---

Hallo Bernd

funktioniert sehr gut !
ich habe noch ein Unterstrich (zwischen Prefix und Punkt Name) gesetzt

StrPrefix =  oSel.item2(1).Value.Name
oSel.Search ".Point.Name=*,sel"
For i = 1 to oSel.Count
    oSel.Item2(i).Value.Name = StrPrefix &"_" & oSel.Item2(i).Value.Name

Danke !

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