de.lsp-在圖上標上座標(xE,yN)1 J7 X* j1 z; `, v. o4 D. v
9 h' W3 t, h6 \ P. }& S' K(defun c:de ()+ A! [2 D( ]" {# b
(setvar "cmdecho" 0)6 q: p; {* f7 z; R" F* Y& F: P
(command "osnap" "end")
. I( W! q: K' ~% a; @ (setq p1 (getpoint "Select line near endpoint"))- E* v0 S+ y0 Y, I
(setq p2 (getpoint p1 "Select cen of Leader"))
l2 J1 j; @4 p (setq px (rtos (nth 0 p1 ) 2 4))
+ s0 m6 e6 K& P, T, M. z; V (setq py (rtos (nth 1 p1 ) 2 4))
- N8 N1 l' T: p$ A9 A* n; J (setq txt (strcat "x " px " , " "y " py))$ Q9 T$ b" m3 o4 I& |
(command "dim1" "leader" p1 p2 "" txt)# n" t0 S/ H- b
(setvar "cmdecho" 1)
2 b {5 s$ @+ t( W) \, q! J9 P) |