在已选中的图元中删除某一个，怎么处理

朽木大师

如选通过ssget 选择了十个图元

(setq ObjSet (ssget))
(setq data(entsel))
........

增加判断，如data已在objset中，则将data从objset中删掉，如不在，则objset不变

这个代码怎么写啊

newbuser

1. (defun c:test ()
   
2.   (setq ss1 nil ss2 nil)
   
3.   (if (setq ss1 (ssget '((0 . "LINE,circle"))))
   
4.     (foreach itm (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss1)))
   
5.       (if (= (cdr (assoc 0 (entget itm))) "CIRCLE")
   
6.         (progn
   
7.           (or ss2 (setq ss2 (ssadd)))
   
8.           (ssadd itm ss2)
   
9.           (ssdel itm ss1)
   
10.         )
    
11.       )
    
12.     )
    
13.   )
    
14. )

(defun c:test ()<br />   (setq ss1 nil ss2 nil)<br />   (if (setq ss1 (ssget '((0 . "LINE,circle"))))<br />     (foreach itm (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss1)))<br />       (if (= (cdr (assoc 0 (entget itm))) "CIRCLE")<br />         (progn<br />           (or ss2 (setq ss2 (ssadd)))<br />           (ssadd itm ss2)<br />           (ssdel itm ss1)<br />         )<br />       )<br />     )<br />   )<br /> )

这是nonsmall阁下的同时获取两种选择集的范本，希望对您有所帮助

ll_j

看看函数ssdel。

ahwx0814

不管在不在选择集里面，都可以用ssdel 删除
(setq ObjSet (ssget))
(setq data (entsel))
(if data (ssdel (car data) ObjSet ))
(sssetfirst nil ObjSet);;测试

朽木大师

感谢，感谢，已了解