de.lsp-在圖上標上座標(xE,yN)* T" y S& z0 k! D
9 e# I( i* k, V9 q$ X/ j9 P3 Q# R
(defun c:de ()
9 z+ O) b$ {2 L# ^3 h (setvar "cmdecho" 0)- L/ T/ p5 W& U$ J+ C% }5 i
(command "osnap" "end")
8 @1 T6 {( ]+ | (setq p1 (getpoint "Select line near endpoint"))$ E+ o) V; n R+ m p
(setq p2 (getpoint p1 "Select cen of Leader"))
$ I2 y4 O, a: T' O& {, v/ G' N Q (setq px (rtos (nth 0 p1 ) 2 4))
7 Z6 \, _. l6 x# k (setq py (rtos (nth 1 p1 ) 2 4))
7 \6 C' s* ^' @; P. w* }& B) Q (setq txt (strcat "x " px " , " "y " py))2 `" V( E1 S4 Q: H' K
(command "dim1" "leader" p1 p2 "" txt)
& a" U( w* A' [1 V# D! k: y: c (setvar "cmdecho" 1)
2 C0 R3 x2 ?: i" _7 i# F, A+ \) |