de.lsp-在圖上標上座標(xE,yN)
! s8 h z, d4 T* I" u# u; ~6 u( }9 \1 j1 s" Z/ e% O
(defun c:de ()! V) t4 [7 T J
(setvar "cmdecho" 0)+ @, \( q0 N1 E B/ W; _" T0 j
(command "osnap" "end")
4 G- g4 i; F! e% T l' `, o/ F3 b (setq p1 (getpoint "Select line near endpoint"))6 [! G6 P% J, g9 k: D4 f0 E/ @
(setq p2 (getpoint p1 "Select cen of Leader"))
3 Q8 l1 E6 `4 s* w (setq px (rtos (nth 0 p1 ) 2 4))& y; `# s1 z) \" L8 }5 f [3 j
(setq py (rtos (nth 1 p1 ) 2 4))
& ~0 u X# O6 \1 C (setq txt (strcat "x " px " , " "y " py))
" e, N$ J U7 m (command "dim1" "leader" p1 p2 "" txt)5 B+ v& N$ R4 T. g- {
(setvar "cmdecho" 1)1 n7 j) R- D i7 N: w
) |
发表于 2010-8-17 19:25
下不来