[已解決]請問如何在撰寫的LISP程式中，執行另一個自行撰寫的LISP程式？使用command "xx"，會顯示錯誤

請教各位大能

已經先寫好幾個畫軸承的lisp程式，
又寫了一個Lisp主程式，含DCL對話框，
可以採用副程式的方式執行畫軸承的lisp程式，但主程式加了許多副程式後，內容會很多，未來要編修比較麻煩；
而在Lisp主程式中，利用指令command，無法呼叫自行撰寫畫軸承的Lisp程式，command "xx"，會顯示錯誤，
(一般在Lisp中，可以使用command執行畫線Line、畫圓circle等基本指令，但好像無法呼叫自行撰寫的Lisp程式)
請問有沒有建議的方式？感謝大家

自己寫的程式？
不用COMMAND啊
如果是C:XXX的話
直接用===> (C:XXX)
如果是副程式的話：XXX
就直接用(XXX)

可以，解決了，
大感謝sword0626

sword0626 寫到:自己寫的程式？
不用COMMAND啊
如果是C:XXX的話
直接用===> (C:XXX)
如果是副程式的話：XXX
就直接用(XXX)

請問"sword0626"，
(C:XXX)，可以用，
但碰到另一個問題，
一般採用指令(command "line" p01 p02 "")；
若採用(C:XXX)，要一併給一個預設值，如何撰寫？
舉例：
軸承LISP程式:ucf.lsp，指令"ucf"，需要輸入軸徑，
(c:ucf) 如何加入軸徑"12"
(c:ucf "12") -->顯示錯誤

mic_christ 寫到:
請問"sword0626"，
(C:XXX)，可以用，
但碰到另一個問題，
一般採用指令(command "line" p01 p02 "")；
若採用(C:XXX)，要一併給一個預設值，如何撰寫？
舉例：
軸承LISP程式:ucf.lsp，指令"ucf"，需要輸入軸徑，
(c:ucf) 如何加入軸徑"12"
(c:ucf "12") -->顯示錯誤

假設輸入軸徑的變數是x
那你的ucf有沒有設定成=>
(defun c:ucf(x /)

)
有的話，(c:ucf x)這樣試看看

舉個例子：
(defun c:tast(x / )
 (command "circle" pause x)
   )
;;;==================
(c:tast 10)
這樣就不會問圓的半徑是多少了，點圓心位置後，就直接畫半徑10的圓了。

還有，你的主題和其他人的不一樣，你的主題前面是不是少了什麼呢？

sword0626 寫到:

mic_christ 寫到:
請問"sword0626"，
(C:XXX)，可以用，
但碰到另一個問題，
一般採用指令(command "line" p01 p02 "")；
若採用(C:XXX)，要一併給一個預設值，如何撰寫？
舉例：
軸承LISP程式:ucf.lsp，指令"ucf"，需要輸入軸徑，
(c:ucf) 如何加入軸徑"12"
(c:ucf "12") -->顯示錯誤

假設輸入軸徑的變數是x
那你的ucf有沒有設定成=>
(defun c:ucf(x /)

)
有的話，(c:ucf x)這樣試看看

舉個例子：
(defun c:tast(x / )
 (command "circle" pause x)
   )
;;;==================
(c:tast 10)
這樣就不會問圓的半徑是多少了，點圓心位置後，就直接畫半徑10的圓了。

還有，你的主題和其他人的不一樣，你的主題前面是不是少了什麼呢？

太讚了，可以，太感謝您了，
我的主題前頭好像少了[問題]，
請問該怎麼加上去，直接按EDIT，進行編輯後再發表嗎？
看來我得再多爬爬文了，感謝提醒！

我的做法是透過lisp撰寫scr再讓scr去調lisp
同時達到批次行為