这是一个很好的功能例行程序。谢谢分享
我和你一样，在第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))
页:
1
[2]