cad LSP 快速创建新图层

1、(defun C:123()      (princ "\n 创建“123”图层")            ; 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 图层