社区 › Auto Lisp › 如何加载线型。。。。

narendra 发表于 2022-7-5 20:29:54

如何加载线型。。。。

大家好，
我的客户提供了一个。林文件，我想在autocad中加载。我如何加载。。我知道加载线型的唯一方法是appload，但一旦我这样加载，出现在我的cad文件中，但不出现在其他系统上，我该怎么做才能在我的组的所有系统上显示线型。

dbroada 发表于 2022-7-5 20:52:25

我不知道如何使用LISP加载线型，但可以从命令行键入
-LINETYPE
LOAD
<name of file>

ReMark 发表于 2022-7-5 20:54:00

lisp例程必须包括希望用户加载的线型文件的路径。我假设这会在你的网络上，你的其余共享文件都存储在那里。

BIGAL 发表于 2022-7-5 21:17:26

lisp版本注意。lin文件已通过类似配置的备注保存到您的服务器，或保存到每台电脑上的一个目录，包含在“支持文件”列表中。
 

(setqdoc (vla-get-activedocument (vlax-get-acad-object)))
(defun loadLinetype (doc LineTypeName FileName)
(if (and
       (not (existLinetype doc LineTypeName))
       (vl-catch-all-error-p
         (vl-catch-all-apply
         'vla-load
         (list
             (vla-get-Linetypes doc)
             LineTypeName
             FileName
         )
         )
       )
   )
   nil
   T
)
)
(defun existLinetype (doc LineTypeName / item loaded)
(vlax-for item (vla-get-linetypes doc)
   (if (= (strcase (vla-get-name item)) (strcase LineTypeName))
   (setq loaded T)
   )
)
)
;load missing linetypes
;;; returns: T if loaded else nil
(loadLinetype doc "Fence" "custom.lin")
(loadLinetype doc "Tree" "custom.lin")

narendra 发表于 2022-7-5 21:22:54

谢谢大家。。。。。。。。。。。。

Lee Mac 发表于 2022-7-5 21:41:49

我的Load Linetypes函数可能也会引起一些兴趣。

查看完整版本: 如何加载线型。。。。