---

Hallo zusammen,

ich komme leider mit dem folgenden Problem nicht weiter. Ich würde gerne ein Bauteil entlang einer Kante /  Achse verschieben.

Public Sub MovePart()
    Dim occ As ComponentOccurrence
    Set occ = ThisApplication.CommandManager.Pick(kAssemblyOccurrenceFilter,"Select an occurrence.")

    Dim i As Integer
    For i = 1 To 10
        Dim trans As Matrix
        Set trans = occ.Transformation
        trans.Cell(2, 4) = trans.Cell(2, 4) + .5
        occ.Transformation = trans
    Next
   
End Sub

Vielen Dank für Eure Hilfe

Georg

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

---

Hallo Georg,

dein Code funktioniert schon. Allerdings würde ich für die Verschiebung anstelle der direkten Manipulation von Matrix-Zellen einen Translationsvektor benutzen.

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools
FX64 LambdaSpect - Lichtsimulation mit Autodesk Inventor

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

---

Hallo Igor,

wie kann ich aber eine Achse oder Kante wählen an dem das Bauteil entlang verschoben wird? Hast Du mir ein Beispiel mit dem Translationsvektor?

Grüße

Georg

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