1、“.....引用教程M北京清华大学出版社,建筑基桩检测技术规范JGJ。运用EcelVBA、CAD绘制钻芯法柱状图(原稿)。Ecel中VBA程序主要代码类型库的引用打开Ecel进入VBA编辑器,选择〈工具〉〈引用〉菜单项,打开对话框,选中VisualBasicForApplicationsOLEautomation和AutoCADTypeLibrary类型库。引用类型库实际上是向编译器表示本程序要使用某个已经注册的组件。引用类型库之后,就可以在对象浏览器中atchID工作表中计算好柱状图各分层所对应的图例填充的外部边界关键点Y坐标,从CoreData工作表中读取各分层的所对应的图例名称并设置图例类型等等,VBA代码如下SetHatchObjPatternType,PatternName,bAssociativity设置填充图例对象IDHatchWorksheets‚HatchID‛CellsnRow......”。

2、“.....柱状图的显示比例尺较小的情况下,分层高度不能容纳下全部的描述文字,则需要画缓冲线来使的柱状图更美观。EcelLineID工作表中计算好柱状图各分层线及缓冲线各关键点的Y坐标,读取关键点坐标到已定义好的数组变量pLinePoint中,在CAD中画多线段。VBA代码如下pLinePointWorksheets‚LineID‛CellsnRow,Value获取第～tWorksheets‚MTetID‛CellsnRow,Value获取该文本的YZ设为坐标SetMTetObjInsertionPoint,MtetWidth,MtetString在上述坐标插入文本分层线及缓冲线对于分层较薄而描述文字又较多,柱状图的显示比例尺较小的情况下,分层高度不能容纳下全部的描述文字......”。

3、“.....EcelLineID工作表中计算好柱状图各分层线及缓冲线各关键点的Y坐标,读取关键点坐标到中读取该内容对应的坐标,在CAD中插入该内容。CAD中插入单行和多行文本的代码略有不同,以下介绍多行文本的插入如下MtetStringWorksheets‚CoreData‛CellsnRow,Value从Ecel中读取CoreData中对应的文本InsertionPointWorksheets‚MTetID‛CellsnRow,Value获取该文本的YZ设为坐标SetMTetObjInsertionPoint,MtetWidth,plicationSetDOC‚D\work\柱状图dwg‛打开钻芯柱状图模板文件nRow设置初始行号为,第个钻芯孔DoWhileLoopIDi循环生成柱状图LoopIDLoopIDCallCoreHeadInfoTt调用子程序添加柱状图表头信息调用子程序添加分层序号......”。

4、“.....程序代码所需要的钻孔信息和坐标数据应与Ecel工作表中所在的列要对应。定义变量变量通俗讲就是用于临时存放东西容器,里面的东西可随着程序的运行保持不变或不断变化。本程序所需的变量也较多,钻孔行号,CAD程序文档单行与多行文本对象线段多线段以及维线段对象文字对齐点对象填充图例对象及填充的外部边界,文本及多行文本,点坐标数组,生成柱状图的个数模板文件存放的路径循环数等等变量,定义变量时需要确定变量的名称及类型。如DimnR成完毕,确定退出,调用CAD文件‛‛D\work\柱状图‛另存柱状图新文件。子程序文本添加读取Ecel钻孔信息工作表中某单元格的内容,并在HeadTetID工作表中读取该内容对应的坐标,在CAD中插入该内容。CAD中插入单行和多行文本的代码略有不同,以下介绍多行文本的插入如下MtetStringWorksheets‚CoreData‛CellsnRow......”。

5、“.....分别为基桩设计施工资料表PileInfo钻孔数据表CoreData。基桩设计施工资料表包含工程的基本信息,工程名称及检测桩的设计施工参数,包括桩号桩径施工桩长桩顶标高设计砼强度等。钻孔数据表列包含钻孔编录的详细信息,钻芯孔号开终孔日期检测桩长桩身与持力层的芯样描述沉渣情况各分层信息砼岩取样位置及强度值等。自动计算表设置为个工作表,分别为柱状图比例尺表HistogramScal,确定绘制的柱状的比例,通过钻孔深度及末tID,图头信息在每个柱状图上的位置,其坐标较固定,各柱状图的图头信息的坐标存在相对关系线坐标表LineID文字坐标表TetID和图例填充坐标表HatchID,这个表的坐标数据需根据各钻孔分层的层底深度及厚度等信息进行计算。工作表Ecel中共设置个工作表,分为人工录入信息表和自动计算表两种,并且设置每个工作表第～行为表头行,第行开始为数据行,每个钻孔的信息为行......”。

