社区 › AutoLISP/Visual LISP 编程技术 › 线形自动加载

chui 发表于 2003-5-29 21:24:00

线形自动加载

请问各位，我已经编好了线形文件，把它复制到acad.lin文件中，但是每次使用都要打开线形对话框进行加载，请问如何在lisp中写程序自动加载所有已经定义的线形呢？

lzfat 发表于 2003-5-30 14:35:00

好像没有这个功能

好像没有这个功能吧，看看哪位朋友可以解决，谢谢！

meflying 发表于 2003-5-30 15:00:00

可以

(vl-load-com)
(defun c:loadline(/ adoc msp ltps ltp)
(setq adoc (vla-get-activedocument (vlax-get-acad-object)))
(setq ltps (vla-get-linetypes adoc))
(vla-add ltps "Center")
)
;Center为线型名。

陈伯雄 发表于 2003-5-30 16:24:00

不必在程序中作，使用图形模版技术就很好了...

chui 发表于 2003-5-31 22:05:00

meflying，加载了线形，外观都是“continuous"样子的！

本帖最后由 作者 于 2003-5-31 22:05:46 编辑

我用了这个程序，线形是可以加载了，但是显示的都不是加载的线形呢？都是类世“continuous”的线呢？请在帮助！！

chui 发表于 2003-6-1 12:32:00

meflying，需要你的帮助！

meflying 发表于 2003-6-2 08:45:00

不好意思，弄错了

(vl-load-com)
(defun c:loadline(/ adoc msp ltps ltp)
(setq adoc (vla-get-activedocument (vlax-get-acad-object)))
(setq ltps (vla-get-linetypes adoc))
(vla-load ltps "Center" "acad.lin")
)
;acad.lin装有线型的文件

chui 发表于 2003-6-2 18:15:00

感谢:meflying,问题已经解决!!

[此贴子已经被作者于2003-6-2 18:15:54编辑过]

查看完整版本: 线形自动加载