为啥这段程序是错误的？求批改！
(defun c:lay(setq lay_dim (getstring "\n尺寸图层 <dim>: "))
(if (= lay_dim "") (setq lay_dim "DIM"))
(setq lay_txt (getstring "\n文字图层 <txt>: "))
(if (= lay_txt "") (setq lay_txt "TXT"))
(setq lay_hat (getstring "\n剖面线图层 <hat>: "))
(if (= lay_hat "") (setq lay_hat "HAT"))
(chklay lay_dim 3 "DIMENSION")
(chklay lay_txt 6 "TEXT")
(chklay lay_hat 5 "HATCH")
)
(defun chklay(layname cc layss)
(setq k_lay (tblsearch "layer" layname))
(if (null k_lay) (command "-layer" "n" layname "c" cc layname ""))
(setq ss (ssget "X" (list (cons 0 layss))))
(command "chprop" ss "" "la" layname "")
)
(princ "\n---------->> lay<<----------")
(prin1)
加个判断试试：
(defun chklay (layname cc layss)
(setq k_lay (tblsearch "layer" layname))
(if (null k_lay) (command "-layer" "n" layname "c" cc layname ""))
(if (setq ss (ssget "X" (list (cons 0 layss))))
(command "chprop" ss "" "la" layname "")
)
)
页:
[1]