换层删层

liubiwang

换层删层      供大家研讨



提供大家一个换层删层的实用程序，程序如下：

(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回车