请教：如何把选择集设为激活的选择集

小菜123

(sssetfirst nil ss)
  (ssget)
遗憾的是，这两个函数做成透明命令，不能执行。
不知道有没有VLISP方法，实现“ vla-PUT-ActiveSelectionSet”?

caoyin

思路
1.已知指定的选择集是 SSET
2.vla-get-ActiveSelectionSet获得当前选择集 Asset
3.用vla-RemoveItems清空 ASSET
4.将SSET中的对象转化为VLA对象并用vla-addItems添加到 ASSET

小菜123

测试不成功，程序如下 :(vl-load-com)
(defun lst2arr (obj_lst / obj_arr)
  (setq obj_arr (vlax-make-safearray vlax-vbObject (cons 0 (- (length obj_lst) 1)))
        obj_arr (vlax-safearray-fill obj_arr obj_lst)
        obj_arr (vlax-make-variant obj_arr))
)
(defun c:stest ( / obj_lst obj_arr ass len i )
  ;;测试之前首先: (setq ss (ssget)) 然后(ssget) 置当前选择集为与ss不同的另一选集
  ;;然后执行stest  ;再次(ssget)，用"p"响应，看当前选择集是否变化
    (setq acadDocument (vla-get-activedocument (vlax-get-acad-object)))
    (setq ass (vla-get-ActiveSelectionSet acadDocument))
    (vlax-dump-object ass t)
    (vlax-for item ass (setq obj_lst (cons item obj_lst)))
    (setq obj_arr (lst2arr obj_lst))
    (vla-removeitems ass obj_arr)
    (vlax-dump-object ass t)
    (if ss  ;; ss 由外部传递
       (progn
             (setq len (sslength ss)
                   i 0
                   obj_lst '())
            (repeat len
                    (setq en (ssname ss i)
                          eo (vlax-ename->vla-object en))
                    (setq obj_lst (append obj_lst (list eo)))
                    (setq i (1+ i))
            );repeat
       (setq obj_arr (lst2arr obj_lst))
       (vla-additems ass obj_arr)
       (vlax-dump-object ass t);;这里可以看到选择集里的元素已经变化
   ));;if
  ;(vla-update ass)
  (setq ass (vla-get-ActiveSelectionSet acadDocument))
  (vlax-dump-object ass t) ;;这里看到的当前选择集却不是上面的ass
  (princ)
);defun