基于Microsoft﹢Visual﹢Basic绘制桩基工程桩位偏差图

《基于Microsoft﹢Visual﹢Basic绘制桩基工程桩位偏差图》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、2017年1月建材与装饰地质·勘察·测绘基于MicrosoftVisualBasic绘制桩基工程桩位偏差图况佳亮（江西省地质矿产勘查开发局水文地质工程地质大队）摘要：在桩基工程中绘制竣工图，桩位偏差图是必不可少的资料之一。绘制桩位偏差图工作繁琐且工作量庞大，较容易出错。绘制完桩位偏差图后还需要与桩位偏差表一一核对，提高正确率。为提高工作效率，现基于MicrosoftVisualBasic编制桩位偏差图绘制程序。关键词：MicrosoftVisualBasic；桩位偏差图中图分类号：TU753文献标识码：A文章编号：1673-0038（2017）02-0213-03

2、1文件准备SetMyxl=GetObject（，"Excel.Application"）′读取桩位偏差以某工程数据为例，根据现场测量工作得到各桩位坐标值及表偏差值，按如下格式填写桩位偏差表。n=Myxl.activecell（2，5）+2′n代表读取表格的行数Fori=3Tonx=Myxl.activecell（i，3）y=Myxl.activecell（i，4）cc（0）=x′定义圆心座标东cc（1）=y′北cc（2）=0dong=Myxl.activecell（i，5）′读取东方向偏差值nan=Myxl.activecell（i，6）′读取南方向偏差值xi=M

3、yxl.activecell（i，7）′读取西方向偏差值bei=Myxl.activecell（i，8）′读取北方向偏差值bh=Myxl.activecell（i，2）′读取桩位编号Ifbei=""Then2桩位偏差图绘制程序bhwz（0）=cc（0）-0.5×JASubZWPC（）′定义桩位偏差函数bhwz（1）=cc（1）+0.5×JADimdong，nan，xi，beiAsString'东南西北bhwz（2）=0DimMyxl′定义EXCEL表对象CallThisDrawing.ModelSpace.AddText（bh，bhwz，0.25×DimxAsDo

4、uble′桩位北坐标JA）′画桩位编号DimyAsDouble′桩位东坐标ElseDimiAsInteger′循环变量bhwz（0）=cc（0）-0.5×JADimcc（0To2）AsDouble′存储桩位坐标bhwz（1）=cc（1）-0.7×JADimcc1（0To2）AsDouble′东西方向偏差文字坐标bhwz（2）=0Dimcc2（0To2）AsDouble′南北方向偏差文字坐标CallThisDrawing.ModelSpace.AddText（bh，bhwz，0.25×DimnAsIntegerJA）′画桩位编号DimHAsDoubleEndIf′D

5、imAttAsAcadAttributeIfdong<>""ThenDimJ1（0To2）AsDouble′箭头cc1（00=cc（00+0.55×JA′东DimJ2（0To2）AsDouble′箭头cc1（1）=cc（1）′北Dimline1AsAcadLinecc1（2）=0Dimline2AsAcadLinecc2（0）=cc（0）+0.55×JA′东DimbhAsString′桩号cc2（1）=cc（1）+0.05×JA′北Dimbhwz（0To2）AsDouble′桩号位置坐标cc2（2）=0DimJAAsDouble′绘制图比例CallThisDraw

6、ing.ModelSpace.AddText（dong，cc2，JA=1000′JA=1表示以m为单位，JA=1000，表示以mm为0.25×JA）′写东方向桩位偏差单位J1（0）=cc1（0）-0.055×JA·213·地质·勘察·测绘建材与装饰2017年1月J1（1）=cc1（1）+0.05×JAJ2（2）=cc1（2）J1（2）=cc1（2）Setline1=ThisDrawing.ModelSpace.AddLine（cc1，J1）J2（0）=cc1（0）-0.055×JA′画箭头线J2（1）=cc1（1）-0.05×JAline1.Lineweight=

7、acLnWt030′设置线宽J2（2）=cc1（2）Setline2=ThisDrawing.ModelSpace.AddLine（cc1，J2）Setline1=ThisDrawing.ModelSpace.AddLine（cc1，J1）′画箭头线′画箭头线line2.Lineweight=acLnWt030′设置线宽line1.Lineweight=acLnWt030′设置线宽ElseSetline2=ThisDrawing.ModelSpace.AddLine（cc1，J2）cc1（0）=cc（0）′东′画箭头线cc1（1）=cc（1）-0.55×JA′北l

8、ine2.