de.lsp-在圖上標上座標(xE,yN)
+ [7 i$ M3 T, e* s, U6 A
# e2 F8 {8 T* ^! j! J, i(defun c:de ()
# |6 K6 m$ y2 }# K (setvar "cmdecho" 0)
) ]( ^2 G+ g1 { (command "osnap" "end")
% c" v+ ], O! h" s8 _) e/ ~- [) V* | (setq p1 (getpoint "Select line near endpoint"))
6 K/ P4 @$ f8 d (setq p2 (getpoint p1 "Select cen of Leader"))7 d1 A( q9 V# m, M, O9 u/ C* T
(setq px (rtos (nth 0 p1 ) 2 4))$ @; x5 t. l* x/ f1 s; c- h
(setq py (rtos (nth 1 p1 ) 2 4))5 f! F& O: i* ^
(setq txt (strcat "x " px " , " "y " py))) g0 b# B2 g1 U
(command "dim1" "leader" p1 p2 "" txt) V8 O( X m; F
(setvar "cmdecho" 1)
: u* q9 p4 g$ a8 k* q) |