de.lsp-在圖上標上座標(xE,yN)
4 m/ d6 s+ u8 s7 F! I8 f9 ^' p
(defun c:de ()
; D' [" J6 N, E4 p2 v7 U (setvar "cmdecho" 0), \3 [+ j# |. G3 E6 x, c' O
(command "osnap" "end")# s1 h6 t/ V. h9 K9 t
(setq p1 (getpoint "Select line near endpoint"))% A9 E' P! O; F$ E
(setq p2 (getpoint p1 "Select cen of Leader"))
/ S1 q1 { C4 b( }; X (setq px (rtos (nth 0 p1 ) 2 4))
) X$ U1 _. y: p8 m& ` (setq py (rtos (nth 1 p1 ) 2 4))0 x# A9 \( b1 `/ n8 A; \5 Q `+ p
(setq txt (strcat "x " px " , " "y " py))
( M7 @+ l( W9 p" M& C3 Y3 M0 G (command "dim1" "leader" p1 p2 "" txt)- q& x0 P3 c# Q, e8 a$ d: P
(setvar "cmdecho" 1)+ U$ b) D' T7 Z8 `# `. L
) |
发表于 2010-8-17 19:25
下不来