de.lsp-在圖上標上座標(xE,yN)" s( ]5 }; M2 M, M4 e$ `
' t! K7 D6 Y1 d5 t+ h ], ?) F
(defun c:de ()
2 W% x; O' T7 x (setvar "cmdecho" 0)5 T( l' {, O8 |
(command "osnap" "end")
. g7 }, s- z! P (setq p1 (getpoint "Select line near endpoint")): X& G! }5 i. Y0 X2 C6 G
(setq p2 (getpoint p1 "Select cen of Leader"))' w, R! f! D* u
(setq px (rtos (nth 0 p1 ) 2 4))
4 p0 d8 I4 P0 ~# c/ \6 l (setq py (rtos (nth 1 p1 ) 2 4))
6 U- \. C1 E a5 F (setq txt (strcat "x " px " , " "y " py))
* ^% S! ]8 k2 m+ m( o# g% v } (command "dim1" "leader" p1 p2 "" txt)
0 o5 R! x, U8 x" Z1 @& @; E6 | (setvar "cmdecho" 1)
* R1 g5 s0 n0 y" x A( Z8 m) |