CAD怎么同时标注xy轴坐标

我有一个插件命令，可以在任意给定的二维平面上的点位置、用任意给定的旋转角度标注出两条垂直相交的直线上注出的x和y值，这个交点就是给定的位置点。此命令就叫bz。

把下面的内容全部复制到记事本，保存为：*.lsp，加载到CAD。标注命令：zbbz
(defun
C:zbbz(
/
zb
gd
cld
osm
)
(setq
osm
(getvar"osmode"))
(setvar
"osmode"
33)
(setq
gd
(getreal
"指定标注文字高度:>"))
(if
(=
gd
nil)
(setq
gd
0.5))
(while
(setq
zb
(getpoint
"指定坐标点："))
(setq
cld(getpoint
zb
"指定文字插入点："))
(entmake
(list
'(0
.
"LINE")
'(67
.
0)
'(8
.
"0")
(list
10
(car
zb)
(cadr
zb)
0)
(list
11
(car
cld)
(cadr
cld)
0)
'(210
0.0
0.0
1.0)
)
)
(entmake
(list
'(0
.
"text")
(list
10
(+
(car
cld)
gd)
(car(cdr
cld))
)
(cons
40
gd)
(cons
1
(strcat
"X="(rtos
(car
zb)
2
3)))
'(50
.
0)
)
)
(entmake
(list
'(0
.
"text")
(list
10
(+
(car
cld)
gd)
(-
(car(cdr
cld))
(+
gd
(/
gd
3))
)
)
(cons
40
gd)
(cons
1
(
strcat
"Y="
(rtos
(cadr
zb)
2
3)))
'(50
.
0)
)
)
)
(setvar
"osmode"
osm)
(princ)
)

我有一个插件命令，可以在任意给定的二维平面上的点位置、用任意给定的旋转角度标注出两条垂直相交的直线上注出的x和y值CAD怎么同时标注xy轴坐标