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 图层
声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。