---

Hallo zusammen,
ich bräuchte mal etwas Hilfe.
Ich hätte gerne ein Macro mit dem ich Parts oder Product, wenn sie verschoben sind, wieder absolut setzen kann. Warum sie verschoben sind spielt ja keine Rolle.
Einfach Macro starten, Part/Product selektieren und dann wird es auf 0,0,0 und 0°,0°,0° gesetzt.
Kann mit da jemand helfen?
Schon mal Danke!

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

---

Servus
Schau dir dazu mal die Methode "SetComponents" an (Product -> Position) an.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

z.B:

http://ww3.cad.de/foren/ubb/Forum137/HTML/004681.shtml#000004
http://ww3.cad.de/foren/ubb/Forum137/HTML/005021.shtml#000008

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Mein Script sieht im Moment so aus:
Sub CATMain()

Dim productDocument As productDocument
Dim childProduct 'As Product
Dim RootProduct As Product
Dim arrayPosition(11)

Set productDocument = CATIA.ActiveDocument
Set RootProduct = productDocument.Product

For Each childProduct In RootProduct.Products
    'Position auslesen
    childProduct.Position.GetComponents arrayPosition
 
    'Position korrigieren
    arrayPosition(9) = arrayPosition(9) * 0.001
    arrayPosition(10) = arrayPosition(10) * 0.001
    arrayPosition(11) = arrayPosition(11) * 0.001
 
    'Position zuweisen
    childProduct.Position.SetComponents arrayPosition
Next

End Sub

Soweit verschiebt er auch die Teile. Beim ersten Mal sind die Teile allerdings noch leicht verschoben. Erst wenn ich das Macro ein zweites Mal drüber laufen lasse sind die Werte wirklich 0,0,0.
Außerdem fehlt mir noch das Drehen auf 0°,0°,0°. Im Moment bleibt die alte Ausrichtung wie sie vorher war.

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

---

Du meinst sowas?

http://ww3.cad.de/foren/ubb/Forum137/HTML/001200.shtml#000001

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Servus Deyhawaii
Wie wäre es wenn du mal die verlinkte Diskussion durchliest und dann den Code entsprechend interpretierst?
Ein Blick in die Doku zu den Methoden ist sich auch nicht verkehrt.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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