---

Hallo!

Ich habe ein Script geschrieben, dass mir einen Mechanismus für ein Produkt erzeugt. Jetzt würde ich gerne noch eine Simulation von diesem Mechanismus erzeugen, mir fehlt aber der Befehl dazu.
Kann mir da bitte jemand weiterhelfen?

Gruß Markus

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

---

Schau mal auf der Automationsseite von Dassault nach, da sind glaube ich die Objektbiblitheken für dieses Themengebiet aufgeführt!

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

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

---

Hallo gehirnsuelze!

Danke für deine Hilfe.
Die Befehle für den Mechanismus habe ich auch aus dieser Automation Hilfedatei, aber den Befehl für Simulation finde ich nicht. Wenn ich als Suchbefehl simulation eingebe, findet er nix.
Nach was soll ich suchen?

Gruß Markus

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

---

Also muss sagen, habe mich mit diesem speziellen Thema noch nicht beschäftigt. Was ich eigentlich meinte: du solltes die website von 3ds besuchen
3ds automation developers
muss dich allerdings erst kostenlos registrieren
schau mal dort nach, hab da was von dmu gesehen

vielleicht hilft es dir ja

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

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

---

Hallo,
ich habe auf der DS Automation Developers Seite das unten stehende skript entnehmen können für eine Bewegung (Motion).
Aber ich verstehe nicht ganz, wie das mit der Motion abläuft. Ist das vergleichbar mit der Simulation bei dem man Überschneidungsuntersuchungen und Abstandsmessungen machen kann?
Weiss hemand, wie wie man die Befehle anwendet, um die Parts zu bewegen?
   
    Dim myMovableObject As Move
    Set myMovableObject = MyObject.Move.MovableObject
    Dim EngineMoveObject As Move
    Set EngineMoveObject = Engine.Move

Die Befehle stehen ebenfalls auf der Seite, aber leider stehen keine Beispiele drin. Was ist der Unterschied zu den Befehlen
   
    oFirstMechanism.GetProductMotion oMovingPart,dMotion
    oMovingPart.Move.Apply dMotion

Ich hoffe, da kann mir jemand weiterhelfen. Ich komme nicht mehr weiter 

Sub CATMain()

    Dim dValcmd(1) As Double
    Dim dMotion(11) As Double

    Dim oRootProduct As AnyObject
    Set oRootProduct = CATIA.ActiveDocument.Product

    Dim cTheMechanisms As AnyObject
    Set cTheMechanisms = oRootProduct.GetTechnologicalObject("Mechanisms")

    Dim oFirstMechanism As Mechanism
    Set oFirstMechanism = cTheMechanisms.Item(1)

    Dim iNbProd As Integer
    iNbProd = oFirstMechanism.NbProducts

    Dim oMovingPart as Product
    Set oMovingPart = oFirstMechanism.GetProduct(1)

    oFirstMechanism.GetCommandValues dValcmd

    dValcmd(0) =  dValcmd(0) +10

    oFirstMechanism.PutCommandValues dValcmd

    oFirstMechanism.GetProductMotion oMovingPart,dMotion
    oMovingPart.Move.Apply dMotion

End Sub

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