【AutoLISP】設定載入外掛程式路徑

進入工具>選項，打開視窗。

或是輸入指令options開啓視窗

要載入外掛程式必須將路徑加入到下圖三個項目中

可以用手動的方式一個一個增加路徑，但加入路徑時不會自動讀取子資料夾，所以在操作上有點麻煩，還好久久才會做一次這個動作，但是我為了省去每次都要重來一遍的麻煩，自己寫了一個LISP程式，可以快速執行這件事。

--

(DEFUN AddSupportPath (dir / tmp Cpath)

(VL-LOAD-COM);returns nil

(SETQ Cpath (GETENV "ACAD") tmp (STRCAT ";" dir ";"))

(IF (NOT (VL-STRING-SEARCH dir cpath))

(SETENV "ACAD" (STRCAT dir ";" Cpath)))

(PRINC)

)

(AddSupportPath "C:\\lisp")

(vl-load-com);returns nil

(defun _CheckAddTrustedPath (newPath / trusted)

;; Example:

;; (_CheckAddTrustedPath "\\\\Server\\Share\\Folder")

(if (and (setq trusted (getvar 'trustedpaths))

(not (vl-string-search newPath trusted))

)

(setvar 'trustedpaths

(strcat (vl-string-right-trim ";" trusted) ";" newPath)

)

)

)

(_CheckAddTrustedPath "C:\\lisp")

--

因為是很久以前寫的程式，已經忘記是完全自己寫的還是改別人的，總之這個程式的功能除了加入自己擺放LISP程式的位置外，還自動將載入順序移到最前面，確保載入時會優先載入。