通过拉伸、剖切产生三维实体地形

zzz8662

通过拉伸、剖切产生三维实体地形
AutoCAD中如果能构造出地形的三维实体，那么很容易计算任意位置的土方量。本人在国外网站上找到相关论文，想在此求大家帮助把程序做出来。
现在我有已经网格化的数据了，我想通过拉伸产生三维实体。我的思路是这样的：将一个小网格划分为两个直角三角形，拉伸直角三角形形成三棱柱，按正交网格的节点标高值切割实体三棱柱，联合所有被切割的小三棱柱形成三维实体模型。单个三棱柱生成的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" )
数据点的排列方式如下：（每个句号代表一个数据点）
。。。。。。。 。。。。。。。 。。。。。。。 。。。。。。。 我不知道用VBA怎么实现，请大家出招，谢谢了！ 参考论文http://celiang.net/celiang/upload/forum/2004526210737.rar