请问grread怎样捕捉CAD命令进行时的外部输入？

天青色

(defun c:rt ()
  (command "line" '(0 0))
  (setq loop T)
  (while loop
    (setq code (grread T 8))   
    (cond
      ((= (car code) 5) (command pause)(command "")(setq do_Move (cadr code)));;; 鼠标移动
      ((= (car code) 3) (setq do_Move 300 loop nil));;; 鼠标左键
    )
  )
)

上面程序不能使do_Move值设置为300，即不能捕捉line命令进行时，点击鼠标左键输入点的鼠标点击动作，请问有办法捕捉CAD命令进行时的外部输入吗？

菡萏

通过看你的代码很难理解你要实现的目的是什么！何不直接说出你想要干什么呢！

天青色

，可能表达不是很清楚，就是想问下grread函数怎样捕捉命令进行时鼠标操作，如果画条直线用line命令，用鼠标点击结束点时，能捕捉到鼠标点击左键的动作进而触发其它函数吗？