de.lsp-在圖上標上座標(xE,yN)
0 W. C ]# {9 j4 S% N C, n- J0 {/ v6 T8 Z7 S
(defun c:de ()
7 o: r$ M0 V) Z4 H& _5 A: m9 t( D (setvar "cmdecho" 0)' I5 d! Y4 y, J4 S- f4 u5 E
(command "osnap" "end")
8 H: k5 D* a# b1 S# e/ p (setq p1 (getpoint "Select line near endpoint"))
! o2 H6 m2 L/ i d (setq p2 (getpoint p1 "Select cen of Leader"))
3 y* X2 O+ u5 H. F* \ (setq px (rtos (nth 0 p1 ) 2 4))( N* T. O: b. H) u- F, X' q9 w
(setq py (rtos (nth 1 p1 ) 2 4))9 D+ i- {" m N5 N" G6 X! l
(setq txt (strcat "x " px " , " "y " py))
# b. `% W: A3 D! E1 \! k( [ (command "dim1" "leader" p1 p2 "" txt)4 }4 F# y6 f$ h* ^7 C0 t. i4 D/ b
(setvar "cmdecho" 1)
. c6 z7 |. `9 m9 r9 b) |
发表于 2010-8-17 19:25
下不来