---

Hallo Catia Programmierer

Ich habe da ein Problem und auch schon eine Lösungsidee. Ich habe des öffteren zig 100 gleiche Features (zB. Punkte, Ebene, Linien, etc.) die ich nach einem Schema umbenennen möchte. Meine Idee ist nun folgende:

1. Punkte markieren
2. Mit Makro die markierten Punkte umbenennen nach:
    An der Stelle X möchte ich Y einfügen
    Beispiel: Am Punkt.17 möchte ich an Stelle 1, ABC einfügen = ABCPunkt.17
3. Ende Makro

Natürlich sollte auch die Möglichkeiten des Löschen anwendbar sein (mit einem 2. Makro). In etwa so:
    An den markierten Punkten, ab Stelle X, Anzahl Y Zeichen löschen
    Beispiel: Am ABCPunkt.17 Ab Stelle 4  5 Zeichen löschen = ABC.17

Kennt jemand ein solches Makro oder sowas ähnliches, woraus man was entwickeln könnte? Meine Fähigkeiten Im Makro schreiben sind äusserst bescheiden. Aber meistens komme ich nach ganz viel ausprobieren doch zum Ziel. Jedoch bin ich für jeden Tip sehr dankbar. Ich bin auch gerne bereit dieses Makro dann hier zu veröffentlichen.

Gruss
Solidos

------------------
V5 R18

Zeit ist das, was man an der Uhr abliest.
(Albert Einstein)

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

---

Hallo, Solidos,

das Umbenennen von selektierten Elementen ist simpel.

Selektiere alles (Punkte, sonstwas) und führe das als Script aus:

Sub CATMain()
  Set oSel = Catia.ActiveDocument.Selection
  sInp = Inputbox("String vorransetzen","Selektion umbenennen","ABC")
  For i = 1 to oSel.Count
      oSel.Item(i).Value.Name = sInp & oSel.Item(i).Value.Name
  Next
End Sub

Gruß

------------------
tomtom1972

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