註冊日: 2008-01-14 來自: 發表數: 6 |
在LISP中如何呼叫並執行另一個已載入執行的LISP命令 在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單獨執行?正常 問題是出在那呢 請高手幫幫忙謝謝
|