---

Hallo Ihr!

Zuerst muss ich dieses Forum mal loben (vielmehr die Mitglieder).
Bisher konnten dank euch alle meine Fragen geklärt werden.

Ich hoffe ihr habt noch nicht genug von meinen Anfängerfragen, denn ich hab schon wieder ein Problem.

Ich möchte nun ein Part im Product positionieren/verschieben.

Es handelt sich um ein Product, in dem verschiedene Parts und Products zusammengefasst sind. Eines davon soll in x-Richtung verschoben werden. Der x-Wert ist bekannt.

Aus dem Forum konnte ich bisher herausfinden, dass das mit der Funktion Translate/Rotate gehen muss. Allein mir fehlt der Code dazu.

Kann mir da jemand helfen?
Es würde mich wirklich sehr freuen, denn damit ist dann hoffendlich mein Makro fertig.
Ich stehe sozusagen kurz vor dem Ziel!!

Viele Grüße,
Yvonne

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

---

Hallo yvi5555,

vielleicht mal eine Anregung, wie man so etwas selber entdeckt: der Makro-Rekorder! Wenn Du damit eine Verschiebung eines Teiles mittles Kompass->Edit aufnimmst, kommt in etwa das nachfolgende CODE-Schnipsel heraus:

Code:

---

Sub CATMain()

Dim productDocument1 As productDocument
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

Dim products1 As products
Set products1 = product1.products

Dim product2 As Product
Set product2 = products1.Item("Ich_muss_verschoben_werden.1")

Dim Transfor(11)
Transfor(0) = 1
Transfor(1) = 0
Transfor(2) = 0
Transfor(3) = 0
Transfor(4) = 1
Transfor(5) = 0
Transfor(6) = 0
Transfor(7) = 0
Transfor(8) = 1
Transfor(9) = 100 'Verschiebung in X
Transfor(10) = 0
Transfor(11) = 0

product2.move.Apply Transfor

End Sub

---

Ich hoffe, daß ist Dein fehlender Code!

mfg,
Lusilnie

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

---

Hallo Lusilnie!

Danke! Funktioniert!

Den Makrorecorder kenn ich und ich mache es meist auch so (bisher nur im Part).

Diesmal hab ich irgendwie nicht dran gedacht. Sorry. (Bin gar nicht auf die Idee gekommen, dass das im Produkt auch funktionieren könnte.)

Viele Grüße,
Yvonne

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