利用VBA语言对AutoCAD进行二次开发,通过拓展数据功能实现对矿井瓦斯地质图中瓦斯抽采钻孔的钻孔初始瓦斯流量、钻孔瓦斯流量衰减系数和钻孔抽采起止日期等钻孔属性信息的赋值和查询,并根据钻孔初始瓦斯流量和百米钻孔瓦斯流量分别实现了块段内钻孔瓦斯抽采量的预测;在矿井瓦斯地质图的基础上,应用距离幂次反比法和瓦斯地质统计法实现了块段内瓦斯资源量、瓦斯剩余量的自动计算。实际应用结果表明,瓦斯资源量和钻孔瓦斯抽采量的预测误差为3.7%,预测结果为煤层瓦斯资源量和瓦斯抽采效果的评价提供了参考。