de.lsp-在圖上標上座標(xE,yN)/ T8 x1 R W9 N+ y3 K
* H) d5 ^1 [; u(defun c:de ()! ?0 K" u; S' C# `5 B0 h
(setvar "cmdecho" 0)( C9 l5 s! N6 d
(command "osnap" "end")* s) P) d% s, [. s
(setq p1 (getpoint "Select line near endpoint")); I0 F! M; g) U! l& c8 h# p. {
(setq p2 (getpoint p1 "Select cen of Leader"))4 s( o" z; e& k% X B7 C( {5 b
(setq px (rtos (nth 0 p1 ) 2 4)) J& [( I, M. P# E/ ?. e
(setq py (rtos (nth 1 p1 ) 2 4))
8 M- X0 ~9 Z+ [. E. D0 s# f" `8 r (setq txt (strcat "x " px " , " "y " py))
0 R X! D% C ^& u* i1 z (command "dim1" "leader" p1 p2 "" txt)7 g* Y9 F5 }& j' R# h
(setvar "cmdecho" 1)
/ B3 {7 {- o) k X! P$ ^) |