---

Liebe Gemeinde,
ich habe das folgende Problem:
Ich möchte verschiedene Elemente verschieben. Ich mache das mit dem folgenden Code:
____________________________
.....
.....
Set Case1 = part1.FindObjectByName("CaseSeg")
Set ref1 = part1.CreateReferenceFromObject(Case1)
Set Translate1 = HSF1.AddNewEmptyTranslate()

Translate1.ElemToTranslate = ref1
Translate1.VectorType = 2
Translate1.CoordXValue = 0
Translate1.CoordYValue = 0
Translate1.CoordZValue = 5
Translate1.VolumeResult = 1
HB1.AppendHybridShape Translate1
part1.Update
......
......
_______________________________________
Ich muss für jedes Element im CatPart dieses Stück Code ausführen um diese zu verschieben.
Wie kann ich alle zu verschiebenden Elemente auf einmal auswählen und auf ein mal verschieben.
Danke im Voraus!
Grüße
L_C

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

---

Hallo L_C,

packe doch alle zu verschiebenden Elemente in eine Selection,
dann kannst Du das Verschieben in einer Schleife machen.

Beispiel für selection:

  selection.Search "Name:Linie*+Name:Kreis*" 'sucht alle Linien und Kreise

For i = 1 to selection.count
text = selection.item(i).Value.Name

textneu = "neu_"+text
selection.item(i).Value.Name = textneu
Next

Gruß
Bertel

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

---

Hi Bertel
Danke für die Antwort.
ich habe es schon ähnlich realisiert.
Mir geht es darum, alle Elemente entweder in einem Group oder in einer Selection zu packen und auf einmal zu verschieben.
Grüße
L_C

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

---

Hallo,

Du kannst auch den Zielbehälter, d.h. da wo der Translate erzeugt werden soll, einfach als InWorkObject deklarieren, dann musst nachher nichts mehr verschieben.

Gruß Timber

------------------
Wenn alle Stricke reissen, nehm ich ein Drahtseil

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