自动重新加载LISP

Olhado_ · 发表于 2022-7-6 12:53:25

好吧，所以我肯定我没有李那么多的经验（事实上我知道我没有）；但我几乎一直在使用创业套件，从来没有遇到过问题。我甚至已经连续运行了20到30次这些LISP文件。

无论如何，我的观点是，最初创业套件可能不可靠；但对于2009年和2010年的版本，我还没有遇到问题。

*敲打木头*

Lee Mac · 发表于 2022-7-6 12:57:43

诚然，我相信不可靠性只存在于ACAD的早期版本中，但使用ACADDOC还有很多其他好处。发布在CADPanacea提要中的启动套件的lsp。

李

The Buzzard · 发表于 2022-7-6 12:59:15

如果您以这种方式加载所有程序，那么这是真的。如果创建一个包含要加载程序的程序加载的lisp，菜单中的一个按钮可以在需要时触发其他程序加载。因此，您真正要做的只是在启动套件中加载一个程序，该程序负责加载所有其他程序。

例子：

copy

;;;/////////////////////////////////////////////////////////////////
;;; LL.lsp Load Lisp
;;;/////////////////////////////////////////////////////////////////
;;; Function - LL.lsp Start-Up              ;Describe function
(defun C:LL ()                              ;Define function
 (LLLOAD)                                  ;GOTO LLLOAD function
)                                           ;End of define function
;;;/////////////////////////////////////////////////////////////////
;;; Function - LL.lsp Load All Programs     ;Describe function
(defun LLLOAD ()                            ;Define function
 (load "LL1.lsp")                          ;Load LL1.lsp
 (princ "\nLL1.lsp Loaded...")              ;Inform user program is loaded
 (load "LL2.lsp")                          ;Load LL2.lsp
 (princ "\nLL2.lsp Loaded...")              ;Inform user program is loaded
 (load "LL3.lsp")                          ;Load LL3.lsp
 (princ "\nLL3.lsp Loaded...")              ;Inform user program is loaded
 (load "LL4.lsp")                          ;Load LL4.lsp
 (princ "\nLL4.lsp Loaded...")              ;Inform user program is loaded
 (load "LL5.lsp")                          ;Load LL5.lsp
 (princ "\nLL5.lsp Loaded...")              ;Inform user program is loaded
 (load "LL6.lsp")                          ;Load LL6.lsp
 (princ "\nLL6.lsp Loaded...")              ;Inform user program is loaded
 (load "LL7.lsp")                          ;Load LL7.lsp
 (princ "\nLL7.lsp Loaded...")              ;Inform user program is loaded
 (LLLOADMESSAGE)                           ;GOTO LLLOADMESSAGE function
)                                           ;End of define function
;;;/////////////////////////////////////////////////////////////////
;;; Function - LL.lsp Load Message          ;Describe function
(defun LLLOADMESSAGE ()                     ;Define function
 (prompt "\nAll LL.lsp Programs Loaded...");Inform user all programs are loaded
)                                           ;End of define function
;;;/////////////////////////////////////////////////////////////////

AutoCAD菜单文件-C:\LOAD LISP\LL。mnc//***MENUGROUP=LL***POP1**LLID\U 001[LL]ID\U 002[-]ID\U 003[单击此处加载所有程序…]（加载“LL”）^C^CLLID\U 004[-]ID\U 005[加载Lisp 1…]^C^CLL1ID\U 006[加载Lisp 2…]^C^CLL2ID\U 007[加载Lisp 3…]^C^CLL3ID\U 008[-]ID\U 009[->更多程序]ID\U 010[加载Lisp 4…]^C^CLL4ID\U 011[加载Lisp 5…]^C^CLL5ID\U 012[