de.lsp-在圖上標上座標(xE,yN)5 }# t' n6 l$ O' s
8 D8 W, L% T r! E(defun c:de ()$ v: r2 H7 x% l) ^- M
(setvar "cmdecho" 0)
- k3 |8 w9 W9 ?5 I (command "osnap" "end")
; Q9 W! ?& R3 v9 w; N (setq p1 (getpoint "Select line near endpoint"))
3 P9 V0 `# W) Q (setq p2 (getpoint p1 "Select cen of Leader"))# ^+ m6 d4 q7 Y6 j3 q
(setq px (rtos (nth 0 p1 ) 2 4))* E5 V, I$ z% e" H0 s3 G1 d5 q! s
(setq py (rtos (nth 1 p1 ) 2 4))+ E# d8 }$ t# [2 f. m
(setq txt (strcat "x " px " , " "y " py))
- h9 w! U3 H8 U E' T (command "dim1" "leader" p1 p2 "" txt), H) e! \ ?( `
(setvar "cmdecho" 1): D: A* _1 q e' y! |) ?7 S5 u
) |