[分享]不想開一張新圖.就載入一堆的lisp程式.

主題回顧 :

如果各位user ,有自定規畫一些程式.
一般都是在acaddoc.lsp裡 加入(load "xxx")某某lisp 這一行.
如此.會一開新圖..lisp就會被自動載入..
等程式越來越多.一開新圖.就會被載入一堆的程式.
而佔掉一些記憶體資源


這邊有個簡單的方法.將一般(load "xxxx")
改成
 
(defun qload ()(lisp  指令名稱))<--lisp語法.qload為自定義副程式

這樣.就只有用到這個指令的時後.  lisp程式才會被載入.


一些範例qload 的範例

(defun c:dimh ()(qload "dimhv" "dimh"))
(defun c:dimv ()(qload "dimhv" "dimv"))
(defun c:tol  ()(qload "tol"   "tol"))

lisp 直接指定路徑也行

(defun c:dimh ()(qload "c:\\mylsp\\dimhv" "dimh"))
(defun c:dimv ()(qload "c:\\mylsp\\dimhv" "dimv"))
(defun c:tol  ()(qload "c:\\mylsp\\tol"   "tol"))


若您lsp.已經有固定的目錄.則會建議..直接在qload內..指定lsp目錄的路徑.載入速度會加快.

例如:
(defun qload(lsp_name lsp_cmd)
 (load (strcat "c:\\mylsp\\" lsp_name))
 (setq rtn (eval (read (strcat "(c:" lsp_cmd ")")))))
)

代碼:


;----------------副程式.--------------------------------------
;;快速load lsp並執行-
;;qload 副程式請放acaddoc.lsp  
;;
(defun qload(lsp_name lsp_cmd)
  (load lsp_name)
  (setq rtn (eval (read (strcat "(c:" lsp_cmd ")")))))
)



Tiger&蘋果爸 寫到:

蔣秉澔 寫到:我會了，謝謝!!只是每次輸入指令都會出現這個：

這是2014版本開始的「保護措施(新功能)」，請將你的程式路徑加入到「可信任位置」，以後就不會再顯示。

原來如此～
一開始只看重點,剛剛重新閱讀一遍
現在看到了  
謝謝蘋爸～  

judyyai 寫到:

Tiger&蘋果爸 寫到:

蔣秉澔 寫到:我會了，謝謝!!只是每次輸入指令都會出現這個：

這是2014版本開始的「保護措施(新功能)」，請將你的程式路徑加入到「可信任位置」，以後就不會再顯示。

原來如此～
一開始只看重點,剛剛重新閱讀一遍
現在看到了 
謝謝蘋爸～  

也可以將他關閉喔！
輸入 SECURELOAD系統變數 設置為 0 即可～