de.lsp-在圖上標上座標(xE,yN)
: ]$ n4 c- P$ N |% n6 e
t: t! k# s2 I(defun c:de ()/ i( x0 q# y7 z/ C- O' E7 C
(setvar "cmdecho" 0)& E! v5 d% q. Z1 B% R0 L. }
(command "osnap" "end")
, F; {$ P0 }1 _9 N+ X; C) ~ (setq p1 (getpoint "Select line near endpoint"))
T0 q5 j; }1 `: L) k (setq p2 (getpoint p1 "Select cen of Leader"))8 X8 L. H M- k
(setq px (rtos (nth 0 p1 ) 2 4))% \; @( i8 p! A9 |5 a3 c0 @% s
(setq py (rtos (nth 1 p1 ) 2 4))! |$ D* R) ~) _% W+ j; |$ }0 `
(setq txt (strcat "x " px " , " "y " py))2 a# C) ^/ |- y& r1 h2 B; @$ u
(command "dim1" "leader" p1 p2 "" txt)
$ |) w4 P! ^! } (setvar "cmdecho" 1)
" N7 ^( a6 \3 K1 i) |
发表于 2010-8-17 19:25
下不来