;; write area value of a close polygon to drawing (DEFUN C:EA(/ OLDOS PT STA QAREA) ;; (setq olderr *error*) (setq *error* myerr) (SETVAR "CMDECHO" 0) (SETQ OLDOS (GETVAR "OSMODE")) ;; (SETVAR "OSMODE" 0) (SETQ STA (CAR (ENTSEL))) (COMMAND "AREA" "E" STA) (SETQ QAREA (RTOS (GETVAR "A