
Sub SelectingAnOccurrence()
    'Set a reference to the inventor application.
    Dim oApp As Application
    Set oApp = ThisApplication
    ' Set a reference to the active assembly document.
    Dim oDoc As AssemblyDocument
    Set oDoc = ThisApplication.ActiveDocument
    ' Prompt user to pick an occurrence
    Dim oOcc As ComponentOccurrence
    Set oOcc = ThisApplication.CommandManager.Pick(kAssemblyOccurrenceFilter, "Pick occurrence to do something with")
    Set oOcc = ThisApplication.CommandManager.Pick(kAssemblyLeafOccurrenceFilter, "Pick occurrence to do something with")
	
End Sub
------------------
************************************
  
  
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP