de.lsp-在圖上標上座標(xE,yN)
8 x/ G4 D) c. F' t" B! g, p4 o! c6 x) `5 Z' Z3 [3 H9 u1 }1 M
(defun c:de ()
0 S+ E- t$ h: Y- t. ] (setvar "cmdecho" 0)9 r) N& y2 ^# [0 G5 X
(command "osnap" "end")
4 x0 J8 t: C+ m# i0 x. i (setq p1 (getpoint "Select line near endpoint"))7 Y# s) O' m2 U# `
(setq p2 (getpoint p1 "Select cen of Leader"))( m/ n# {5 N7 n" U/ G
(setq px (rtos (nth 0 p1 ) 2 4))5 p, D" J% S9 f" }
(setq py (rtos (nth 1 p1 ) 2 4))
?* m" H5 Y/ ?) F. w2 ^" s (setq txt (strcat "x " px " , " "y " py))
- u) q. S/ Y s% @- r! T! r (command "dim1" "leader" p1 p2 "" txt)8 Z- u' U& A2 P4 O; t
(setvar "cmdecho" 1)6 E5 U+ R$ h% R+ q
) |
发表于 2010-8-17 19:25
下不来