自动建层的LISP

LISP自动建立图层的代码！~

将下列代码粘贴到TXT文件中，将图层换成你想建的，并把后缀改为LSP就可以使用：





(defun c:jc()

(command "layer" "m" "t100" "c" "7" "" "")

(command "layer" "m" "kzd" "c" "6" "" "")

(command "layer" "m" "t200" "c" "6" "" "")

(command "layer" "m" "t300" "c" "6" "" "")

(command "layer" "m" "t400" "c" "1" "" "")

(command "layer" "m" "t500" "c" "5" "" "")

(command "layer" "m" "t501" "c" "7" "" "")

(command "layer" "m" "t600" "c" "4" "" "")

(command "layer" "m" "t700" "c" "2" "" "")

(command "layer" "m" "t800" "c" "5" "" "")

(command "layer" "m" "t801" "c" "7" "" "")

(command "layer" "m" "yzh" "c" "3" "" "")

(command "layer" "m" "gxyz" "c" "5" "" "")

(command "layer" "m" "zmd" "c" "6" "" "")

(command "layer" "m" "dlss" "c" "30" "" "")

(command "layer" "m" "jj" "c" "2" "" "")

(command "layer" "m" "sx" "c" "4" "" "")

(command "layer" "m" "dmtz" "c" "1" "" "")

(command "layer" "m" "gcd" "c" "1" "" "")

(command "layer" "m" "jqx" "c" "1" "" "")

(command "layer" "m" "zb" "c" "3" "" "")

(command "layer" "m" "tk" "c" "7" "" "")

)