明白,谢谢了
museum发表于2004-8-22 1:05:00static/image/common/back.gif如果一幅图中有多个图班，能一次性全部得到这些面积吗？
<BR>这个问题困扰了我很久了，我再顶一下：虽然LI，area，PR/ctrl+!，又或者regionn+massprop都可以求出面积，可是，这些都只能是求出一个图斑的面积，现在我想求图中的几个分散图斑，能没有好一点的办法，难道要一个一个的去选择？
用下面的小程序试一下：
(defun c:SUMAREA (/ A ss en i oldcmdecho )<BR>(setq A 0.0)<BR>(setq oldcmdecho (getvar "cmdecho"))<BR>(setvar "cmdecho" 0)<BR>(prompt "\n请选择图元 : ")<BR>(if (setq ss (ssget)) (progn<BR> (setq sl (sslength ss) i 0)<BR> (while (< i sl)<BR> (setq en (entname ss i) i (1+ i))<BR> (command "._area" "_O" en)<BR> (setq A (+ (getvar "area") A))<BR> )<BR>))<BR>(princ "\n面积和 = ")(princ A)<BR>(setvar "cmdecho" oldcmdecho)<BR>(princ)<BR>)
ZZXXQQ发表于2004-8-25 16:54:00static/image/common/back.gif用下面的小程序试一下：
(defun c:SUMAREA (/ A ss en i oldcmdecho )(setq A 0.0)(setq oldcmdecho (getvar \"cmdecho\"))(setvar \"cmdecho\" 0)
老大，谢谢，可是不行啊，要加载后运行，不行的！提示如图：
我急，我顶
area选用“加”的选项可以求出几个分散图形的面积。
museum发表于2004-8-26 0:27:00static/image/common/back.gif以下是引用ZZXXQQ在2004-8-25 16:54:35的发言：用下面的小程序试一下：
(setq en (entname ss i) i (1+ i))
<FONT style="BACKGROUND-COLOR: #f3f3f3">entname改为ssname</FONT>
谢谢<A name=45773><FONT color=#000066><B>f5612140</B></FONT></A>的指正！程序更改如下：
(defun c:SUMAREA (/ A ss en i oldcmdecho )<BR>(setq A 0.0)<BR>(setq oldcmdecho (getvar "cmdecho"))<BR>(setvar "cmdecho" 0)<BR>(prompt "\n请选择图元 : ")<BR>(if (setq ss (ssget)) (progn<BR> (setq sl (sslength ss) i 0)<BR> (while (< i sl)<BR> (setq en (ssname ss i) i (1+ i))<BR> (command "._area" "_O" en)<BR> (setq A (+ (getvar "area") A))<BR> )<BR>))<BR>(princ "\n面积和 = ")(princ A)<BR>(setvar "cmdecho" oldcmdecho)<BR>(princ)<BR>)
首先感谢<A name=45829><FONT color=#000066><B>ZZXXQQ</B></FONT></A>和<A name=45773><FONT color=#000066><B>f5612140</B></FONT></A>两位！
由于于于LSP语言一点也不懂，因此只能自己试着操作，可是我发现，该LSP程序的功能和AREA差不多(AREA要多按个O)，都是要选择对像才能得出面积，而且还要自己手动选生成面域，这样还是省不了多少工作量，如我传的图，我想直接可以获得每个区域的面积，而不用先是一步一步的生成面域，或者是由后台程序代为生成，不知道我这想法可不可行。。。。
刚才忘了传图上来