de.lsp-在圖上標上座標(xE,yN): y1 ]2 M3 r( y! @0 I- n, Y
! H1 g6 O4 D! F. k(defun c:de ()% P/ i: o3 O% I1 b2 N- \( j G1 E
(setvar "cmdecho" 0)& R% U& \ B' o6 z
(command "osnap" "end")
7 \, ]6 f2 |& D- Q' B' T (setq p1 (getpoint "Select line near endpoint"))
2 |$ }2 M- g* m* s8 O5 B (setq p2 (getpoint p1 "Select cen of Leader"))
" f2 o8 q! _8 l$ K: j5 b (setq px (rtos (nth 0 p1 ) 2 4))* d5 d7 h+ N; A
(setq py (rtos (nth 1 p1 ) 2 4))% Z( d, B" z" |/ R! ]
(setq txt (strcat "x " px " , " "y " py))/ l+ u H B: t
(command "dim1" "leader" p1 p2 "" txt)$ w- e! V2 }. y, Q# f! U% \
(setvar "cmdecho" 1)
4 U1 ^) N2 O/ h3 u) |