運用grread函數跟蹤鼠標坐標，繪制鼠標軌跡，代碼如下。

(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
          )
        )
    )
    )
)

代碼完。

同時繪制雙線并且實現繪制過程的實時預覽，這個功能說來容易做起來難。