线形自动加载

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

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

lzfat · 发表于 2003-5-30 14:35: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

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

chui · 发表于 2003-6-1 12:32: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装有线型的文件

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

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

线形自动加载

发表回复

精选推荐