图型的面积如何查询？？

chxhi

明白,谢谢了

museum

museum发表于2004-8-22 1:05:00如果一幅图中有多个图班，能一次性全部得到这些面积吗？

这个问题困扰了我很久了，我再顶一下：虽然LI，area，PR/ctrl+!，又或者regionn+massprop都可以求出面积，可是，这些都只能是求出一个图斑的面积，现在我想求图中的几个分散图斑，能没有好一点的办法，难道要一个一个的去选择？

ZZXXQQ

用下面的小程序试一下： (defun c:SUMAREA (/ A ss en i oldcmdecho )
(setq A 0.0)
(setq oldcmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(prompt "\n请选择图元 : ")
(if (setq ss (ssget)) (progn
(setq sl (sslength ss) i 0)
(while (< i sl)
(setq en (entname ss i) i (1+ i))
(command "._area" "_O" en)
(setq A (+ (getvar "area") A))
)
))
(princ "\n面积和 = ")(princ A)
(setvar "cmdecho" oldcmdecho)
(princ)
)

museum

ZZXXQQ发表于2004-8-25 16:54:00用下面的小程序试一下：



(defun c:SUMAREA (/ A ss en i oldcmdecho )(setq A 0.0)(setq oldcmdecho (getvar \"cmdecho\"))(setvar \"cmdecho\" 0)

老大，谢谢，可是不行啊，要加载后运行，不行的！提示如图：

museum

我急，我顶

wanggy169

area选用“加”的选项可以求出几个分散图形的面积。

f5612140

museum发表于2004-8-26 0:27:00以下是引用ZZXXQQ在2004-8-25 16:54:35的发言：用下面的小程序试一下： (setq en (entname ss i) i (1+ i))

entname改为ssname

ZZXXQQ

谢谢f5612140的指正！程序更改如下： (defun c:SUMAREA (/ A ss en i oldcmdecho )
(setq A 0.0)
(setq oldcmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(prompt "\n请选择图元 : ")
(if (setq ss (ssget)) (progn
(setq sl (sslength ss) i 0)
(while (< i sl)
(setq en (ssname ss i) i (1+ i))
(command "._area" "_O" en)
(setq A (+ (getvar "area") A))
)
))
(princ "\n面积和 = ")(princ A)
(setvar "cmdecho" oldcmdecho)
(princ)
)

museum

首先感谢ZZXXQQ和f5612140两位！ 由于于于LSP语言一点也不懂，因此只能自己试着操作，可是我发现，该LSP程序的功能和AREA差不多(AREA要多按个O)，都是要选择对像才能得出面积，而且还要自己手动选生成面域，这样还是省不了多少工作量，如我传的图，我想直接可以获得每个区域的面积，而不用先是一步一步的生成面域，或者是由后台程序代为生成，不知道我这想法可不可行。。。。

museum

刚才忘了传图上来