如何在发布的程序中使用自己定义的线型文件？

mybeauty

我自己定义了一个线型文件 比如 abc.lin，发布程序时我不想让用户手工载入线型，如何自动使用我所定义的线型呢？

meflying

(defun loadline(lname fname / adoc msp ltps lname)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (setq ltps (vla-get-linetypes adoc))
  (setq ltp (vl-catch-all-apply 'vla-load (list ltps lname fname)))
  (if (vl-catch-all-error-p ltp)
    (princ "此线型已存在或没有此线型！")
    (princ)
  )
  (princ)
)