如何加载线型。。。。

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文件已通过类似配置的备注保存到您的服务器，或保存到每台电脑上的一个目录，包含在“支持文件”列表中。

copy


(setq  doc (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函数可能也会引起一些兴趣。

[编程交流] 如何加载线型。。。。

发表回复

精选推荐