(setvar "cmdecho" 0)
(command "osnap" "app,end")
(setq zbd (getpoint " 请点击要标注坐标的点："))
(command "osnap" "off")
(setq zbd2 (getpoint " 请点击伸出的第二个点："))
(command "line" zbd zbd2 "")
(setq zbd2x (car zbd2))
(setq zbd2y (cadr zbd2))
(setq zbdx (car zbd))
(setq zbdy (cadr zbd))
(if (>= zbd2x zbdx)
(progn
(command "line" zbd2 (list (+ zbd2x 30) zbd2y) "")
(command "text" "s" "Standard" "j" "bl" (list (+ zbd2x 1.2) (+ zbd2y 1)) "2" "0" (strcat "X = " (rtos zbdy 2 3)))
(command "text" "s" "Standard" "j" "tl" (list (+ zbd2x 1.2) (- zbd2y 1)) "2" "0" (strcat "Y = " (rtos zbdx 2 3)))
)
(progn
(command "line" zbd2 (list (- zbd2x 30) zbd2y) "")
(command "text" "s" "Standard" "j" "bl" (list (- zbd2x 28) (+ zbd2y 1)) "2" "0" (strcat "X = " (rtos zbdy 2 3)))
(command "text" "s" "Standard" "j" "tl" (list (- zbd2x 28) (- zbd2y 1)) "2" "0" (strcat "Y = " (rtos zbdx 2 3)))
)
)
)
