加载线型

依然小小鸟

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

(loadltname ' ...

你这个lisp拖动到CAD就行吗

丶俗人

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

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

lee50310

;;幫忙整理一下
;--------------------------------------------------
;;(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
)
;--------------------------------------------------

依然小小鸟

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

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

lee50310

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