de.lsp-在圖上標上座標(xE,yN)
; Q6 F6 R, Y" V+ r
' O" d/ X6 y5 m6 Q3 G(defun c:de ()
- h7 Y7 k) w6 R2 k2 M (setvar "cmdecho" 0)
1 T7 q4 j& p# | z' L3 R (command "osnap" "end")
; }" u; j; m8 M- k (setq p1 (getpoint "Select line near endpoint")): |7 j; _! J) h; V/ w- W& ?) @; G
(setq p2 (getpoint p1 "Select cen of Leader"))! C& k! E+ k3 x3 M \! p" s' W
(setq px (rtos (nth 0 p1 ) 2 4))
2 c0 f' @3 B: C& S (setq py (rtos (nth 1 p1 ) 2 4))5 S9 k* T4 F: z; x
(setq txt (strcat "x " px " , " "y " py))/ w0 \. ~* ~# Z
(command "dim1" "leader" p1 p2 "" txt)
! @4 o1 i" V `4 B (setvar "cmdecho" 1)
9 D5 g9 a' l# r. t3 l# Z& h* k) |