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 . "
")
)
)
)
(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)
)