[求助]查询面积总和

云中帆

在规划图查询面积时，怎样做到选择多个对象，可以查询出面积总和，麻烦高手帮我编个lisp程序

lfh0316

(defun c:am (/ olderr oldcmdecho errexit undox restore ss1 nr en tot_area)
(defun errexit (s)
(restore)
) (defun undox ()
(command "._undo" "_E")
(setvar "cmdecho" oldcmdecho)
(setq *error* olderr)
(princ)
) (setq olderr *error*
restore undox
*error* errexit
)
(setq oldcmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "._UNDO" "_BE")
(if (setq ss1 (ssget '((-4 . "<OR")
(0 . "POLYLINE")
(0 . "LWPOLYLINE")
(0 . "CIRCLE")
(0 . "ELLIPSE")
(0 . "SPLINE")
(0 . "REGION")
(-4 . "OR>")
)
)
)
(progn
(setq nr 0)
(setq tot_area 0.0)
(setq en (ssname ss1 nr))
(while en
(command "._area" "_O" en)
(setq tot_area (+ tot_area (getvar "area")))
(setq nr (1+ nr))
(setq en (ssname ss1 nr))
)
(princ "\n面积之和 = ")
(princ tot_area)
)
)
(restore)
)

lixegn

解决这个问题这个东东不错: CAD图的长度 面积总和 成千上万个CAD图元都不在话下,结果列表显示,并可同时导出到excel当中.
详细介绍
http://blog.sina.com.cn/s/reader_4837c5df0100abji.html

遗忘之阁

你这个算量小巧手没用啊