de.lsp-在圖上標上座標(xE,yN)% B$ K; j* }8 r6 B! r, N) b+ T
: W. @9 t' x5 N, J
(defun c:de ()
& F7 @# o! t2 ~% S8 C4 p5 i (setvar "cmdecho" 0)3 k7 {0 h! F% U8 o# V; W5 a
(command "osnap" "end")
% Q" ~5 l8 q: N2 R6 B8 N (setq p1 (getpoint "Select line near endpoint"))9 I8 P5 H2 n7 t9 Y8 C0 M
(setq p2 (getpoint p1 "Select cen of Leader"))
; z% z. s; Z! g: j (setq px (rtos (nth 0 p1 ) 2 4))
, v% Q) l( q0 {* a) Q (setq py (rtos (nth 1 p1 ) 2 4))/ E5 N. x$ H) n7 W' h2 C! m C: H& H
(setq txt (strcat "x " px " , " "y " py))
' i, z- @& ~; h& C (command "dim1" "leader" p1 p2 "" txt)
/ C, ]1 L% {8 D4 S (setvar "cmdecho" 1)
9 F) y7 W% Q* K+ S6 D0 | {# D) |