AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 Io15010 [分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 Easase10 [分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 Oiu15010 [分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 2020-211 [分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 Oo-2-110 [分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 BPl3tjj

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

2頁(共2頁) 上一頁  1, 2

向下

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

發表 由 shenhung 于 2011-02-28, 20:47

主題回顧 :

如果各位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 ")")))))
)

shenhung
shenhung
高級會員
高級會員

文章總數 : 248
年齡 : 53
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 6201
威望值 : 991
注冊日期 : 2009-06-03
男 摩羯座 馬

回頂端 向下


[分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 Empty 回復: [分享]不想開一張新圖.就載入一堆的lisp程式.

發表 由 judyyai 于 2014-04-12, 23:02

Tiger&蘋果爸 寫到:
蔣秉澔 寫到:我會了,謝謝!!只是每次輸入指令都會出現這個:
這是2014版本開始的「保護措施(新功能)」,請將你的程式路徑加入到「可信任位置」,以後就不會再顯示。
[分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 0312

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

____________________________________________________________________________________
[分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 Eai-1a11 [分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 Ia15010 [分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 Ziao110 [分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 BPl3tjj
judyyai
judyyai
管理顧問
管理顧問

文章總數 : 7733
年齡 : 43
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2019(開始於2019年底末月)
AutoCAD基礎篇等級 : 10星級
積分 : 393
最佳解答 : 1
經驗值 : 28688
威望值 : 3539
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

[分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 Empty 回復: [分享]不想開一張新圖.就載入一堆的lisp程式.

發表 由 Tiger&蘋果爸 于 2014-04-13, 19:50

judyyai 寫到:
Tiger&蘋果爸 寫到:
蔣秉澔 寫到:我會了,謝謝!!只是每次輸入指令都會出現這個:
這是2014版本開始的「保護措施(新功能)」,請將你的程式路徑加入到「可信任位置」,以後就不會再顯示。
[分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 0312

原來如此~
一開始只看重點,剛剛重新閱讀一遍
現在看到了 
謝謝蘋爸~  
也可以將他關閉喔!
輸入 SECURELOAD系統變數 設置為 0 即可~
 認同 

____________________________________________________________________________________
[分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 Oo-2-110 [分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 Ia15010 [分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 Ziao1510 [分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 19338
年齡 : 44
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 76555
威望值 : 14627
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

2頁(共2頁) 上一頁  1, 2

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 Uos15010 [分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 BPl3tjj [分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 Ziao1510 [分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 Oo-2-110 [分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 Oooo-110 [分享]不想開一張新圖.就載入一堆的lisp程式. - 頁 2 2020-211