Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
vpeuvion
in reply to: mfoster9TD82

Hi,

Not sure if this is exactly what you are looking for but here is an example of what I am using.

The user selects bodies until he presses the ESC key.

The bodies are placed in a collection. I hope this will help you.

Vincent.

 

Dim oBodies As ObjectCollection = ThisApplication.TransientObjects.CreateObjectCollection
Dim oBody As SurfaceBody
Do
oBody = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartBodyFilter, "Select Bodies. ESC for stop selection")
If oBody IsNot Nothing Then
oBodies.Add(oBody)
End If
Loop While Not oBody Is Nothing