如何用lisp/vlisp程序加载自定义的线型文件lin

hln_zqy

我有一个db.lin线型文件，如何将该线型自动加载到每个新建或新打开的文件中？

王咣生

(defun c:test ( / file app doc ltps)
  (setq file "acad.lin")
  (setq app (vlax-get-acad-object)
 doc (vla-get-activedocument app)
 ltps (vla-get-linetypes doc))
  (vl-catch-all-apply 'vla-load (list ltps "*" (findfile file)))
  (princ)
)

hln_zqy

执行上述程序，在autocad 2004下提示“; 错误: no function definition: VLAX-GET-ACAD-OBJECT”

wbsab

先运行这个试试(vl-load-com)

xcajcj

(setvar "expert" 3)
(command ".linetype" "l" "*" "db.lin" "")

上述代码加载db.lin中的所有线型。。。

绝对有效。。。

lyd2003001

5楼的好象是有效的.不过,请问怎么引入文件路径啊?

lyd2003001

刚找到答案了,原来是把\改为/就行了。捆扰我好久。

xcajcj

lyd2003001发表于2008-2-28 16:52:005楼的好象是有效的.不过,请问怎么引入文件路径啊?

我一般都把线型文件放在CAD支持路径下的，所以没考虑路径，如果db.lin在D:\123目录下，改为：

(setvar "expert" 3)
(command ".linetype" "l" "*" "D:\\123\\db.lin" "")

或

(setvar "expert" 3)
(command ".linetype" "l" "*" "D:/123/db.lin" "")

hln_zqy

好用啊！多谢！！！！