12-15-2021
02:44 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-15-2021
02:44 AM
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