通过拉伸、剖切产生三维实体地形
本帖最后由 作者 于 2004-5-26 21:16:41 编辑 <br /><br /> 通过拉伸、剖切产生三维实体地形<BR>AUTOCAD中如果能构造出地形的三维实体，那么很容易计算任意位置的土方量。本人在国外网站上找到相关论文，想在此求大家帮助把程序做出来。<BR>现在我有已经网格化的数据了，我想通过拉伸产生三维实体。我的思路是这样的：将一个小网格划分为两个直角三角形，拉伸直角三角形形成三棱柱，按正交网格的节点标高值切割实体三棱柱，联合所有被切割的小三棱柱形成三维实体模型。单个三棱柱生成的AUTLISP语句如下：1、绘制实体三棱住的平面图（三角形） (command pline "x1,y1" "x2,y2" "x3,y3" ) 2、拉伸平面三角形成实体三棱住(command extrude "h1" "0" ) 3、 按正交网格节点值剖切实体三棱住(command slice "x1,y1,z1" "x2,y2,z2" "x3,y3,z3" "x3,y3,h2" )<BR>数据点的排列方式如下：（每个句号代表一个数据点）<BR>。。。。。。。
。。。。。。。
。。。。。。。
。。。。。。。
我不知道用VBA怎么实现，请大家出招，谢谢了！
<A href="http://celiang.net/celiang/upload/forum/2004526210737.rar" target="_blank" ><FONT color=#000000>参考论文</FONT>http://celiang.net/celiang/upload/forum/2004526210737.rar</A>
页:
[1]