de.lsp-在圖上標上座標(xE,yN)
% p/ U# \* Z# @: s) W; I* X2 K5 u5 c% J I- q
(defun c:de ()
7 N$ q8 |' M+ E) V7 H2 s (setvar "cmdecho" 0)+ B6 W2 i8 L3 x* V7 V7 j e
(command "osnap" "end")7 n$ @( I0 f* P: ^1 ^# f' q
(setq p1 (getpoint "Select line near endpoint"))
+ C5 }, u8 Q5 k (setq p2 (getpoint p1 "Select cen of Leader"))
% ~# R$ D$ {! @+ l0 m6 g% ] (setq px (rtos (nth 0 p1 ) 2 4))
( R' f3 v" E O* p+ x G+ t: V (setq py (rtos (nth 1 p1 ) 2 4)): u' \$ z" k" y8 k7 M$ I/ s
(setq txt (strcat "x " px " , " "y " py))5 w0 d5 |% |* b
(command "dim1" "leader" p1 p2 "" txt)& i; y1 w" h# m
(setvar "cmdecho" 1)! w. o5 H, b% y4 W g- i# o/ X
) |
发表于 2010-8-17 19:25
下不来