Выделить SelectionSet

Public Sub st_MakeSsetActive(eSset As AcadSelectionSet)
On Error GoTo MyError
If eSset.Count = 0 Then
    Exit Sub
End If
[i]'чтобы не портить входящий набор - переобозначим[/i]
Dim usedSset As AcadSelectionSet
Set usedSset = eSset
Dim objEnt As AcadEntity
Dim myEntArr() As AcadEntity
Dim sCommand As String
Dim i As Integer
Dim k As Integer: k = 9
[i]'первая LISP-строчка. определяет LISP-набор[/i]
ThisDrawing.SendCommand "(setq *selset* (ssadd))" & vbCr
[i]'исходный набор будем брать кусками по 10, чтобы не переполнялся SendCommand[/i]
Do
    [i]'определим массив Entity для манипуляций с наборами[/i]
    If usedSset.Count < 10 Then
        k = usedSset.Count - 1
    End If
    ReDim myEntArr(k)
    sCommand = "(mapcar '(lambda(x) (ssadd (handent x) *selset*)) '("   '(1)
    For i = 0 To k
        Set myEntArr(i) = usedSset(i)
        sCommand = sCommand & Chr(34) & myEntArr(i).Handle & Chr(34)    '(2)
    Next
    sCommand = sCommand & "))"                                          '(3)
    '[i]через эту строчку объекты добавляются в LISP-набор[/i]
    ThisDrawing.SendCommand sCommand & vbCr
    [i]'удалим уже записанные элементы из обрабатываемого набора[/i]
    usedSset.RemoveItems myEntArr
Loop While usedSset.Count <> 0
[i]'последняя часть[/i]
[i]'выделение набора, полученного с помощью LISP[/i]
ThisDrawing.SendCommand "(sssetfirst *selset* *selset*)" & vbCr
Exit Sub
MyError:
myMsg "Ошибка в st_MakeSsetActive"
End Sub

Option Explicit
Sub GripTest()
   Dim oSset As AcadSelectionSet
   Dim vType(0) As Integer
   Dim vData(0) As Variant
   vType(0) = 0
   vData(0) = "LWPOLYLINE"
          With ThisDrawing.SelectionSets
               While .Count > 0
                    .Item(0).Delete
               Wend
          Set oSset = .Add("$GripTest$")
          End With
   oSset.SelectOnScreen vType, vData
   ThisDrawing.SendCommand "(sssetfirst (setq *selset* (ssget " & Chr(34) & "_P" & Chr(34) & "))" & _
                           "(ssget " & Chr(34) & "_P" & Chr(34) & "))" & vbCr
   MsgBox "Gripped and highlighted"
   oSset.Highlight False
   MsgBox "Will gripped only"
   MsgBox "Will ungripped"
   ThisDrawing.SendCommand Chr(27) & Chr(27) & Chr(27)
   MsgBox "Ungripped"
End Sub

(sslength *selset*)