de.lsp-在圖上標上座標(xE,yN)
2 U$ l/ Y G( O3 K
1 t; |6 Y+ i! P" a(defun c:de ()
" U8 U# L% K+ D4 x (setvar "cmdecho" 0)
1 z; \0 ?$ F9 W% a! ^, H (command "osnap" "end")
0 M) D+ f1 q( G8 z (setq p1 (getpoint "Select line near endpoint"))! ^) e0 y' J- v( [
(setq p2 (getpoint p1 "Select cen of Leader"))& Z9 z* K+ J. ^0 \- Q$ M
(setq px (rtos (nth 0 p1 ) 2 4))
3 n/ k7 ^6 ? v4 Z# H (setq py (rtos (nth 1 p1 ) 2 4))( r2 f, N+ _5 J/ l
(setq txt (strcat "x " px " , " "y " py))
# G; g" L: m) g' H+ p (command "dim1" "leader" p1 p2 "" txt)- ^: }( E& o# ?
(setvar "cmdecho" 1)
8 U" L/ Z) m( h' x+ Y1 H. k B# v) |