删除重叠块

yjr111

删除重叠块，不好用的请说话......

2. ;;;;;;;;;;;;删除重叠块 by yjr111 2012-4-4;;;;;;;;;;;;
   
3. ;;;;;;;;;;;;ssget "x" 真的需要吗?;;;;;;;;;;;;;;;;;;;;
   
4. (defun c:deldumpk (/ ss n ess e1 s1 pt lst_p lst_e ksl key lstt)
   
5.   (setvar "CMDECHO" 0)
   
6.   (prompt"\n选择需要检查的范围：")
   
7.   (if (setq ss (ssget '((0 . "INSERT"))))
   
8.     (progn
   
9.       (setq n        0
   
10.             ess        (ssadd)
    
11.       )
    
12.       (while (< n (sslength ss))
    
13.         (setq e1 (ssname ss n)
    
14.               s1 (entget e1)
    
15.         )
    
16.         (setq pt (getbound e1));;;最好不要用插入点

;;;;;;;;;;;;删除重叠块 by yjr111 2012-4-4;;;;;;;;;;;;<br /> ;;;;;;;;;;;;ssget "x" 真的需要吗?;;;;;;;;;;;;;;;;;;;;<br /> (defun c:deldumpk (/ ss n ess e1 s1 pt lst_p lst_e ksl key lstt)<br />   (setvar "CMDECHO" 0)<br />   (prompt"\n选择需要检查的范围：")<br />   (if (setq ss (ssget '((0 . "INSERT"))))<br />     (progn<br />       (setq n        0<br />             ess        (ssadd)<br />       )<br />       (while (< n (sslength ss))<br />         (setq e1 (ssname ss n)<br />               s1 (entget e1)<br />         )<br />         (setq pt (getbound e1));;;最好不要用插入点

（请原下载的进行更新2012-4-8）

xiaoquansb

支持源码，学习一下

bing00

5楼 请发源码2323677998@qq.com  3Q

RUBYLEE

谢谢，很好用！谢谢楼主的无私！感激

yjr111

程序已经预留lst_e，不过在完全重叠情况下可以认为无需比较块名

kwok

支持一下....

yjr111

完善一下，修正了几个bug，增加防误删对应功能，自己用起来感觉挺爽，非源码，需要的话留言.....

注册

呵呵，虽然用的比较少，但是换是感谢你，谢谢

vlisp2012

我想要源码啊，楼主。good20102012@126.com。
先谢了！！！！！！！

CTC

我也想要源码。。429014673@qq.com   谢谢了

pzweng

楼主发给我一份，20787433@qq.com   3Q

nt8011

请楼主发给我一份，谢谢！nt8011@163.com