de.lsp-在圖上標上座標(xE,yN)/ F# `( L$ z- Q4 T
$ ^5 M6 y& U% L: ?
(defun c:de (): ^+ g0 W3 \# s$ F
(setvar "cmdecho" 0)# n- V% N0 H- T3 w2 Q* t" x& x3 H7 y
(command "osnap" "end")# \' d, V1 T7 q: j0 e: \
(setq p1 (getpoint "Select line near endpoint"))
' c7 i" z2 w( S6 t8 N$ H; f2 [ (setq p2 (getpoint p1 "Select cen of Leader"))/ `' Z( Z) S, L! B1 L+ H z
(setq px (rtos (nth 0 p1 ) 2 4)). B) e' h( |/ F" g2 t
(setq py (rtos (nth 1 p1 ) 2 4))1 y& T K. a' _7 f
(setq txt (strcat "x " px " , " "y " py)) `( }3 a; c3 K& d9 X) k
(command "dim1" "leader" p1 p2 "" txt)
( q7 J* M) h6 _ (setvar "cmdecho" 1)
9 I' m* q5 p5 U* k% o- h# p! F& t) |
发表于 2010-8-17 19:25
下不来