de.lsp-在圖上標上座標(xE,yN)" x7 a; A. H2 R' M6 |
" ~- C' h! N" ~(defun c:de ()+ C" c3 g, r ~7 D
(setvar "cmdecho" 0)" ~1 y1 z, C' E# U( j: {2 T
(command "osnap" "end")
* I0 S7 M! u, |) D- m+ Z# | (setq p1 (getpoint "Select line near endpoint"))
9 h4 A: _0 W5 n. p; { (setq p2 (getpoint p1 "Select cen of Leader"))! R# N8 q1 C w: _% ~
(setq px (rtos (nth 0 p1 ) 2 4))2 U0 K) i3 J9 `) E
(setq py (rtos (nth 1 p1 ) 2 4))
* v4 w" G/ z) H$ C( n6 @ (setq txt (strcat "x " px " , " "y " py))& S' T5 u$ c$ H# T
(command "dim1" "leader" p1 p2 "" txt)
: B+ r2 Q p* L4 j/ d y. O (setvar "cmdecho" 1)
8 p2 [5 k: Z" b, F0 Z) |