de.lsp-在圖上標上座標(xE,yN)
6 N; `* s K# I, Z8 C3 `
5 a4 v' ]& ^( L& s8 w# Z+ P7 @(defun c:de ()
3 r, Z) ~7 z6 W3 r8 D' z8 m! Y (setvar "cmdecho" 0)
$ z/ l9 v' q3 T" q$ _ (command "osnap" "end"). A1 F/ ~$ o/ r- q d! G
(setq p1 (getpoint "Select line near endpoint"))3 K1 {. a: q3 D$ H5 J: s6 w* f- b
(setq p2 (getpoint p1 "Select cen of Leader"))9 C0 D1 {* ^5 W: G' [* |6 D5 l4 l
(setq px (rtos (nth 0 p1 ) 2 4))4 Y) L6 m. @, u1 V9 {
(setq py (rtos (nth 1 p1 ) 2 4))
# \; X* s7 G! |2 H( O (setq txt (strcat "x " px " , " "y " py))
" k* O1 h. @. V- l6 y) H (command "dim1" "leader" p1 p2 "" txt)
/ X0 p+ J' ` w (setvar "cmdecho" 1)
: g" {% i3 q; B- _) |