AutoLISP实时跟踪鼠标坐标

AutoLISP实时跟踪鼠标坐标

(defun c:test ()
    (setq p (getpoint))
    (setq n 0)
    (while
    (progn
        (setq input (grread t))
        (cond ((= (car input) 5)
           (setq p1 (cadr input))
           (if (= n 0)
               (command "LINE" p p1 "")
               (command "LINE" "@" p1 "")
           )
           (setq n (1+ n))
           T
          )
          ((= (car input) 3)
           (if (= n 0)
               (command "LINE" p p1 "")
               (command "LINE" "@" p1 "")
           )
           nil
          )
        )
    )
    )
)