CAD面积求和技巧
以下内容来自网络，具体作者未知。

前几天有个CAD算面积的工作，幸亏找到了这段程序，把两天的工作量变成了两个小时，很好使！
1.把下面的代码存到文本文档里面，然后把文本文档改aream.lsp
2.在cad中用ap命令，加载此文件即可
3.你可以用此命令了，使用命令aream
面积求和
--------------------------------------
;;; AREAM.LSP
;;; Function: Calculates the total area of selected objects
(defun c:aream (/ 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 "\nTotal Area = ")
(princ tot_area)
)
)
(restore) )。