de.lsp-在圖上標上座標(xE,yN)/ p9 O% d- p& q0 i
% I* _# S2 x7 A8 U- K* C9 t(defun c:de ()/ s, j- ^# E9 Q4 G y4 \
(setvar "cmdecho" 0)# ?, J, A1 n1 _- R+ r, E* z
(command "osnap" "end")
4 N" ~3 T7 b' H (setq p1 (getpoint "Select line near endpoint"))+ M# m2 y; J, k' ~" R8 `
(setq p2 (getpoint p1 "Select cen of Leader"))" F' k+ N& S& F! l
(setq px (rtos (nth 0 p1 ) 2 4))
7 j; i& O9 |0 i% j! M& L' R# j (setq py (rtos (nth 1 p1 ) 2 4)) X! a5 X1 Q& @* O( h# P
(setq txt (strcat "x " px " , " "y " py))
8 O! h. l3 `' w (command "dim1" "leader" p1 p2 "" txt)
. @3 x8 _+ O! r (setvar "cmdecho" 1)
/ {6 [( t0 {- O: }) |