[求助]ZZXXQQ能帮我编个可以是删除或改变层同一种圆孔的LSIP吗

CAD83

ZZXXQQ，能帮我编个可以是删除或改变层同一种圆孔的LIsP吗?急用，谢谢！！

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

CAD83

改变同层中同直径圆的直径在cad2007不能用,改同层直径后（或不改大小时）都可以自动改变到新开的一层，能再帮改下吗？谢谢ZZXXQQ!!!

coolpoom

以上两程式在2004出错

ZZXXQQ

2楼已改，再试试。

coolpoom

删除同一种圆孔的LISP 如果能做到点击某一圆就自动删除且在命令行提示图层与孔径就好多了，不用点选之后还要回车来确认！

coolpoom

本人刚改了一下程式：

2. ;删除图中同层中所选同样直径的圆
3. (defun c:tt ()
4.   (setvar "CMDECHO" 0)
5.   (if (and (setq dd (entsel "选取已知圆:")))
6.     (progn
7.     (setq ss (entget (car dd))
8.             rl (assoc 40 ss)
9.             lnml (assoc 8 ss))
10.     (if (> (sslength (setq ss1 (ssget "X" (list '(0 . "CIRCLE") lnml rl)))) 1)
11.      (command ".erase" ss1 "")
12.     )
13.   ))
14.   (setq rad (cdr rl))
15.   (setq lad (cdr lnml))
16.   (setq num1 (sslength ss1))
17. (print
18.   (strcat "已删除" lad "层及直径=" (rtos rad 2 3) "的圆" (rtos num1 2 0) "个"))
19.   (setvar "CMDECHO" 1)
20.   (princ)
21. )

;删除图中同层中所选同样直径的圆 (defun c:tt ()   (setvar "CMDECHO" 0)   (if (and (setq dd (entsel "选取已知圆:")))     (progn     (setq ss (entget (car dd))             rl (assoc 40 ss)             lnml (assoc 8 ss))     (if (> (sslength (setq ss1 (ssget "X" (list '(0 . "CIRCLE") lnml rl)))) 1)      (command ".erase" ss1 "")     )   ))   (setq rad (cdr rl))   (setq lad (cdr lnml))   (setq num1 (sslength ss1)) (print   (strcat "已删除" lad "层及直径=" (rtos rad 2 3) "的圆" (rtos num1 2 0) "个"))   (setvar "CMDECHO" 1)   (princ) )