---

Hallo vbaler,

um die Zusammenstellung meiner Bauteile zu erstellen nehme ich eine leere iam und gehe über 'Komponente platzieren'. Dann wähle ich alle benötigten Komponenten an (alle meines Unterordners) und füge diese ein.

Inventor legt mir diese auch an sich schlüssig in einer verschobenen Reihe hin, so dass ich alle aufgefächert sehen (und mit Abhängigkeiten) einfügen kann.

Um innere Dichtungen in eine Führung z.B. einzusetzen wähle ich die Halb-Schnittansicht der XY-Ebene. Nun muß ich mit der Hand alle Dichtelemente in die Schnittebene ziehen, damit ich die Kanten abhängig machen kann.

Ich würde gerne ein Makro haben, dass die Einfügepunkt aller Komponenten mit Z=0 setzt, so dass alle in der XY-Ebene liegen.

Leider habe ich keine Idee, wie ich das machen kann ? (obwohl ich schon manchen Code weiter entwickeln konnte)

Über ein Codegerüst würde ich mich freuen - Danke!

Viele Grüße,
Stefan

------------------
IV2008

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

---

Hallo Stefan,

schau Dir mal folgenden Code an:

Code:

---

Public Sub Teil_auf_Ursprung()
    If ThisApplication.ActiveDocument Is Nothing Then
        MsgBox "No Document open", 16, "Error"
        Exit Sub
    End If
   
    Dim oapp As Application
    Set oapp = ThisApplication
    If Not ThisApplication.ActiveDocument.DocumentType = kAssemblyDocumentObject Then
        MsgBox "No Assembly", 16, "Error"
        Exit Sub
    End If
   
    ' Set a reference to the assembly component definintion.
    Dim oAsmCompDef As AssemblyComponentDefinition
    Set oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition
   
    ' Get an occurrence from the select set.
    On Error Resume Next
    Dim oOccurrence As ComponentOccurrence
    Set oOccurrence = ThisApplication.ActiveDocument.SelectSet.Item(1)
    If Err Then
        MsgBox "An occurrence must be selected."
        Exit Sub
    End If
    On Error GoTo 0

    ' Get the current transformation matrix from the occurrence.
    Dim oTransform As Matrix
    Set oTransform = ThisApplication.TransientGeometry.CreateMatrix
   
    ' Set the rotation of the matrix for a 45 degree rotation about the Z axis.
    Call oTransform.SetToRotation(3.14159265358979 / 4, _
                            ThisApplication.TransientGeometry.CreateVector(0, 0, 0), ThisApplication.TransientGeometry.CreatePoint(0, 0, 0))
                           
    ' Move the occurrence ignoring any constraints.
    ' Anything that causes the assembly to recompute will cause the
    ' occurrence to reposition itself to honor the constraints.
    oTransform.SetTranslation ThisApplication.TransientGeometry.CreateVector(0, 0, 0)
    Call oOccurrence.SetTransformWithoutConstraints(oTransform)

    ' Iterate through all of the occurrences and ground them.
        oOccurrence.Grounded = True
    'Next
End Sub

---

Sollte was brauchbares für Dich dabei sein...

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