求帮忙，标注问题，，求求。。。

54525596

做了个标注，例如，如图，，，4.588是高程，要减去在命令行输入的一个数据：4.49，算好得0.098，在同一位置画圆，
想把圆的Z坐标改为0.098，即把0.098的值赋值给圆的Z坐标，，，就是弄不出来了，我水平很有限，菜岛，希望大师帮个忙。
如果能在引线起点的坐标左右也显示0.098数据就更好，字的角度自己旋转。万分感谢。。。

(defun c:zb()
    (setq  p (getpoint "\n 指定点:"))
    (setq x (caddr p) y (caddr p));
    (setq p1 (getpoint "\n 指定点:")
          p2 (getpoint "\n 指定点:"))
    (setq js (getreal"\n请输入数据："))
    (setq jdgc (- y js))
    (setq y1 (cadr P1))
    (setq x1 (car p1))
    (setq x2 (car p2) y2 (cadr p2))
    (if (< x2 (car p1)) (setq x2 (- x1 6.5))
                         (setq x2 (+ x1 6.5)))
    (setq p2 (list x2 y1 ))
    (command "pline" p p1 p2 "")
    (if (> x2 x1) (setq x2 x1)
                  (setq x2 (- x2 0.1)))
    (setq p3 (list x2 (+ y1 0.35))
          p4 (list x2 (- y1 1.80)))
    (setq xx (rtos x 2 3))
    (setq yy (rtos jdgc 2 3))
    (command "TEXT" P3 1.5 0 xx)
    (command "TEXT" P4 1.5 0 yy)
    (command "CIRCLE" p 0.3 )
    (princ)
)

Saging

(command "circle" p 0.3)后加入：
  
    (setq cir (entget(entlast)))
    (setq cir (subst (subst jdgc (cadddr (assoc 10 cir)) (assoc 10 cir)) (assoc 10 cir) cir))
    (entmod cir)
    (entupd (entlast))
  试试，不知道是不是你要的效果。