一个lisp坐标标注程序修改

hqz5200

以下是CAD版主曾经发的一个程序，在坐标原点不变的情况下，点标注正常，但如果坐标原点被移动了，点标注就不正常了——标注线和坐标值都远离标注点了，请高手们教我如何修改一下程序，在此谢过
(defun C:zbbz( / zb gd cld osm )
(setq osm (getvar"osmode"))
(setvar "osmode" 33)
2 B( t- b3 L2 Z(setq gd (getreal "指定标注文字高度:>"))
(if (= gd nil) (setq gd 0.5))
4 X  ^/ ~$ |9 ~" f# i9 B- x( ?1 Q
, y2 a) w: |) \" s(while (setq zb (getpoint "指定坐标点："))

  M( _9 K7 A+ |(setq cld(getpoint zb "指定文字插入点："))

(entmake (list
'(0 . "LINE")
3 M1 G+ l% `0 D7 f'(67 . 0)
'(8 . "0")
+ ^1 {% Y1 W( f(list 10 (car zb) (cadr zb) 0)
(list 11 (car cld) (cadr cld) 0)
'(210 0.0 0.0 1.0)
)
! W+ m5 Y7 Z: E& }- f6 v  _8 N)
0 ?/ T* {7 p5 X# e  k" R0 K(entmake (list
/ O' p$ i, t5 g/ E; L$ M/ n'(0 . "text")
$ \) p1 D  H: C2 T(list 10 (+ (car cld) gd) (car(cdr cld)) )
(cons 40 gd)
) J' K/ ^6 @/ h5 Y(cons 1 ( strcat "X=" (rtos (cadr zb) 2 3)))
2 b: x8 d6 Y, }: h% Z5 ?'(50 . 0)
* l4 P- n+ U" u2 g6 d1 x& U)
9 s) `) e  [1 N5 I! F$ _. X, w)
% R6 z8 N$ C3 r(entmake (list
- v9 @, @" D! i3 T) x5 T! Q'(0 . "text")
4 a/ `2 V6 S1 n(list 10 (+ (car cld) gd)
(- (car(cdr cld)) (+ gd (/ gd 3)) )
)
# o! n  Q+ a- Q2 F7 g* e2 m(cons 40 gd)
(cons 1 (strcat "Y="(rtos (car zb) 2 3)))
'(50 . 0)
8 z5 N  b9 h$ u$ T3 S+ V- T% H)
8 j6 A! Y6 S. _% a$ ^" P)
)
) \# ?1 t. {' ]6 n6 e
(setvar "osmode" osm)
# V$ b1 ^& D, }# G: P& g(princ)

)

hqz5200

高手们帮帮我吧！

vieira520

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