de.lsp-在圖上標上座標(xE,yN)$ @8 s) f o' r9 H; |$ u* F9 s) U* W/ t
( s. d. s% t2 ~: ?(defun c:de ()
+ w0 i$ M \( o% \. W# o (setvar "cmdecho" 0)8 ^8 k$ s: p5 s- X& {0 i
(command "osnap" "end")2 i: @7 d* ]8 h! H, D
(setq p1 (getpoint "Select line near endpoint"))
* X" p/ A7 d6 E (setq p2 (getpoint p1 "Select cen of Leader"))
! c% U6 \- S D; d+ M* @+ K8 ] (setq px (rtos (nth 0 p1 ) 2 4)); Q, N" q7 ], p( Y# h d1 b
(setq py (rtos (nth 1 p1 ) 2 4))1 x) e& g4 H5 q& R1 R% }9 s
(setq txt (strcat "x " px " , " "y " py))
- K' \( _) v) X. @8 @% K: Y; | (command "dim1" "leader" p1 p2 "" txt)6 i- [* ~% O, W
(setvar "cmdecho" 1)
2 w% \+ H) v) `- K* U+ B8 p) |