de.lsp-在圖上標上座標(xE,yN)( k( z6 K8 h" Z: u0 \8 l' n
6 ]; f2 S8 K+ K r
(defun c:de ()
! T6 X- M* N2 W' A (setvar "cmdecho" 0)7 O" \ D! J3 G' N; N- {4 D+ K
(command "osnap" "end")& ?- Z! O {7 S. O2 t& v" v! {
(setq p1 (getpoint "Select line near endpoint"))4 M7 M& n! J/ q; f& c( Z: C
(setq p2 (getpoint p1 "Select cen of Leader"))
# g* [* }+ M. j3 f (setq px (rtos (nth 0 p1 ) 2 4))
+ ^5 q" g0 Z1 L (setq py (rtos (nth 1 p1 ) 2 4))
0 c# P5 A0 R1 W6 i |9 _ (setq txt (strcat "x " px " , " "y " py))
- ^% ?! J3 ]' O2 k7 l7 q3 { (command "dim1" "leader" p1 p2 "" txt)/ d* N2 x& {8 m6 z( q5 {& W
(setvar "cmdecho" 1)9 t7 `/ N- a- d4 k+ d: f
) |