[求助]:[0403]程序连续执行问题

tctabc

[求助]:[0403]程序连续执行问题

我将程序用dcl做成一个表单
并将程序连结在其中,
但发现到每次如果要执行前次执行的程序,
都需要再呼叫一次选单,
不知道有何方法可以改进呢?
让我可以在前次执行之后,
可进行前次执行中的命令程序.
烦请各位高手帮忙解答一下~
谢谢!!!

附上程序内容:
;;;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
dcl程序内容:
.....
(setq dcl_id(load_dialog "TSLSPDCL"))
(new_dialog "LSPDCL1" dcl_id)
(action_tile "k1" "(done_dialog 1)")
.....
(cond
((= dd 1)(c:lspdcl0101))
.....

(defun c:lspdcl0101 ()
(load "C:/lisp/LSPALL.lsp")
(c:LOK001)
(prin1))

;;;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
LSPALL.lsp - lsp程序内容:
defun c:LOK001 ()
(setq char (getstring "\n请输入要选取的文字:")
      ss   (ssget (list (cons 0 "TEXT") (cons 1 char)))
)
(prin1))