你好，丹·艾伦。
这是一个很好的功能例行程序。谢谢分享
我和你一样，在第1层到第7层、252层、253层和254层中工作
如果从这些层的检查程序开始就更好了
我用这段代码试过了，但选择部分（例程的美妙之处）在过程中丢失了…
- (defun C:make001 ()
- (prompt "\t* Set : layer 001 : red !")
- (setq searchlayer1 (tblsearch "layer" "001"))
- (if (= searchlayer1 nil) (progn (command "-layer" "m" "001" "c" "001" "" "")) (command "-layer" "t" "001" "s" "001" "c" "red" "" ""))
- (command "-layer" "lw" "0.18" "" "" ) (command "-color" "bylayer") (prin1) )
删除选择部分将丢失的代码。
- (defun c:1 (/ p1) (c:make001) (XYZ_laycmnd "001") (princ))
| 
