---

mit Hilfe dieses Makros soll die 3DSkizze eines Bauteils der gewählten Ansicht angezeigt werden "einschliessen". funktioniert zum Teil
der Fehler: es wird die Skizze des zuletzt plazierten Teils in der gewählten Ansicht eingefügt und nicht die Skizze das in der Ansicht referenzierten Bauteils. bin immer darauf angewiesen das Makro direkt nach dem Plazieren der Ansicht auszuführen. was nicht schlimm ist aber ein Schönheitsfehler.
der Fehler liegt natürlich bei  oDoc.ReferencedDocuments.Item(1).ComponentDefinitions.Item(1).Sketches3D.Item(1)
ich müsste eigentlich ReferencedDocuments von oselect ansprechen aber das bekomme ich nicht hin.
Jemand eine Lösung?

Code:
Sub Einschließen()

Dim oDoc As Inventor.DrawingDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oSelect As SelectSet
Set oSelect = oDoc.SelectSet
If oSelect.Count = 0 Then
    MsgBox "Ansicht vorher wählen!"
    GoTo ende
End If

Set oaktiv = oSelect.Item(1)
Dim skizze As Sketch3D

Auswahl = MsgBox("3D Skizze anzeigen?", vbYesNoCancel)
If Auswahl = vbCancel Then GoTo ende
If Auswahl = vbYes Then

    Set skizze = oDoc.ReferencedDocuments.Item(1).ComponentDefinitions.Item(1).Sketches3D.Item(1)
    Call oaktiv.SetIncludeStatus(skizze, True)

Else

    Set skizze = Nothing
    Set skizze = oDoc.ReferencedDocuments.Item(1).ComponentDefinitions.Item(1).Sketches3D.Item(1)
    Call oaktiv.SetIncludeStatus(skizze, False)

End If
ende:

End Sub

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