de.lsp-在圖上標上座標(xE,yN)
7 t4 e8 ^, V3 v) b3 |7 i! g d$ k9 Y5 n8 _ m6 M
(defun c:de ()" x) H7 v# T* r9 h2 j
(setvar "cmdecho" 0)
* k3 W' G% j7 }+ g$ b (command "osnap" "end")
5 |" _" x8 z% b' [, b3 r4 X (setq p1 (getpoint "Select line near endpoint"))/ ?, r" e1 q6 O7 y/ l8 R8 f
(setq p2 (getpoint p1 "Select cen of Leader"))
y! o* d6 f. t9 K* [ (setq px (rtos (nth 0 p1 ) 2 4))
1 h) X# J- Q: C/ \5 a4 ` (setq py (rtos (nth 1 p1 ) 2 4))9 N) t+ ]) e+ G- S9 ~% i- m
(setq txt (strcat "x " px " , " "y " py))$ f/ T8 |- d2 L4 q# g
(command "dim1" "leader" p1 p2 "" txt). H) r W5 p# G$ F/ _* m
(setvar "cmdecho" 1)
" C) s8 D$ @5 R8 V; t k) |