---

bsp.zip

Hallo zusammen,

mal wieder eine kleine Anfängerfrage:

Ich möchte innerhalb eines selektierten Bodies (UserSelection) alle Elemente (Punkte, Linien, Ebenen, Parameter, etc.) auf einmal umbenennen und zwar so, dass jeweils ein Teil des Featurenamens durch eine Eingabe ausgetauscht wird. Bei einem einzelnen Feature geht das mit der Replace-Funktion.

Wie geht es bei mehreren? Und muss ich jeden Featuretyp (Punkt, Linie,...) separat abhandeln oder geht das auf einmal?

Hab mal meinen aktuellen Stand angehängt. Das Makro liegt im Modell.

Vielen Dank im Voraus,

Gruß, zizo

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

---

Hallo zizorro,

sorry, da war kein Makro im Modell.

Prinzipiell können alle Elemente einer UserSelection unabhängig von deren Objekttyp mit String-Funktionen umbenannt werden:

MyNewName = InputBox("Bitte geben Sie einen neuen Namen an:")
MyFeature.Name = MyNewName & "_" & MyFeature.Name

Die Einzelnen Elemente der Selektion bekommt man wie folgt zu fassen:

For i = 1 To UserSelection.Count
    Set MyFeature = MyUserSelection.Item(i).Value
Next

Eine Ausnahme bilden dabei nur die Parameter, die in ihrem Namen auch eine Pfad enthalten und deshalb via Makro nicht so einfach umbenannt werden können.

Grüße,

Michael

------------------

www.em.ag

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