28 | 04 | 2017

List of Selection Sets

 

 
 
Public Sub SelectionSetList()
'*************************************
'**** Code From VisibleVisual.com ****
'*************************************
Dim SSobject As AcadSelectionSet
Dim SSstring As String
 
For Each SSobject In ThisDrawing.SelectionSets
    SSstring = SSstring & vbCr & SSobject.Name
Next
 
MsgBox "LIST OF SELECTION SETS" & vbCr & SSstring
 
End Sub
 
'--------------------------------------------------------------------------------

 
 
Sub testSUB()
'This sub adds 4 selectionsets to show the result
ThisDrawing.SelectionSets.Add ("SelectionSet 1")
ThisDrawing.SelectionSets.Add ("SelectionSet 2")
ThisDrawing.SelectionSets.Add ("SelectionSet 3")
ThisDrawing.SelectionSets.Add ("SelectionSet 4")
SelectionSetList
End Sub
Login

Sign up now and upload your code to the website.

Help us to continue.....
Statistics
Articles View Hits
2236178
Latest Articles