社区 › AutoLISP/Visual LISP 编程技术 › 自定义创建图层和颜色

gduthy 发表于 2020-4-10 10:39:40

自定义创建图层和颜色

(defun makelay (layname CO)                ;创建图层及颜色
(SETVAR "CMDECHO" 0)
(vl-load-com)
(SETQ CHKLAY (TBLSEARCH "LAYER" layname))
(IF (= CHKLAY NIL)
    (vl-cmdf "LAYER"
             "N"
             layname
             "C"
             (itoa CO)
             layname
             "LW"
             "0"

             layname
             ""
    )
    (vl-cmdf "LAYER"
             "C"
             (itoa CO)
             layname
             "LW"
             "0"

             layname
             ""
    )
)
(command "layer" "T" layname "ON" layname "")
(setvar "clayer" layname)
)

查看完整版本: 自定义创建图层和颜色