cad LSP 快速创建新图层

1、(defun C:123() (princ "\n 创建“123”图层&孥恶膈茯quot;) ; if Layer "肛舀辨乔DIM" doesn't exist create it (if (= (tblsearch "Layer" "123") nil) (command "Layer" "new" "123" "color" "7" "123" "") ) (setvar "CLAYER" "123")

2、cad中运行上面的程序

3、图层中自动生成123 图层