de.lsp-在圖上標上座標(xE,yN)7 Q$ a! ~) h1 A# U: h+ g6 s& B3 f
' \: Q! A2 n& m1 ~( V1 d(defun c:de ()7 c$ w4 X x Y- {& c
(setvar "cmdecho" 0)
/ p; J7 C& h. P& @4 q/ S9 Q4 Y (command "osnap" "end")# l. z# [+ Q, Q2 z7 k9 }; t
(setq p1 (getpoint "Select line near endpoint"))
. l2 J8 s. B- h: r (setq p2 (getpoint p1 "Select cen of Leader"))1 o: T* p/ [/ d$ V
(setq px (rtos (nth 0 p1 ) 2 4))
K+ q) g/ K0 t2 r* ^ (setq py (rtos (nth 1 p1 ) 2 4))
- `! Q+ _6 L. A5 n (setq txt (strcat "x " px " , " "y " py))
+ A3 U- |/ S/ p1 r4 g/ R a (command "dim1" "leader" p1 p2 "" txt)+ r6 v8 a8 K3 N( N3 u1 s5 s
(setvar "cmdecho" 1)
+ a- J8 Q# v7 U( T' n) |