Тема: Selection SET
в чем разница в этих 2 кодах
Sub Example_SelectOnScreen()
' Create the selection set
Dim ssetObj As AcadSelectionSet
Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")
' Add objects to a selection set by prompting user to select on the screen
Dim gpCode(0) As Integer
Dim dataValue(0) As Variant
gpCode(0) = 0
dataValue(0) = "INSERT"
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Sub Example_SelectOnScreen()
' Create the selection set
Dim ssetObj As AcadSelectionSet
Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")
' Add objects to a selection set by prompting user to select on the screen
Dim gpCode(0) As Integer
Dim dataValue(0) As Variant
gpCode = 0
dataValue = "INSERT"
"""""""""""""""""""""""""""""""""""""""""""""""""""""""
обратите внимания на две последнии строки