de.lsp-在圖上標上座標(xE,yN)
7 L) @% y- S3 z+ t* y2 M/ L8 i& D5 }0 x$ H
(defun c:de (): z v, B9 }/ O* j3 E% L
(setvar "cmdecho" 0)+ n4 N4 K. z6 S6 y
(command "osnap" "end")
b: H v; s p' C. s) [; d" I (setq p1 (getpoint "Select line near endpoint"))8 n3 f- K. h+ @; i) I% p5 W
(setq p2 (getpoint p1 "Select cen of Leader"))
1 h; @) J+ L. ]) I; d; @6 x (setq px (rtos (nth 0 p1 ) 2 4))
4 h7 R( K0 {) f7 ]! x (setq py (rtos (nth 1 p1 ) 2 4))
6 |, E+ Y# p. B (setq txt (strcat "x " px " , " "y " py))1 C. }& B. a+ w) |$ V
(command "dim1" "leader" p1 p2 "" txt)
( j9 I5 ?. d+ h. f( w- f (setvar "cmdecho" 1)
$ X4 F2 n8 y4 D# `, t& k! ?/ T) |
发表于 2010-8-17 19:25
下不来