de.lsp-在圖上標上座標(xE,yN)1 ^1 b6 ?; Q3 Y
7 Y5 w& J$ J$ t/ M, [ G" U
(defun c:de ()/ V3 Q% H& V5 O
(setvar "cmdecho" 0)+ ~) p$ d) j. X
(command "osnap" "end")' B/ L _+ m7 {
(setq p1 (getpoint "Select line near endpoint")); |1 P' j- j; x% d* x, x
(setq p2 (getpoint p1 "Select cen of Leader"))+ o: o5 m3 }3 x
(setq px (rtos (nth 0 p1 ) 2 4))
7 c2 h( q" d( v' C& Y (setq py (rtos (nth 1 p1 ) 2 4))
. y6 x7 B+ b+ o# l3 N( z! ] (setq txt (strcat "x " px " , " "y " py))6 _/ n- x9 r% }& O' P
(command "dim1" "leader" p1 p2 "" txt)- j2 j7 G! G' d
(setvar "cmdecho" 1)
% [4 D" g* C2 K; W/ `9 Z9 g4 }) |