[已解決]內有3個相似的lisp 請問要怎讓他都有作用?

我把這三個lisp都放在acad.mnl裡，但執行都只有第一個有作用，要怎樣才能讓3個LISP都能動作。

(defun c:GG ()
(SETQ SS (ssget))
(command "change" SS "" "P" "LA" "0" "C" "6" "LT" "BYBLOCK" ""))
(prin1))

(defun c:BB ()
(SETQ SS (ssget))
(command "change" SS "" "P" "LA" "0" "C" "7" "LT" "BYBLOCK" ""))
(prin1))

(defun c:HH ()
(SETQ SS (ssget))
(command "change" SS "" "P" "LA" "0" "C" "8" "LT" "HIDDEN" ""))
(prin1))

謝謝！

建議你把這三個LSP另存在一個副檔名為lsp的文字檔.
假設你是另存成檔名aaa.lsp,存在d:\lsp資料夾裡,
那你只在原來的acad.mnl最後一行裡加上
(load "d:/lsp/aaa.lsp")
這樣應該三個小程式都可以用了.
試試看吧!

(defun c:GG ()
(SETQ SS (ssget))
(command "change" SS "" "P" "LA" "0" "C" "6" "LT" "BYBLOCK" "")
(prin1))

(defun c:BB ()
(SETQ SS (ssget))
(command "change" SS "" "P" "LA" "0" "C" "7" "LT" "BYBLOCK" "")
(prin1))

(defun c:HH ()
(SETQ SS (ssget))
(command "change" SS "" "P" "LA" "0" "C" "8" "LT" "HIDDEN" "")
(prin1))


command change 這一行.最後都各多一個括號.拿掉就可以用了

感謝shenhung的解答，現在可以正確使用了。

也感謝ginse0727的方法，我沒想到利用load的方式載lisp，學到另一種方法。

感謝兩位的回答。

aaronchung.tw 寫到:感謝shenhung的解答，現在可以正確使用了。

也感謝ginse0727的方法，我沒想到利用load的方式載lisp，學到另一種方法。

感謝兩位的回答。

一般也可以使用appload指令載入，新版方式則可以透過「自訂CUI 載入LISP」，請查看以下相關主題：
「教學」載入LISP應用程式 APPLOAD指令
[影片]自訂CUI 載入LISP

之前都是在acad.mnl裡寫LISP使用，都沒研究其他的方法，現在該來學習一下其他的方法了。感謝提供資料！