一个lisp坐标标注程序修改

hqz5200

以下是CAD版主曾经发的一个程序，在坐标原点不变的情况下，点标注正常，但如果坐标原点被移动了，点标注就不正常了——标注线和坐标值都远离标注点了，请高手们教我如何修改一下程序，在此谢过
& `# B5 G, A5 o6 j6 A/ }3 ?(defun C:zbbz( / zb gd cld osm )
(setq osm (getvar"osmode"))
(setvar "osmode" 33)
(setq gd (getreal "指定标注文字高度:>"))
(if (= gd nil) (setq gd 0.5))

0 ~0 n, w6 y8 ^) j' w; b(while (setq zb (getpoint "指定坐标点："))

(setq cld(getpoint zb "指定文字插入点："))

(entmake (list
. D/ c( V6 Z0 Q'(0 . "LINE")
6 \7 d1 C" v  s# f'(67 . 0)
'(8 . "0")
(list 10 (car zb) (cadr zb) 0)
5 N" O! Y6 n) k(list 11 (car cld) (cadr cld) 0)
8 V6 ]/ g  I. F! P% z'(210 0.0 0.0 1.0)
)
)
, W9 {$ Z, [3 P(entmake (list
'(0 . "text")
% w. [8 F3 P& E! J7 C. B1 n$ x(list 10 (+ (car cld) gd) (car(cdr cld)) )
; R$ `, [2 m  f7 F2 g$ w(cons 40 gd)
(cons 1 ( strcat "X=" (rtos (cadr zb) 2 3)))
0 @3 A2 B2 T* e  B. E'(50 . 0)
6 O, a3 \4 I9 F# }# P( x7 d)
)
9 u8 I. X& ~# t  ?8 ~% J(entmake (list
1 Y& l6 F- G9 d1 K; D5 j'(0 . "text")
(list 10 (+ (car cld) gd)
  x( |5 m; f! B- G  V2 @(- (car(cdr cld)) (+ gd (/ gd 3)) )
2 n  Z* g) }8 p$ A+ Q* W& c)
# }6 G) T+ ]8 B" u% N  e7 @(cons 40 gd)
(cons 1 (strcat "Y="(rtos (car zb) 2 3)))
'(50 . 0)
8 u: M" E0 `- F  }% o  p  h)
/ _, v. g" V. r: Z2 D8 M)
)

( m6 ~0 s3 K7 e# K% s(setvar "osmode" osm)
/ ]% t. n0 N! R! K(princ)
, X5 q* R( U# t; j' n, N5 n
" f3 l& [, A* k7 J) ^$ }3 o1 e, _)

hqz5200

高手们帮帮我吧！

vieira520

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