[编程申请]：通过拉伸、剖切产生三维实体地形、计算土方好方法

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怎么实现，请大家出招，谢谢了！