[求助]：[0222]请问程式命令重复使用问题?

vken7az2p

[求助]：[0222]请问程式命令重复使用问题?
请问如果执行某各程式时,又呼叫另一个程式执行,在结束后,
如果要在按下 "enter" 执行时,是执行刚刚第二次的呼叫命令,
该怎样撰写程式呢?
烦请各位高手解答一下
谢谢~

maomao2004

直接回车不是么？

lazybug

;点击回车执行程序二
;点击左健或任意键盘健继续执行程序一的其他语句
(defun 程序一
    (程序一的其他语句)
    (setq sn 1)
    (while (= sn 1)
 (setq m (grread t 1))
 (if (equal m '(2 13))
     ;(调用程序二)  
     (if (or (= (car m) 25) (= (car m) 2))
  (setq sn 0)
     )
 )
    )
    (程序一的其他语句)
)