基于VBA的钻孔投影里程程序初步探索

摘要

目前的地质勘察工作中，勘探孔的坐标、里程及偏移量多是在AutoCAD中采用人机交互方式读取，工作量大并且繁琐。采用VBA对AutoCAD进行钻孔投影里程程序的二次开发，程序中钻孔采取了块和块属性的形式，能够自动获得钻孔的编号、坐标、里程及偏移量，然后将数据保存于Excel中，并且将里程及偏移量写成工作中习惯的方式。钻孔图块维护和操作便捷，计算机自动获取的钻孔数据准确度高，程序界面友好，操作简单，极大减少了专业人员的工作量。经实际应用，效果明显，值得推广。