;;
(defun c:tt()
( setq a t
bl (getreal"输入比例尺: ")
p1 (getpoint"\n拾取点<")
H (getvar "textsize")
)
( while a
( setq g ( grread t 7 0 ) )
(if ( = ( car g ) 5 )
(progn
(setq p2 (cadr g)
ds (distance p1 p2)
ang (angle p1 p2)
ds (/(* ds bl)10)
ANG (* ANG (/ 180 3.14))
str (strcat "@" (RTOS ang 2 2) "<" (RTOS ds 2 2) "cm")
)
(redraw)
(grdraw p1 p2 2)
(command ".text" p2 h "0" str "")
(command ".erase" (entlast) "")
(if(=( car g )3) ;??
(progn
(command ".circle" p2 h )
(setq a nil)
)
);if 3
)
);if 5
);for
)