文件名称：把面积写在图上
文件大小：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)