在LISP中如何呼叫並執行另一個已載入執行的LISP命令
----------------------------------------------------
(defun c:CALENGTH(/ ss01 oldlay01 en01)
(setvar "cmdecho" 0)
(setq en01 (entsel "\nSelect Object to CAL Layer's: "))
(setq oldlay01 (CDR (assoc 8 (entget (car en01)))))
(setq ss01 (ssget "X" (list (cons 8 oldlay01))));
(COMMAND "CALL" ss01 "")
)
-----------------------------------
如上 CALL 是另一個LISP命令已先載入
(COMMAND "CALL" SS01 "")此行執行後回覆CALL為不明指令
可是CALL單獨執行?正常
問題是出在那呢
請高手幫幫忙謝謝