[LISP]求能在状态栏或在光标旁边显示光标信息的方法

hbird

请教高手

当执行一个命令后，可以把光标当前的坐标显示在状态栏（系统有自动显示，打个比方）， 或将当前坐标悬浮显示在当前当标的旁边，请问用什么函数能实现呀。

谢谢

lazybug

grread

hbird

再说清楚一点哦
我想实现一个功能，就是当执行一个命令后光标所到之处，会自动悬浮一个图幅号的提示（或者显示在状态栏里），坐标到图幅的转换很容易，就是不知道通过什么获取当前坐标，然后如何将转换后的图幅号显示出来，麻请高手帮忙

lazybug

;参考一下这个
;浮动显示当前鼠标坐标
(defun c:zz ()
    (vl-load-com)
    (setvar "cmdecho" 0)
    (setvar "osmode" 0)
    (setq vsize (getvar "viewsize"))
    (setq h (/ vsize 10))
    (setq pt1 (cadr (grread t 1)))
    (command "text" pt h "" (vl-prin1-to-string pt) "")
    (while (= (car (setq m (grread t 1))) 5)
 (if (/= vsize (setq vsize2 (getvar "viewsize")))
     (progn
  (setq h (/ vsize2 10))
  (setq vsize vsize2)
     )
 )
 (setq pt (cadr m))
 (if (> (distance pt pt1) (/ h 10))
     (progn
  (entdel (entlast))
  (command "text" pt h "" (vl-prin1-to-string pt) "")
  (setq pt1 pt)
     )
 )
    )
    (setvar "osmode" 183)
)