---

Guten Tag,
ich suche ein Makro, womit ich Bauteile auf den Baugruppenursprung ausrichten kann. Ohne Abhängigkeiten zu vergeben. Ich möchte mehrere Bauteile markieren und alle gleichzeitig auf den Ursprung ausrichten.

Ich habe zwei Posts gefunden die ähnlich sind. Aber nicht genau das ausführen.

https://ww3.cad.de/foren/ubb/Forum258/HTML/001954.shtml#000000

https://ww3.cad.de/foren/ubb/Forum258/HTML/000379.shtml#000000

Vielen Dank im Voraus!

[Diese Nachricht wurde von Tommy174 am 06. Jan. 2026 editiert.]

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

---

Moin

Die Funktion Fixieren und am Ursprung platzieren tut es nicht?

------------------
MfG
Ralf

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

---

Hi,
ich möchte sie nicht fixieren. Einfach nur auf den Ursprung schieben.

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

---

Moin

Einfach nur schieben, kein Ausrichten der Ebenen, kein Entfernen vorhandener Abhängigkeit, kein Lösen der Fixierung falls vorhanden:

Code:

---

Option Explicit

Private Sub Move2Zero()

Dim oApp As Inventor.Application
Set oApp = ThisApplication

Dim oDoc As AssemblyDocument
Set oDoc = oApp.ActiveDocument

Dim oSelSet As SelectSet
Set oSelSet = oDoc.SelectSet

Dim oSel As Object
For Each oSel In oSelSet
    If TypeOf oSel Is ComponentOccurrence Then
        Dim oOcc As ComponentOccurrence
        Set oOcc = oSel
       
        Dim oTrans As Matrix
        Set oTrans = oApp.TransientGeometry.CreateMatrix
       
        Call oOcc.SetTransformWithoutConstraints(oTrans)
    End If
Next
End Sub

---

------------------
MfG
Ralf

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

---

Super genauso.
Vielen Dank!!

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