6、“.....列为数据项,以钻芯孔号为主索引。图头定制柱状图包etHatchObjPatternType,PatternName,bAssociativity设置填充图例对象IDHatchWorksheets‚HatchID‛CellsnRow,Value外部边界关键点～的Y坐标略SetOuterLoopIDHatch设置外部边界必须闭合OuterLoop附加外部边界到阴影对象,并显示阴影设置填充比例刷新图例结语本文所述的思路及主要代码可实现钻芯法检测综合柱状图的绘制,在Ecel工作表录入并汇总各钻芯定义好的数组变量pLinePoint中,在CAD中画多线段。VBA代码如下pLinePointWorksheets‚LineID‛CellsnRow,Value获取第～个点对应的Y坐标略SetPLineObjpLinePoint画分层线及缓冲线图例填充AutoCAD提供的填充图案保存在和文本文件中。网络基本可收集到各种地质图例,将图例文件拷贝至CAD安装目录下Support文件夹中......”。

7、“.....在EcelH成完毕,确定退出,调用CAD文件‛‛D\work\柱状图‛另存柱状图新文件。子程序文本添加读取Ecel钻孔信息工作表中某单元格的内容,并在HeadTetID工作表中读取该内容对应的坐标,在CAD中插入该内容。CAD中插入单行和多行文本的代码略有不同,以下介绍多行文本的插入如下MtetStringWorksheets‚CoreData‛CellsnRow,Value从Ecel中读取CoreData中对应的文本InsertionPoinMtetString在上述坐标插入文本分层线及缓冲线对于分层较薄而描述文字又较多,柱状图的显示比例尺较小的情况下,分层高度不能容纳下全部的描述文字,则需要画缓冲线来使的柱状图更美观。EcelLineID工作表中计算好柱状图各分层线及缓冲线各关键点的Y坐标,读取关键点坐标到已定义好的数组变量pLinePoint中,在CAD中画多线段......”。

8、“.....Value获取第～LoopIDCallCoreHeadInfoTt调用子程序添加柱状图表头信息调用子程序添加分层序号,层底标高深度厚度采取率描述画分层线及缓冲线填充图例砼岩取样信息及强度值标贯试验信息等等nRownRow钻孔的行号增Loop进入循环进行下个钻孔的柱状图绘制MsgBo‚柱状图生成完毕,确定退出,调用CAD文件‛‛D\work\柱状图‛另存柱状图新文件。子程序文本添加读取Ecel钻孔信息工作表中某单元格的内容,并在HeadTetID工作表运用EcelVBA、CAD绘制钻芯法柱状图(原稿)doc括图头表格和图形显示区,图头表格包括工程名称基桩及钻孔的基本信息。图形显示区是柱状图的主要信息窗口,以分栏形式显示信息。将不同种类的数据放入不同的图栏中,栏与栏互不相交。包括填充图案文字描述等。运用EcelVBA、CAD绘制钻芯法柱状图(原稿)。工作表Ecel中共设置个工作表,分为人工录入信息表和自动计算表两种,并且设置每个工作表第～行为表头行,第行开始为数据行......”。

9、“.....且在各工作表中对应的行号相同。列为数据项,以钻芯孔号为主索MtetString在上述坐标插入文本分层线及缓冲线对于分层较薄而描述文字又较多,柱状图的显示比例尺较小的情况下,分层高度不能容纳下全部的描述文字,则需要画缓冲线来使的柱状图更美观。EcelLineID工作表中计算好柱状图各分层线及缓冲线各关键点的Y坐标,读取关键点坐标到已定义好的数组变量pLinePoint中,在CAD中画多线段。VBA代码如下pLinePointWorksheets‚LineID‛CellsnRow,Value获取第～Info钻孔数据表CoreData。基桩设计施工资料表包含工程的基本信息,工程名称及检测桩的设计施工参数,包括桩号桩径施工桩长桩顶标高设计砼强度等。钻孔数据表列包含钻孔编录的详细信息,钻芯孔号开终孔日期检测桩长桩身与持力层的芯样描述沉渣情况各分层信息砼岩取样位置及强度值等。自动计算表设置为个工作表,分别为柱状图比例尺表HistogramScal,确定绘制的柱状的比例......”。