de.lsp-在圖上標上座標(xE,yN)
1 p( {' m7 U0 \0 G2 M9 y3 @5 B' A: D$ w2 v$ J2 C
(defun c:de ()- D4 @! Q: C# G/ I3 p
(setvar "cmdecho" 0)( S* V" x3 o* i
(command "osnap" "end")$ ~" I$ U( v. z# W$ q
(setq p1 (getpoint "Select line near endpoint"))" K9 G1 \4 T; M
(setq p2 (getpoint p1 "Select cen of Leader"))- U& L% D0 F7 h3 x
(setq px (rtos (nth 0 p1 ) 2 4))
$ L) L! v f/ f' e4 k( g (setq py (rtos (nth 1 p1 ) 2 4))0 ]7 j7 V' O9 m+ x! T" e: p# z
(setq txt (strcat "x " px " , " "y " py))
/ a% C8 ]' A5 C5 M (command "dim1" "leader" p1 p2 "" txt)( S# @5 A1 ]3 Q. z$ x9 `
(setvar "cmdecho" 1)8 |9 I1 Z4 d g
) |