[求助]：在Lisp中，加载“线型”除使用Linetype函数外是否还有其它方法？

qjcpj · 发表于 2005-1-18 13:20:12

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

在Lisp中，加载“线型”可使用Linetype函数，例如：(command "-Linetype" "Load" Layer_Ltype "" "")，Layer_Ltype为线型名称，如"CENTER"。
除此之外是否还有其它方法？

LUCAS · 发表于 2005-1-18 16:43:38

;;直接說要甚麼較快有正確答案!
;;要先測試是否有這線型
(vla-load (vla-get-linetypes
(vla-get-activedocument (vlax-get-acad-object))
)
"CENTER"
"acad.lin"
)

复制代码

qjcpj · 发表于 2005-1-18 21:29:40

多谢LUCAS斑竹，你总能在本人最需要的时候拉上一把！
是这样的，前两日编辑修改以前的老程序，发现在图形数据库中无某一“线型” (如"CENTER")时，使用Entmake函数生成含"CENTER"线型的新图层时会出错，后来使用：(command "-Linetype" "Load" Layer_Ltype "" "")已修正错误，但我觉得在Lisp程序中过多使用command函数似乎不太专业，也不太好！故发此贴，目的是寻求多种方法。

LUCAS · 发表于 2005-1-19 08:06:18

也可參考這個看看
http://www.mjtd.com/bbs/dispbbs. ... ID=12482&page=3

qjcpj · 发表于 2005-1-19 13:32:33

多谢，又学了一招！

Alan8088 · 发表于 2006-2-16 08:23:37

有没有方式直接可以引用CAD的线型对话框

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：在Lisp中，加载“线型”除使用Linetype函数外是否还有其它方法？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子