---

Hallo,

Außerdem wollte ich eine automatische Selektion aller Elemente (incl. Body und geoetrical set durchführen. Wie kann ich die autoselektion durchführen ohne dass eine vorhandener Powercopy-Ordner mit verwendet wird?

ich möchte ein copy of aus den Namen entfernen. In einem älteren Beitrag hab ich folgende Anweisung gefunden:

Set oPart = Catia.ActiveDocument
For i = 1 To oPart.Part.Bodies.Count
  oPart.Part.Bodies.Item(i).Name = Replace(oPart.Part.Bodies.Item(i).Name, "Copy of ", "")  ' <---  Umbenennen des/der Bodies
Next

Das funktioniert schon ganz gut!

Zusätzlich möchte ich aber auch folgende Bezeichnungen aus den Name löschen: Copy (n) of wobei n hier für eine beliebige Zahl steht, die CATIA automatisch vergibt. Wie muss ich den Replace Befehl anpassen, damit er mir auch die Klammer und den Inhalt löscht?

Vielen Dank!

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

---

Salut,

einfach die InStr Funktion gebrauchen:

myOfPos = instr(1, oPart.Part.Bodies.Item(i).Name, ") of", 1)

jetzt hast du die position von of und kannst nun mit der MID Funktion arbeiten.

viel spass noch beim coden 
grüessli, mathias

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

---

Servus,

ich habe genau das gleiche gestern programmiert. Habe es ähnlich wie die replace-Funktion gemacht.

Für "Copy of" geht es ja einfach

X = Zähler
und "Copy (X) of " habe ich zerpflückt in "Copy (" & CStr(X) & ") of" und das ganze in einer Schleife durchlaufen lassen

[Diese Nachricht wurde von Christian.Treffert am 06. Jul. 2006 editiert.]

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