資源描述：
《基于Microsoft﹢Visual﹢Basic繪制樁基工程樁位偏差圖》由會員上傳分享，免費在線閱讀，更多相關內(nèi)容在學術論文-天天文庫。
1、2017年1月建材與裝飾地質·勘察·測繪基于MicrosoftVisualBasic繪制樁基工程樁位偏差圖況佳亮（江西省地質礦產(chǎn)勘查開發(fā)局水文地質工程地質大隊）摘要：在樁基工程中繪制竣工圖，樁位偏差圖是必不可少的資料之一。繪制樁位偏差圖工作繁瑣且工作量龐大，較容易出錯。繪制完樁位偏差圖后還需要與樁位偏差表一一核對，提高正確率。為提高工作效率，現(xiàn)基于MicrosoftVisualBasic編制樁位偏差圖繪制程序。關鍵詞：MicrosoftVisualBasic；樁位偏差圖中圖分類號：TU753文獻標識碼：A文章編號：1673-0038（2017）02-0213-03
2、1文件準備SetMyxl=GetObject（，"Excel.Application"）′讀取樁位偏差以某工程數(shù)據(jù)為例，根據(jù)現(xiàn)場測量工作得到各樁位坐標值及表偏差值，按如下格式填寫樁位偏差表。n=Myxl.activecell（2，5）+2′n代表讀取表格的行數(shù)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（）′定義樁位偏差函數(shù)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′循環(huán)變量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.
