yang686526

[求助]关于新建图层的一个问题
www.dimcax.com
[求助]关于新建图层的一个问题
帮我看一下我程序哪里出了点问题：
我想新建一个名为"cen"，线型为center的图层，但是用下面程序老是新建不了。请教怎么修改一下可以解决这个问题
(defun c:nn ()
(make_lay "cen" 1 "center")
(princ)
)
(defun make_lay (name color lt)
(entmake (list
'(0 . "layer")
'(100 . "acdbsymboltablerecord")
'(100 . "acdblayertablerecord")
'(70 . 0)
'(290 . 1)
(cons 2 name)
(cons 6 lt)
(cons 62 color)
)
)
(princ)
)
d
线型需要先加载！！
d
谢了，除可用command "linetype"加载外还有没有其他方法呢？
d
vla-load
d
具体怎么用这个vla-load？找不到这个函数的用法
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
)
)
)
;;test
(ltype-load "dot" "acadiso.lin")