de.lsp-在圖上標上座標(xE,yN)' p$ `* g2 M: b" K' D% d( @
4 J) `9 X3 ]4 F; x# F(defun c:de ()$ d% ?, r$ b3 E! o: v9 k
(setvar "cmdecho" 0)$ x, K- p5 @$ |% g5 J. |) a
(command "osnap" "end")
6 n6 Q5 o& ]$ b3 y; m (setq p1 (getpoint "Select line near endpoint"))+ g& s7 j+ }4 f& u( o: V) c" ?
(setq p2 (getpoint p1 "Select cen of Leader"))
3 }2 e' u( p0 }, L! n/ f (setq px (rtos (nth 0 p1 ) 2 4))
" E! z% S- Y1 B6 k& v6 u/ S$ \ (setq py (rtos (nth 1 p1 ) 2 4))
+ Q) d5 T/ W7 _3 v. E (setq txt (strcat "x " px " , " "y " py))
% Y0 k% W2 j) l. L( D- r (command "dim1" "leader" p1 p2 "" txt)6 J: k' M X: ?. V
(setvar "cmdecho" 1)
' U5 @) K# T% }& z5 b x: V) |
发表于 2010-8-17 19:25
下不来