Hier mein Problem.
Ich habe in einer Baugruppe ein BT aktiviert.
Nun öffne ich es schreibe Props und speicher.
Danach wird das BT geschlossen.
Nun ist aber nicht das vorher aktive Bauteil sondern irgendwas aktiv.
Schaut doch einfach mal selbst.
Ziel ist es das nach den Aktionen das aktivierte Bauteil wieder aktiv ist
Public Sub check_inplace_edit_or_created()
Dim oAssemDoc As AssemblyDocument
Set oAssemDoc = ThisApplication.ActiveDocument
If Not oAssemDoc.ComponentDefinition.ActiveOccurrence Is Nothing Then
MsgBox "In-Place edit/create vorgenommen!"
' Do something useful
Dim oPtDoc As Inventor.Document
Set oPtDoc = ThisApplication.Documents.Open(oAssemDoc.ComponentDefinition.ActiveOccurrence.DefinitionReference.ReferencedFileDescriptor.FullFileName, True)
'gewicht_Rohmass3_ipt
Call oPtDoc.Save
Call oPtDoc.Close
End If
End Sub
------------------
Es gab mal Zeiten, da haben wir und gefreut im 2D Ansichten gemalt zu haben.
Lasst uns dies nicht vergessen wenn wir Ansichten erstellt bekommen
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP