依然小小鸟 发表于 2021-6-1 08:53:24

丶俗人 发表于 2021-6-1 01:20
我不太会,看了半天翻译才理解一点点..反正这样是可以用了...也不知道对不对.哈哈

(loadltname ' ...

你这个lisp拖动到CAD就行吗

丶俗人 发表于 2021-6-6 22:10:18

依然小小鸟 发表于 2021-6-1 08:53
你这个lisp拖动到CAD就行吗

嗯,我是把他放在了启动项里面,每次打开或者创建文件时都会自动加载线型~至于有没有覆盖加载我就不太清楚了.没有深入了解.{:1_1:}

lee50310 发表于 2021-6-7 04:18:00

本帖最后由 lee50310 于 2021-6-7 11:13 编辑


;;幫忙整理一下
;--------------------------------------------------
;;(1)加載線型   指令:test
(defun c:test()
      (foreach lt '("CENTER" "DASHDOT" "DASHED" "DIVIDE" "HIDDEN")
         (if (not (tblsearch "ltype" lt))
               (vla-load (vla-get-linetypes (vla-get-activedocument (vlax-get-acad-object))) lt "acadiso.lin")
         )
       )
)
;--------------------------------------------------

;--------------------------------------------------
;;(2)重加載線型   指令:test2
(defun c:test2()
(loadltname '("CENTER" "DASHDOT" "DASHED"))
)
;;
(defun loadltname ( lt / cm s1 )
(setq cm (getvar 'CMDECHO))
(Cond
    ((= (type lt) 'str)
      (if (not (tblsearch "LTYPE" lt))
      (vla-load (vla-get-Linetypes (vla-get-ActiveDocument (vlax-get-acad-object))) lt "acadiso.lin")
      (progn (setvar 'CMDECHO 0)(vl-cmdf "-linetype" "load" lt (findfile "acadiso.lin") "Y" "")(setvar 'CMDECHO cm))
      )
    )
    ((= (type lt) 'list)(foreach s1 lt (loadltname s1)))
) t
)
;--------------------------------------------------


依然小小鸟 发表于 2021-6-8 08:38:47

lee50310 发表于 2021-6-7 04:18
;;幫忙整理一下
;--------------------------------------------------
;;(1)加載線型   指令:test


大神 你对这个帖子感兴趣吗 ？

lee50310 发表于 2021-6-8 13:59:42

本帖最后由 lee50310 于 2021-6-9 09:08 编辑

是的,整理一下方便執行程式

xxyyzzlg 发表于 2024-7-31 11:19:36

感谢分享，重新加载还是很有意义的。 不同版本的CAD，相同名字的cad线型，比例不同

fengyu6913 发表于 2024-8-20 10:49:42

lee50310 发表于 2021-6-8 13:59
是的,整理一下方便執行程式

感谢分享，太想要这个功能了！

清水白粥 发表于 2024-12-31 22:13:55


感谢分享，太需要这个功能了！

puzb2023 发表于 2025-1-2 09:37:21

感谢分享，重新加载还是很有意义的。 不同版本的CAD，相同名字的cad线型，比例不同
页: 1 [2]
查看完整版本: 加载线型