Как передать набор примитивов автокадовской команде?

------начало кода VBA-----------------
'создание пустого набора средствами LISP:
    ThisDrawing.SendCommand "CreateSet" & vbCr
'заполнение "лисповского" набора примитивами из A_SSet:
    Dim EntHandle As String
    Dim OldName As String
    Dim sysVarName As String
    sysVarName = "USERS1"
    OldName = ThisDrawing.GetVariable("USERS1")
    Dim i As Integer
    For i = 0 To (A_SSet.Count - 1)
        EntHandle = A_SSet.Item(i).Handle
        ThisDrawing.SetVariable sysVarName, EntHandle
        ThisDrawing.SendCommand "FullSet" & vbCr
    Next i
'подсветка примитивов набора:
     ThisDrawing.SendCommand "GripsSet" & vbCr
'обработка примитивов набора командой PROPERTIES:
    ThisDrawing.SendCommand "PROPERTIES" & vbCr
    ThisDrawing.SetVariable sysVarName, OldName
------окончание кода VBA-----------------
------начало кода LISP-----------------
;;создание пустого набора
 (defun C:CreateSet (/)
  (setq SelSet_LN (ssadd))
)
;;CreateSet
;;заполнение набора
 (defun C:FullSet (/ EntHandle)
  (setq EntHandle (getvar "USERS1"))
  (ssadd (handent EntHandle) SelSet_LN)
)
;;CreateSet
;;подсветка примитивов набора
(defun C:GripsSet (/)
  (sssetfirst nil SelSet_LN)
)
;;GripsSet
------окончание кода LISP-----------------

For i = 0 To (A_SSet.Count - 1)
   ...
   ...
Next i

For Each obj in A_SSet
   ...
   ...
Next

;; sets indexed VBA SelSet into current SelSet
;; use (ssget "P") to retrive the Previous SelSet
;; returns count of SelSet or 0(Zero)
(defun ssVBA->ssLisp ( vba-ssInt / ob ss ssVBA)
(setq allSS    (vlax-get-property (vlax-get-property (vlax-get-acad-object)
                            'ActiveDocument)'SelectionSets))
(setq ss(ssadd))
(if(and vba-ssInt
        (< vba-ssInt (vlax-get-property allSS 'Count))
         (>= vba-ssInt 0)
    )
    (progn
        (setq ssVBA (vlax-invoke-method allSS 'Item vba-ssInt))
        (vlax-for ob ssVBA (setq ss(ssadd(vlax-vla-object->ename ob)ss)))
        (vlax-release-object allSS)
        (command "select" ss "")
    )
)
(sslength ss)
)

Dim A_SSet As AcadSelectionSet
    Dim dss As AcadSelectionSets
    'коллекция наборов примитивов в ThisDrawing
    Set dss = ThisDrawing.SelectionSets
    'создаем набор примитивов предназначенных для подсвечивания "ручками".
    ' Это либо новый именованный набор, либо заполненный нашими примитивами
    'один из дежурных -
    'ActiveSelectionSet или PickfirstSelectionSet:
    Set A_SSet = .................
    'определяем порядковый номер набора A_SSet
    'в коллекции  наборов dss
    Dim SetNum As Integer
    Dim i As Integer
    On Error Resume Next
    For i = 1 To dss.Count
        'этот подход универсальный, т.к. основан на
        идентификации объектов
        If [b](dss.Item(i) Is A_SSet)[/b] Then
            SetNum = i
            Exit For
        End If
    Next i
'вызываем функцию ssVBA->ssLisp с параметром SetNum, передаваемым через
'командную строку:
ThisDrawing.SendCommand "(ssVBA->ssLisp " & CStr(SetNum) & ")" & vbCr
Ну и еще я добавил в функцию ssVBA->ssLisp строчку:

(command "select" ss "")
[b](sssetfirst nil ss)[/b]
  )
)
(sslength ss)
);;ssVBA->ssLisp