求助，怎么在打开dwg的时候自动加载指定LIN文件中的所有线型

sunqv

求助，怎么在打开dwg的时候自动加载指定LIN文件中的所有线型
我有个线型文件，在D盘的根目录下       D:XX.LIN
Lin线型文件中定义的线型定义如下：

*FK,非空
A,100,100
*KG,空管
A, 2,-1
*GN,沟内
A, 1,-1
*LN,廊内
A, 1,-1
*DG,顶管
A,4,-3


请问我怎么才能写代码让dwg自动加载这个线型文件中的全部线型？

yangchao2005090

同问同问同问同问同问

前生

(foreach lt '("x1" "x2" "x22" "x3" "x4" "X")
  (if (not (tblsearch "ltype" lt))
    (vla-load (vla-get-linetypes
                (vla-get-activedocument (vlax-get-acad-object))
              )
              lt
              "d:/xx.lin"
    )

  )
)

sunqv

前生 发表于 2021-3-21 23:39
(foreach lt '("x1" "x2" "x22" "x3" "x4" "X")
  (if (not (tblsearch "ltype" lt))
    (vla-load (vla ...

"x1" "x2" "x22" "x3" "x4" "X"
这些是不是线型名

sunqv

搞定了，谢谢老大