[求助]帮个忙，关于定义图层的
 

[求助]帮个忙，关于定义图层的
www.dimcax.com

我切图出来了。0层反而改变了。墙路什么都没有！
d
又向高手们学习了一些！
d
。。。。。。怎么没人理了。版主们能解决下吗？能的话给看看！
d
;;;线型需要先加载！
(defun ltype-load (ltname ltfile)
(vl-catch-all-apply
'vla-load
(list (vla-get-linetypes (vla-get-activedocument (vlax-get-acad-object)))
ltname
ltfile
)
)
)
(defun c:la ( )
(setvar "cmdecho" 0)
(if (=(tblobjname "layer" "墙路") nil)
(progn
(ltype-load "dot" "acadiso.lin")
(entmake (list
'(0 . "layer")
'(100 . "acdbsymboltablerecord")
'(100 . "acdblayertablerecord")
'(6 . "dot") ;线型
'(62 . 3) ;颜色
'(70 . 0) ;图层状态
(cons 2 "墙路") ;图层名
)
)
)
)
(setvar "cmdecho" 1)
(princ)
)
西北凡人：