【文件属性】：
文件名称：Lisp增加图层，切换图层，选物改层-swg-zmzk
文件大小：2KB
文件格式：LSP
更新时间：2022-12-10 15:26:28
lisp入门
(defun c:zjtc()
(princ "\n增加1-9号图层")
(setvar "cmdecho" 0) ; 关闭命令提示
(Setq osmode_bak (getvar "osmode")) ;_记录捕捉
(Setvar "osmode" 0) ;_关闭捕捉
(command "layer" "new" "_1" "c" "7" "_1" "")
(command "layer" "new" "_2" "c" "5" "_2" "")
(command "layer" "new" "_3" "c" "6" "_3" "")
(command "layer" "new" "_4" "c" "4" "_4" "")
(command "layer" "new" "_5" "c" "3" "_5" "")
(command "layer" "new" "_6" "c" "2" "_6" "")
(command "layer" "new" "_7