一个lisp坐标标注程序修改

hqz5200

以下是CAD版主曾经发的一个程序，在坐标原点不变的情况下，点标注正常，但如果坐标原点被移动了，点标注就不正常了——标注线和坐标值都远离标注点了，请高手们教我如何修改一下程序，在此谢过
(defun C:zbbz( / zb gd cld osm )
7 v) Q* p& z: a, n7 k(setq osm (getvar"osmode"))
(setvar "osmode" 33)
$ |. {! v- @4 Q5 X+ v( k: ?7 ~(setq gd (getreal "指定标注文字高度:>"))
# k: O: r* o3 b$ C+ G(if (= gd nil) (setq gd 0.5))

(while (setq zb (getpoint "指定坐标点："))

(setq cld(getpoint zb "指定文字插入点："))
6 ]& i1 c8 l; ?0 z1 b' c# R* n
, f- T% }/ J9 W1 {6 j, U& W2 z(entmake (list
'(0 . "LINE")
* C/ }. O3 A) M0 l5 r- v% a' z'(67 . 0)
'(8 . "0")
(list 10 (car zb) (cadr zb) 0)
$ c0 o7 ^6 g; g$ s! x6 X(list 11 (car cld) (cadr cld) 0)
'(210 0.0 0.0 1.0)
)
* C, D$ ^8 ^& n& C% R)
(entmake (list
'(0 . "text")
& K: f- j+ L% i0 E) d1 i0 p% {(list 10 (+ (car cld) gd) (car(cdr cld)) )
(cons 40 gd)
) Z& J! F" m) |& ]% y(cons 1 ( strcat "X=" (rtos (cadr zb) 2 3)))
'(50 . 0)
+ `! M1 Z$ C+ C, a- `9 Y)
: }4 k0 P" |2 F" [, q2 s. x# S)
$ a0 v+ x; y# z5 \# t: n" X  U(entmake (list
9 R& I! d1 K$ e! T# P'(0 . "text")
4 [4 Z% q/ B  _4 j(list 10 (+ (car cld) gd)
(- (car(cdr cld)) (+ gd (/ gd 3)) )
( ?  D+ S0 J. ]) \)
8 w" h/ `9 S8 y% E9 {4 S/ I(cons 40 gd)
' J+ K3 `2 _- {* R& N(cons 1 (strcat "Y="(rtos (car zb) 2 3)))
0 S2 t7 u" F4 n3 e+ L4 ~& M# g'(50 . 0)
)
9 d& ?7 n- X2 }8 Q6 H/ t# Y)
)

(setvar "osmode" osm)
! j$ a4 X# V) I# j5 c; m- |3 K(princ)
- Z. N' ]# g2 Z) t
)

hqz5200

高手们帮帮我吧！

vieira520

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