---

Hallo Zusammen,

kurz und knapp mein Problem:
Wie sieht der Befehl "Positionen aktualisieren" (DMU Kinematics) in VB aus?
(Es ist nicht product[...].update)

   

Vielen Dank

uli2

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

---

Hallo uli2,

so einfach geht es leider nicht...
Die prinzipielle Vorgehensweise ist, im Mechanismus für alle Glieder des Mechanismus die Position zu berechen und diese dann auf die jeweiligen Products anzuwenden. Etwa so sollte es gehen:

Dim i As Long
Dim MyProduct As Product
Dim MyMechanism As Mechanism
Dim MyPosition(11) As Double

'-----Mechanismus zuweisen-----
Set MyProduct = CATIA.ActiveDocument.Product
Set MyMechanism = MyProduct.GetTechnologicalObject("Mechanisms").Item("MyMechanism")

'-----Für jedes Glied des Mechanismus...-----
For i = 1 To MyMechanism.NbProducts
    '-----Position berechnen-----
    MyMechanism.GetProductMotion MyMechanism.GetProduct(i), MyPosition
    '-----Position setzen-----
    MyMechanism.GetProduct(i).Position.SetComponents MyPosition
Next

Hope that helps,

Michael Kirsch

------------------

www.em.ag

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

---

Hi Uli , probiers mal mit dem

CATIA.StartCommand "Befehl" 

Befehl ersetzen durch "Update" , "Simulation with command", oder was auch immer den Update der Parameter veranlasst.
Gruss

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

---

Moinsen!

Probier's mal mit mechansm1.update (nicht product1.update, wie bei der makroaufzeichnung aufgezeichnet wird).
Also anstatt den Produktnamen den Mechanismusnamen engeben.

Hat bei mir funktioniert...

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