AutoCAD VBA在土方计算中的应用.pdfVIP

工程与技术 ㈣¨¨¨¨¨¨¨{；●{一一 GONGCHENGYUJISHU AutoCADVBA在土方计算中的应用 祁建强 (新疆公路规划勘察设计研究院 新疆乌鲁木齐 830006) 摘 要 MicrosoRVisualBasicForApplicadom (VBA)是一种基于对象的编程环境 ，能够提供丰富的开发功能，VBA t~Aut— cAD融合。可为Aut0cAD提供智能化的快速编程，有效提高工作效率。本文结合具体高速公路工程及数码航摄地面 数字模型地形图，介绍vBA在 实际工作 中的应用。 关键词 AutoCADVBA 立方柱 数据处理 一 、 工程简介 DoWhile(1) 米东区化工工业园经五路互通式立交位于鸟鲁木齐市 gaocheng Format(max—min) ROd +min，”0．00”) 北部重要工业基地米东区化工工业园区，其直接影响区为 格‘式化顶面标高样式 乌鲁木齐市米东区。该化工园区位于乌鲁木齐市的东北部 ， formlnfor．Show(0) 距市中心 18公里。本项 目位于建设中的经五路和吐一乌一 formlnfor．TextString=vbCr＆ “被选择的等高线高程值 大高等级公路的交点，地形为北高南低，A、B、E、F匝道，位 为 ：”＆maxvbCr＆vbcr ”请注意高程点放置位置 ”+ 于土丘之上。立交形式为全苜蓿叶互通立交 。 vbCr+”下一个数值为：”vbCr＆gaocheng＆vbCr 二、分析处理 Point=ThisDrawing．Utility．GetPoint(，vbCrLf+”用鼠标 其中。A、B、E、F匝道 ，位于较其它路线高出约20米左 捕捉放置点 ”) 右的土丘之上，考虑匝道开挖之后，行车视距及路线纵坡两 Point(2、 gaocheng 个因素 ，需清除公路用地范围内以外的土方，经论证 ，将清 CallThisDrawing．ModelSpace．AddPoint(Point) 理标高定位560．2。 Point(O)=Point(0)+1．5 ’水平方向 作为公路带帽范围以外的大面积土方，纬地计算开挖土 Point(1)=Point(1)一1’垂直方向 方数量是在测量横断面地面线基础上计算 ，而实际计算面 Point(2)=0 积 已经远远超出横断面测量范围，纬地软件计算较为困难。 CallthjsDrawing．ModelSpace．AddText(Vorm=(gaocheng，r0． 随着 CAD应用技术的不断深入 ，AutoCADVBA进行的 0”)，P0int，2) 二次开发 ，由于其方法多样灵活 ，使用方便，已经得到越来 Loop 越多的应用。本文采用 AutoCADVBA辅助完成特殊方格 errh： 网——立方柱法。 EndSub 1．在图形中，以区域内 1：2000地形图为依据 ，在 A、B 利用此 自编AutoCADVBA功能模块，可以完成捕捉等 内布设 lm×lm(1m：)的方格网。依据等高线采用差值的方 高线数据，并标