AutoCAD格式钻孔柱状图资料数据库化的研究.pdf

《AutoCAD格式钻孔柱状图资料数据库化的研究.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、能源技术与管理2015年第4O卷第4期184EnergyTechnologyandManagementV01．40No．4doi：10．39696．issn．1672—9943．2015．04．071AutoCAD格式钻孔柱状图资料数据库化的研究李广平(皖北煤电恒源股份公司钱营孜煤矿，安徽宿州234000)[摘要]《煤矿防治水工作规定》和《煤矿地质工作规定》的施行，对地质资料的信息化、数据库化提出了更高的要求。很多矿井在进行地质资料的数据库化时，遇到老的地质钻孔综合柱状图只有AutoCAD格式、没有数据库格式的问题。~XVBA编程方法，介绍了一种对AutoCAD格式钻

2、孔柱状图资料数据库化的方法。[关键词]钻孔柱状图；数据库；AutoCAD二次开发；VBA编程[中图分类号]TD672[文献标识码]B[文章编号]1672_9943(2015)041842CAD0引言—end=ThisDrawing．Utility．GetPoint(，vbCr&“请选择右下角点：”)很多矿井在建立地质信息化平台时，遇到矿这段程序询问有几列数据要导出，操作时按井老的地质钻孔综合柱状图只有AutoCAD格式，CAD提示分别输入对应值；提示选择左上角点时没有数据库格式的问题。这些老钻孔资料只能人点选要导出第一列的左上角；提示自左向右选择工逐项进行数据化录入，

3、工程繁琐且易出错。对这列边框角点时，依次点选每列右上角直至最后一些AutoCAD格式的钻孑L资料使用AutoCAD二次列；提示选择右下角点时点选最后一列右下角。开发的办法，编程处理录入资料能够大大节省时1．2程序录入工作间和人力，并且能杜绝录入错误的发生。文章介绍程序代码一种对AutoCAD格式钻孔柱状图资料数据库化LSItemcount=lithologyse1．count(记录选择——的VBA编程方法。集内每项颜色信息至LS—Item_color数组)ReDimLS1程序的设计和算法_hem_color(1ToLS—Item—count)LSi=1～打开AutoC

4、AD格式的钻孑L综合柱状图后，执ForEachelementInXithoXogy—sel(改变选中文行调用VBA工程的命令，按下述步骤操作。字的颜色)1．1确定要录入钻孔柱状图的列数LS_hem_color(LS—i)=element．color程序代码Ifelement．color<>acGreenThenCADeXement．color=acGreen—col=ThisDrawing．Utility．GetReal(vbCr&“请输入要导出的列数目：”1Elselithologycol=ThisDrawing．Utility．GetRealelemenLcolo

5、r=acRed～fvbCr请输入岩石名称在第几列：”)Enr{Ifdescribecol=ThisDrawing．Utility．GetRealLSi=LSi+1———(vbCr&“请输入岩石描述在第儿列，如果没有请Next输入O：”)以上程序将准备录入的数据的颜色全部改为ReDimCAD—border(OToCAD—coX)AsVariant绿色，已经录入的数据改为红色，未选中录入的数CAD—border(0)=ThisDrawing．Utility．GetPoint(，据的颜色不做改变，这样方便操作人员查看哪些vt)CI-&“请选择左上角点：”)数据被录入数据库。

6、For。CADi=1ToCADcoxStep1ReDimLShem————Y(1ToLS—Item_count)CAI)LSJ=1一border(CAD—i)=ThisDrawing．UtiXity．_(tPoint(，vbCr&“请自左向右选择列边框角点：”)ForEachotextInlithology——selNcxtCADiLSInsertPoint：otext．InsertionP0int2015年8月Aug．，2015李广平AutoCAD格式钻孔柱状图资料数据库化的研究185LShemCallxls__Y(LS_J)=LS—InsertPoint(1)—s

7、e1．Select(acSelectionSetCrossing，LSj=LSj+1row_start，row_end，FiherType，FilterData)NextForEachotextInxlssel——DoEventsXSInsertPoint=otext．InsertionPoint—LSForxls—Item_Y_I=1：LSjtem—_Yj=1_J=lToCAD—colStep1ForLSItemYI=1ToLSItemcountStep1Ifxls_J<>describecolThen———_——ForLSjtem__Yj=1To