de.lsp-在圖上標上座標(xE,yN)) D) t8 F/ F' j8 y, p l! |
7 v# T& _6 V9 a% ?
(defun c:de ()
5 L! R/ T2 w2 }7 W% P (setvar "cmdecho" 0)
2 X' x8 q a' N: l$ z7 g (command "osnap" "end")
' z# W: z2 E! C! f: P3 q$ I (setq p1 (getpoint "Select line near endpoint"))" l: l9 x( j2 r0 @% N2 ~5 i. G3 [& {
(setq p2 (getpoint p1 "Select cen of Leader"))5 j6 \" W, X* [; T" Q: B
(setq px (rtos (nth 0 p1 ) 2 4))5 r& c9 y, t9 H- O7 E
(setq py (rtos (nth 1 p1 ) 2 4)); Z% ~2 v! b( p/ c
(setq txt (strcat "x " px " , " "y " py))
5 \9 s4 z) f, u. Y9 A (command "dim1" "leader" p1 p2 "" txt)
) E, Y9 s- c% I3 A3 u (setvar "cmdecho" 1)
( x" [3 h8 p/ x, Q, W) |