de.lsp-在圖上標上座標(xE,yN)' ^5 z6 j9 V& s' ^ H
8 o" A/ p( ?2 {, Z0 d
(defun c:de ()
* r+ b5 f7 w3 r8 O! B (setvar "cmdecho" 0)
4 \0 {' ^3 c0 D6 N8 S; k! t (command "osnap" "end"): v y4 X6 O' i" d
(setq p1 (getpoint "Select line near endpoint"))+ Z& y1 i/ x5 b# ^0 ~7 w6 d4 W+ H
(setq p2 (getpoint p1 "Select cen of Leader"))
3 R' L9 o& I0 X w6 Q' O S (setq px (rtos (nth 0 p1 ) 2 4))
3 L8 i. O( [) ?' N: n& d6 m3 j (setq py (rtos (nth 1 p1 ) 2 4))3 l4 ]; v+ O$ O Q' h5 @; u
(setq txt (strcat "x " px " , " "y " py))
5 c+ [3 {; v7 o. b3 Z (command "dim1" "leader" p1 p2 "" txt)
* e4 G# `& q- i* M5 V( A (setvar "cmdecho" 1)% l( W. e# K& Q, s: r# L& h* d
) |
发表于 2010-8-17 19:25
下不来