资源大小: 519B
发布时间: 2011-11-01
文件格式: none
下载次数: 1
分享到:

下载地址:

下载地址1
(本站为飞网专业下载站,域名:down.cfei.net)

资源简介:

;; 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)


飞网下载站,免费下载共享资料,内容涉及教育资源、专业资料、IT资源、娱乐生活、经济管理、办公文书、游戏资料等。