Single Entity Selection

[Anonymous]

I'm borrowing from the samples library in the Inventor help this little gem:

Public Sub GetSingleSelection()

    ' Get a feature selection from the user
    Dim oObject As Object
    Set oObject = ThisApplication.CommandManager.Pick(kPartFeatureFilter, "Pick a feature")

    MsgBox "Picked: " & oObject.Name

End Sub

 Works fine, and is fairly simple, but the problem I'm having is if I press the escape key after starting the command, but before making my selection, I'm not able to start the command again.

  I realize from my searching that using the Selection (Simple) sample allows for an interrupt, with some modification, was just wondering if there was something similar for this simpler selection option.

[pdsa]

Hi

I don't think the CommandManager.Pick Method has any options

Try to load this ivb project in the VBA editor (File > Load Project)

Run SelectFeature from Module1

This will show you hor to use the "Simple Selection" to get a Part Feature

[pdsa]

NB. The .ivb file does not have a valid extension for an attachment i this forum, just rename it by removing .txt befor loading it

[Anonymous]

Thanks for the help pdsa,

  I'm slightly familiar with the Simple Selection, as shown in the help samples, but was more interested in the Single Entity Selection for now.

  I found that I wasn't releasing a variable properly, so the next time the program was run that variable still had a value, which causes the program to skip past the actual procedure (which it is directed to do if the variable is not equal to nothing).  Releasing that variable properly solved the problem.

  Vandargo