剩下图元的选择

leeli

请问老师  在cad中框选一些图元以后 使用过滤删除一部分图元 怎么得到剩下的图元 以利于后面的操作

Andyhon

Remove then...
(command "Select" ss "r" ss1 "")
(setq ss2 (ssget "P"))

leeli

看不懂啊！  我的意思是这样的，我在cad中的操作是：
第一步， 选择一些图元 a b c d e f g h i 。
第二步，通过过滤删除b f
第三步，选择 a c d e g h i
第四步 ，通过过滤删除e i
得到 a c d g h
我不想做第三步
怎么实现？

Andyhon

第二步，通过过滤删除b f
第四步，通过过滤删除e i

没能理解为何得把 第二步、第四步 分开处理!?

贴出命令列讯息如何?

leeli

Andyhon 发表于 2015-11-5 08:49
第二步，通过过滤删除b f
第四步，通过过滤删除e i

因为我用的是过滤删除 要选择母图元

Andyhon

选 LINE
(ssget '((0 . "LINE")))

选 Circle
(ssget '((0 . "CIRCLE")))

leeli

不是我要的回答 还是谢谢你

ll_j

不好意思，刚才错了，应该是是ssdel。

http://www.mjtd.com/index.php?m= ... d=126&typeid=60

xyp1964

2. (defun c:tt ()
   
3.   (setq ss (ssget))
   
4.   (if (setq ss1 (ssget '((0 . "LINE")))) (command "erase" ss1 ""))
   
5.   (sssetfirst nil ss)
   
6.   (princ)
   
7. )

(defun c:tt ()<br />   (setq ss (ssget))<br />   (if (setq ss1 (ssget '((0 . "LINE")))) (command "erase" ss1 ""))<br />   (sssetfirst nil ss)<br />   (princ)<br /> )

leeli

xyp1964 发表于 2015-11-14 02:43

谢谢院长！