一个lisp坐标标注程序修改

hqz5200

以下是CAD版主曾经发的一个程序，在坐标原点不变的情况下，点标注正常，但如果坐标原点被移动了，点标注就不正常了——标注线和坐标值都远离标注点了，请高手们教我如何修改一下程序，在此谢过
9 i: i- @) V8 c7 I7 x' _(defun C:zbbz( / zb gd cld osm )
(setq osm (getvar"osmode"))
& ]0 G; j3 T$ M2 J' m8 E- A  ](setvar "osmode" 33)
(setq gd (getreal "指定标注文字高度:>"))
0 j" Q+ C0 I" G* u(if (= gd nil) (setq gd 0.5))
9 a4 i3 S0 U( l0 z- a
(while (setq zb (getpoint "指定坐标点："))

(setq cld(getpoint zb "指定文字插入点："))
* y. ^/ g& E% E+ ]$ r5 |
/ A; t" g! k. e$ L(entmake (list
4 o2 d/ I4 C% F7 j6 ^6 W) k1 J'(0 . "LINE")
. E* c0 Y" w; P'(67 . 0)
. |* F2 p( L: f'(8 . "0")
# y. I7 ]% \  ~2 t$ Y(list 10 (car zb) (cadr zb) 0)
(list 11 (car cld) (cadr cld) 0)
' V! x/ X# ~' l, O& o+ a, ?+ A6 {'(210 0.0 0.0 1.0)
% X  J" V- |, e  `3 n6 B! _)
)
(entmake (list
'(0 . "text")
, }5 `* y. X% q  S( ~  c* |(list 10 (+ (car cld) gd) (car(cdr cld)) )
$ `9 K7 A; X) p" Y# h2 Z(cons 40 gd)
* w0 E' l& k; Y0 `3 j, h(cons 1 ( strcat "X=" (rtos (cadr zb) 2 3)))
, `9 @) o* G. s) n$ C'(50 . 0)
6 |6 p2 c6 ~( c$ U$ e, Z)
9 [  |0 }7 \, E1 g2 z. |4 L+ s/ F8 Z)
(entmake (list
'(0 . "text")
(list 10 (+ (car cld) gd)
(- (car(cdr cld)) (+ gd (/ gd 3)) )
  |! M  L! L3 B+ B2 V)
+ E$ y, ^, b: j% ^6 F) ~6 _(cons 40 gd)
(cons 1 (strcat "Y="(rtos (car zb) 2 3)))
'(50 . 0)
4 u$ m! p. Z8 ?9 f* r3 u& E: D)
)
)
1 l/ k1 E, V' u3 h0 _
(setvar "osmode" osm)
2 t2 h1 a4 D  |7 L(princ)
! M1 Q6 x  o/ |
)

hqz5200

高手们帮帮我吧！

vieira520

资源共享是美德，请下载的朋友也发扬一下美德，自觉顶贴！