add this vlisp code to your system
It will get a VBA Selectionset by name and
return a Vlisp Selectionset
Code:
;(Vbass "SelectionsetNmae")
;This function will return the VBA Selectionset
; name = Selectionsetname
;By John W Anstaett 11/01/04
(defun Vbass(SSname / acadObject acadDocument myss myas myc vlss)
(setq acadObject (vlax-get-acad-object))
(setq acadDocument (vla-get-ActiveDocument acadObject))
(setq myss (VLA-GET-SELECTIONSETS acadDocument))
(setq myas (VLA-ITEM myss SSname))
(setq myc (vla-get-count myas))
(setq vlss (ssadd))
(setq myi 0)
(repeat myc
(progn
(setq myvb (vla-item myas myi))
(setq vlss (ssadd (vlax-vla-object->ename myvb) vlss))
(setq myi (+ myi 1))
)
)
(setq vlss vlss)
)