de.lsp-在圖上標上座標(xE,yN)
! q1 i0 n3 }4 A" t7 _
' k2 } A4 m4 n( b* U(defun c:de ()
- @: Z( L* h; R( t6 n. d (setvar "cmdecho" 0)
( E: ~ A( B' @, R3 ?+ N( z (command "osnap" "end"): o% B4 S& ?; a. b- } |+ t7 N
(setq p1 (getpoint "Select line near endpoint"))
- t$ i" k* w# }3 l (setq p2 (getpoint p1 "Select cen of Leader"))7 E4 L! ^# ]8 e! [6 I* _# O$ V
(setq px (rtos (nth 0 p1 ) 2 4))
) E" N3 G6 {$ Q# ^) v (setq py (rtos (nth 1 p1 ) 2 4))3 E. C0 G9 w! z+ t# Y( U
(setq txt (strcat "x " px " , " "y " py))
) K/ `* @* X- E: A (command "dim1" "leader" p1 p2 "" txt)
0 K {& @$ A. Q) J: g! D# t (setvar "cmdecho" 1)
" W2 i1 v; x3 v- Q" f. l0 S) |
发表于 2010-8-17 19:25
下不来