【文件属性】：
文件名称：把面积写在图上
文件大小：519B
文件格式：LSP
更新时间：2014-11-21 08:19:08
把面积写在图上
;; 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 "AREA") 2 2))
(SETQ PT (GETPOINT"\nPick the point you want to write area:"))
(COMMAND "TEXT" PT "" "" QAREA)