基于VBA技术自动生成铀矿矿体水平投影图应用研究

矿体水平投影图是铀矿资源储量估算最重要的图件之一。以往矿体水平投影图的绘制主要是在CAD中手动完成,绘图效率不高且容易出错,出现错误也难以检查,为此提出一种基于VBA和Excel自动生成矿体水平投影图的方法,并编程实现。程序主要分为Excel数据预处理模块和AutoCAD成图模块两部分。EXCEL数据预处理模块主要计算图框范围、坐标格网范围和勘探线的起终点,结合测斜数据、揭穿矿体中心深度、孔口坐标,通过深度加权法计算矿体揭穿点坐标,并且以工业矿段为单位,结合矿化信息和资源储量计算规范,计算其勘探线和基线四个方向的矿体拐点坐标。AutoCAD VBA绘图模块通过AutoCAD ActiveX Automation技术将钻孔和平米铀量等信息及图框、坐标网格、勘探线自动绘制到AutoCAD图形空间,并且用GIS方法把矿体坐标拐点按顺序连接,从而实现铀矿体范围的初步圈定。最后以某矿床为例,通过程序自动生成矿体水平投影图。与之前手工绘制图件进行比较可知,该方法可以快速准确地完成矿体水平投影图的制作,绘制过程避免了部分人为误差,绘制结果满足精度要求,极大提高了生产效率。