de.lsp-在圖上標上座標(xE,yN)
7 T. L/ Y: {0 ~5 o$ t* A/ n. n$ g+ q
(defun c:de ()
: L& K N. {7 ^ G$ ` (setvar "cmdecho" 0)9 P: f! d D9 F. b
(command "osnap" "end")
( d) a/ S( A. i$ G (setq p1 (getpoint "Select line near endpoint")); z9 L& H9 K; U* q0 @6 N
(setq p2 (getpoint p1 "Select cen of Leader")). x5 P* k; W# {) s- L5 Z+ W1 L9 P
(setq px (rtos (nth 0 p1 ) 2 4))
+ i% J$ \( l+ `* }( M! U (setq py (rtos (nth 1 p1 ) 2 4))/ S o, H( |. ^; [! i% N) U; w/ P# g
(setq txt (strcat "x " px " , " "y " py))
6 E' u4 p1 S/ } (command "dim1" "leader" p1 p2 "" txt)
) A* P+ M L# Q/ C (setvar "cmdecho" 1)
& F( h5 X# e8 n) |
发表于 2010-8-17 19:25
下不来