; Freeware Areatx.lsp: ; Type something in Dtext to ; check the current text height and style. ; Load this AutoLISP file. ; Type "areatx" on the command line, ; Pick a closed Polyline or Region, ; Pick a place for the text. ; Author unknown. ; (defun c:areatx () (setq ce (getvar "cmdecho")) (setvar "cmdecho" 0) (command "area" "e" pause) ; ; Note: to add decimal places, ; change the zero below to a ; number, such as 2 or 4. ; (setq v1(rtos(getvar "area")2 0)) (setvar "cmdecho" ce) (command "text" pause "" "" v1) )