de.lsp-在圖上標上座標(xE,yN)
$ O* Z% z, a+ E4 H" |) J, v, c+ k& Z5 Z
(defun c:de ()1 F% ~2 \# h( s1 b: R0 K
(setvar "cmdecho" 0)) m% g6 L9 \3 M# X( d/ ]# \) K
(command "osnap" "end")
$ ~% o6 Y" ?- Y) X0 v( w3 g0 u (setq p1 (getpoint "Select line near endpoint"))
* V. |" U2 z( g. T0 k Z (setq p2 (getpoint p1 "Select cen of Leader"))4 _/ E/ b2 n) D* N7 j
(setq px (rtos (nth 0 p1 ) 2 4))# a) o: S% a9 b# ^5 w2 Q0 p
(setq py (rtos (nth 1 p1 ) 2 4))6 t# u* g: Z$ W3 u% V
(setq txt (strcat "x " px " , " "y " py))
4 s) u) D; E. g; O9 n (command "dim1" "leader" p1 p2 "" txt)
% t1 I" F7 D3 \& k (setvar "cmdecho" 1)
+ E' `( w' n6 Y1 e' T, O) |