【转帖】换层删层
 

换层删层
www.dimcax.com
换层删层
管理提醒： 本帖被 tandongchi 从 建筑设计cad专区 移动到本区(2007-10-08) 提供大家一个换层删层的实用程序，程序如下：
(defun c:er () ;删除层
(setq a (getstring "要删除的层名:"))
(er a)
)
(defun er (b / a_) ;本程序在程序中用(er "层名")
(setq a_ nil a_ (ssget "x" (list (cons 8 b))))
(if (= a_ nil)()
(command "erase" a_ "")
))
(defun c:hc () ;用于换层
(setq a (getstring "要删换的层名:") a1 (getstring "要换成的层名:"))
(setq en (ssget "x" (list (cons 8 a))) i 0 len (sslength en))
(repeat len
(setq _en (entget (ssname en i)) i (+ i 1))
(setq _en (subst (cons 8 a1) (assoc 8 _en) _en))
(entmod _en)
)
(command "layer" "s" "0" "")
)
你将程序拷贝到你的cad下，给它一个名如er.lsp在命令下加载(load"er")回车就可使用了。删除一层用er回车，换层用hc回车
gbg

好，有对圆全图批大小修改的吗？你有太多才能，为我编个吧，要求不为过份呀

对圆的直径进行修改,将gcir.rar考到你的cad下解压成gcir.lsp.在命令下加载(load"gcir")回车,在命令下输入gcir回车,软件提示:输入要改园的直径:用键盘输入要改园的直径,回车软件提示:要改后园的直径:输入要改后的直径,你用键盘输入要改后的直径,软件提示:选取要改的园,你可用框选可包含其它的图素.
软件自动找到你要改的园直径,并在园心画一园饼,软件提示要改y n (y),当你回车就修改,输入n回车不修改,完后自动退出.


又学到点东西,谢啦!

好东西，编程就是好。

thank you

谢谢，好东西

thanks!!!

看来我也要多多学习这方面的东西才行啊，

我现在很需要这些玩意，