de.lsp-在圖上標上座標(xE,yN) r7 x1 ]& b" m% Z$ V$ r
1 @2 w' Y, I- v* `
(defun c:de ()' D/ I6 d2 l* e7 h: x$ x$ q+ @
(setvar "cmdecho" 0)
- p. \3 d0 m$ V4 a6 N- o; B- Q (command "osnap" "end")
/ N) t5 S* u, v7 Z; H: @ (setq p1 (getpoint "Select line near endpoint"))
; ~4 m% b, N3 P1 X& K! f (setq p2 (getpoint p1 "Select cen of Leader"))
/ @ _$ Y+ V3 f6 r- F (setq px (rtos (nth 0 p1 ) 2 4))
7 G/ y) H# n) G" r4 y0 i, v (setq py (rtos (nth 1 p1 ) 2 4)): Q. d% M! t5 l
(setq txt (strcat "x " px " , " "y " py))
/ t/ P6 v7 l4 W2 z4 [* ^ (command "dim1" "leader" p1 p2 "" txt)) s, Q& J% v) N4 G( c0 t. P9 G
(setvar "cmdecho" 1)6 S: Q& M; M- |6 _
) |