overkill使用方法

dcl1214

1. (defun $overkill$ (ss ents)  ;($overkill$(ssget "X")nil)
   
2.   (if ss
   
3.     ()
   
4.     (if        ents
   
5.       (progn
   
6.         (SETQ SS NIL)
   
7.         (setq ss (ssadd))
   
8.         (mapcar (function (lambda (x) (ssadd x ss))) ents)
   
9.       )
   
10.     )
    
11.   )
    
12.   (if (AND ss (> (SSLENGTH SS) 0))
    
13.     (progn
    
14.       (sssetfirst nil ss)
    
15.       (vla-sendcommand
    
16.         (vla-get-ActiveDocument (vlax-get-acad-object))
    
17.         "_.-overkill\r_Ignore\r*\r_endtoend\r\rparTial\r\r_Plines\r\rFuzz\r0.0001\r\r"
    
18.       )
    
19.     )
    
20.   )
    
21. )

(defun $overkill$ (ss ents)  ;($overkill$(ssget "X")nil)<br />   (if ss<br />     ()<br />     (if        ents<br />       (progn<br />         (SETQ SS NIL)<br />         (setq ss (ssadd))<br />         (mapcar (function (lambda (x) (ssadd x ss))) ents)<br />       )<br />     )<br />   )<br />   (if (AND ss (> (SSLENGTH SS) 0))<br />     (progn<br />       (sssetfirst nil ss)<br />       (vla-sendcommand<br />         (vla-get-ActiveDocument (vlax-get-acad-object))<br />         "_.-overkill\r_Ignore\r*\r_endtoend\r\rparTial\r\r_Plines\r\rFuzz\r0.0001\r\r"<br />       )<br />     )<br />   )<br /> )

hh_lj007

消除重元，在2015以下版本中命令参数不一样吗？

wzjck01

学习，学习。

统一网名

请问一下能不能在删除重叠的的对象后把剩余对象输出到一个选择集中。