[求助]如何将(ssget)产生的选择集转换为vlax-for能用的选择集

NetBee

需要将（ssget）产生的选择在vlax-for的循环体中操作，不知如何对LISP的选择集转换为VBA的选择集

如：
(setq s1(ssget))
(setq s2(ssget))
现在要针对S1操作。而vla-get-ActiveSelectionSet只能针对当前选择集。

ygrzz

entdel s2 可行吗

mccad

用完(setq s1(ssget))后，就先vla-get-ActiveSelectionSet把这个当前选择集保存起来，
再(setq s2(ssget))

狂刀无痕

AddItems 方法 添加一个或多个对象到指定选择集。 参阅 | 示例 语法 object.AddItems Items Object SelectionSet 使用该方法的对象。 Items Variant[变体] 添加到选择集的对象数组。 说明 选定的对象如果原来就存在于选择集中会继续留在选择集中。要替换选择集中的对象、清除选择集，可使用 Clear 方法，然后再添加对象。 要从选择集中移除个别对象，可使用 RemoveItems 方法。

ygrzz

看见AUTOLISP就亲切，其余的看如天书~~

NetBee

狂刀无痕发表于2007-2-14 18:01:00AddItems 方法添加一个或多个对象到指定选择集。参阅 | 示例语法 object.AddItems Items ObjectSelectionSet使用该方法的对象。 ItemsVariant添加到选择集的对象数组。 说明 选定的对象如果原来

看来还是得遍历呀！！！！！！！！
当初就因为用While来处理选择集速度没有用VLX－FOR快，才想将LISP选择集转换的。

王咣生

测试一个lsp

2. (defun c:test ( / app doc sels ss len i lst en eo  arr name sel it)
3.   (setq app (vlax-get-acad-object)
4. doc (vla-get-activedocument app)
5. sels (vla-get-selectionsets doc))
6.   (prompt  "\n选择对象:")
7.   (setq ss (ssget))
8.   (if ss
9.     (progn
10.       (setq len (sslength ss)
11.      i 0
12.      lst '())
13.       (repeat len
14. (setq en (ssname ss i)
15.        eo (vlax-ename->vla-object en))
16. (setq lst (append lst (list eo)))
17. (setq i (1+ i))
18.       );repeat
19.       ;建立对象数组
20.       (setq arr (vlax-make-safearray vlax-vbObject (cons 0 (- (length lst) 1)))
21.      arr (vlax-safearray-fill arr lst)
22.      arr (vlax-make-variant arr))
23.       
24.       ;建立空选择集
25.       (setq name "myset")
26.       (if (vl-catch-all-error-p (setq sel (vl-catch-all-apply 'vla-item (list sels name))))
27. (setq sel (vla-add sels name))
28. (vla-clear sel)
29.       );if
30.       ;添加实体
31.       (vla-AddItems sel arr)
32.       (vlax-for it sel
33. (princ (strcat "\n" (vlax-get-property it 'ObjectName)))
34.       )
35.       ;删除选择集
36.       (vla-delete sel)
37.     )
38.   );if
40.   (princ)
41. )

(defun c:test ( / app doc sels ss len i lst en eo  arr name sel it)   (setq app (vlax-get-acad-object) doc (vla-get-activedocument app) sels (vla-get-selectionsets doc))   (prompt  "\n选择对象:")   (setq ss (ssget))   (if ss     (progn       (setq len (sslength ss)      i 0      lst '())       (repeat len (setq en (ssname ss i)        eo (vlax-ename->vla-object en)) (setq lst (append lst (list eo))) (setq i (1+ i))       );repeat       ;建立对象数组       (setq arr (vlax-make-safearray vlax-vbObject (cons 0 (- (length lst) 1)))      arr (vlax-safearray-fill arr lst)      arr (vlax-make-variant arr))              ;建立空选择集       (setq name "myset")       (if (vl-catch-all-error-p (setq sel (vl-catch-all-apply 'vla-item (list sels name)))) (setq sel (vla-add sels name)) (vla-clear sel)       );if       ;添加实体       (vla-AddItems sel arr)       (vlax-for it sel (princ (strcat "\n" (vlax-get-property it 'ObjectName)))       )       ;删除选择集       (vla-delete sel)     )   );if   (princ) )