de.lsp-在圖上標上座標(xE,yN)% q( J5 v1 Q& a4 H( _
2 I. ?8 e( g/ ]: C+ b: |
(defun c:de ()
4 {4 ]7 X: j k/ j* \0 k (setvar "cmdecho" 0)
0 u5 W f% B# \: ]3 _ (command "osnap" "end")" m+ u% h+ Z; F6 O
(setq p1 (getpoint "Select line near endpoint"))1 E- m9 ~' @, U4 i7 U1 S
(setq p2 (getpoint p1 "Select cen of Leader"))) }! ? p. K& |1 c
(setq px (rtos (nth 0 p1 ) 2 4))& p Y6 l5 t7 b: o
(setq py (rtos (nth 1 p1 ) 2 4))3 b2 J @; L4 d, ]8 p
(setq txt (strcat "x " px " , " "y " py))
0 W+ m3 L) |8 k+ P9 A. `% X9 {: g* s+ ^6 E (command "dim1" "leader" p1 p2 "" txt)
2 K( n8 H, k8 j8 w (setvar "cmdecho" 1)
6 D, j8 }) G; F( Q# t3 {) |
发表于 2010-8-17 19:25
下不来