yjr111 发表于 2012-4-4 21:49:11

删除重叠块

本帖最后由 yjr111 于 2012-4-8 18:28 编辑

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

xiaoquansb 发表于 2012-4-5 18:12:35

支持源码，学习一下

bing00 发表于 2020-5-23 09:27:33

5楼 请发源码2323677998@qq.com3Q

RUBYLEE 发表于 2016-11-1 17:09:22

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

yjr111 发表于 2012-4-4 23:31:27

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

kwok 发表于 2012-4-5 13:26:04

支持一下....

yjr111 发表于 2012-4-5 18:54:27

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




注册 发表于 2012-4-5 18:58:15

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

vlisp2012 发表于 2012-4-5 21:49:14

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

CTC 发表于 2012-4-6 00:11:24

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

pzweng 发表于 2012-4-6 13:25:02

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

nt8011 发表于 2012-4-6 17:22:41

请楼主发给我一份，谢谢！nt8011@163.com
页: [1] 2 3 4 5 6 7 8
查看完整版本: 删除重叠块