lixiang_sh
发表于 2007-11-19 22:13:00
希望编写一个能这样算面积的工具
<p>建筑上用来算每层面积的,因为有些部分是只算一半面积(比如阳台)</p><p>算的步骤</p><p>1先用pl线或者rec将要算的部分圈出来,</p><p>算一半用一层,全部算的用另一层</p><p>2调入命令后,直接框选</p><p>3将"本层建筑面积为:XXX.XXm2"直接点在图纸上</p><p></p>
lixiang_sh
发表于 2007-11-19 22:15:00
<p>等多少年了,也没人编写一下</p>
sailorcwx
发表于 2007-11-19 23:05:00
<strong><font face="Verdana" color="#61b713">lixiang_sh和lixang是不是同一个人？</font></strong>
berni
发表于 2007-11-20 00:33:00
<p>这个好象挺简单的，提供一个面积相加的原码，剩下的就看你自己了。实在不行联系我。</p><p>(defun c:areasum (/ ss ssl x ea a)<br/> (princ "\n请选取要求面积的pline线:")<br/> (setq ss (ssget '((-4 . "<or") (0 . "LWPOLYLINE")<br/> (0 . "SPLINE")<br/> (0 . "CIRCLE")<br/> (-4 . "or>")<br/> )<br/> )<br/> )<br/> (setq ssl (sslength ss));<br/> (setq ea 0)<br/> (while (> ssl 0)<br/> (setq x (ssname ss (setq ssl (1- ssl))))<br/> (command "area" "o" x)<br/> (setq a (getvar "area"))<br/> (setq a (/ a 1000000))<br/> (setq ea (+ ea a))<br/> )<br/> (setq ea (rtos ea 2 6))<br/> (princ "\n所选图形面积(之和)为")<br/> (princ ea)<br/> (princ "m^2")<br/> (princ)<br/>)</p>
enixing
发表于 2007-11-20 08:49:00
本帖最后由 作者 于 2007-11-20 8:57:02 编辑 <br /><br /> <p>我的工作跟lz非常相似哦。。。</p>
enixing
发表于 2007-11-20 08:56:00
<p>to 楼上，其实不简单，如果你是做面积预售、报建计算的话，尤其是某些大公司需要非常严谨。首先按照分区，大致分为门廊，阳台，套内，露台。。。然后根据算全算半的原则计算建筑面积，输出每户面积，程序关键不但是功能的实现，还有前后的衔接。</p><p>to lz，我们公司有专门的部门做这个工作，我自己也写了一个，lz可以看看</p><p><a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=63405&replyID=&skin=1">http://bbs.mjtd.com/forum.php?mod=viewthread&tid=63405&replyID=&skin=1</a></p>
lixiang_sh
发表于 2007-11-22 21:14:00
<p>我要是能编写就不发在这里了</p><p>我在设计院,经常需要算建筑面积</p><p>也常帮甲方算单套的面积,</p><p>这工作真是乏味,还容易错</p>
lixiang_sh
发表于 2007-11-22 21:15:00
<p>你的洋房面积lisp,下不小</p><p>哓东网,我注册了进不去.</p>
173375424
发表于 2007-11-22 22:43:00
期待高手来大显身手
sailorcwx
发表于 2007-11-22 23:47:00
<p></p>高手不出手，我来个菜鸟吃大虾，见笑了，呵呵<br/>2个图层分别为"半面积"和"全面积"，命令是ga<br/>