ExcelVB整合AutoCAD在测量中的应用.kdh.docVIP

ExcelVBA整合AutoCAD在测量中的应用.kdh 本文由lijunxue08贡献 pdf文档可能在WAP端浏览体验不佳。建议您优先选择TXT，或下载源文件到本机查看。 2009 年第 2 期 （总第 114 期） 大 众 科 技 DA ZHONG KE JI No.2， 2009 (Cumulatively No.114) Excel VBA 整合 AutoCAD 在测量中的应用 杨 平 （广西城市建设学校，广西 桂林 541003） 【摘 要】目前公路施工测量都采用全站仪，导线计算、中桩点位坐标若采用手工计算则工作量大，效率较低。文章采用 Excel VBA 编程进行导线计算，并介绍在 AutoCAD 绘制导线图的方法。 【关键词】Excel；VBA；AutoCAD；导线计算 【中图分类号】TP311 【文献标识码】A 【文章编号】1008-1151(2009)02-0049-02 （一）前言 Excel 具有强大的运算功能， 可进行各种复杂的运算以及 数据管理和处理，同时提供了强大的二次开发功能，可通过 其内嵌的 VBA 与其它软件进行通信。如要将 Excel 中计算出 来的坐标又快又好地在 CAD 中展绘出来，可通过用 VBA 编程 的方法，用 Excel 操控 AutoCAD 自动绘图。 （二）算例 1.工作表设计 在 Excel 中设计两张工作表，第一张工作表名为“数据 输入” ，用来输入已知数据及观测数据，导线的等级与观测角 属性。第二张工作表名为“计算” ，用来显示计算数据。 第一张工作表如下表： 为便于后面的公式计算，将“数据输入”表中的单元格 G22、G19、G15 分别命名为 K、f、n。命名方法是，先选定要 命名的单元格，再选择菜单插入→名称→定义。 第二张工作表如下表： 2.自定义函数的输入 因 Excel 中的角度和三角函数的运算是以弧度为单位的， 而我们在输入角度观测值，显示改正角值、坐标方位角时都 是以度分秒为单位。这就需要有将度分秒角值换算为弧度值 和将弧度值换算为度分秒角值的函数，但 Excel 本身并不提 供这些函数，需自己定义。自定义函数的步骤： （1） “工具” 在 菜单上选择 “宏” 命令， 然后选择 “Visual Basic 编辑器”命令，进入 Visual Basic 环境； （2） “插入” 从 菜单中选择 “插入模块” 命令， 这时 Excel 打开一个空白模块，名为模块 1； （3）输入以下代码： Const PI = 3.1415926535 Dim d1 As Integer, d2 As Integer, d3 As Double Public Function dmstorad(de) 度分秒角值化为弧度 d1=Int(de) d2=Int((de-d1)*100) d3=(de-d1-d2/100)*10000 dmstorad=(d1+d2/60+d3/3600)*PI/180 End Function 其余两个自定义函数 radtodms（de） 、tc(dx, dy)，分别 用于将弧度换算成度分秒角值、根据坐标增量反算坐标方位 角，在此省略。自定义函数在同一文件中每个工作表均可使 用，其用法与 Excel 的内部函数一样。 3.设置计算公式 在工作表 “数据输入” 的单元格 E17 中输入公式 “=radtodms (tc((C18-C17),(D18-D17)))”单元格 E19 中输入公式 ， “=radtodms (tc((C20-C19),(D20-D19)))” ，分别计算起、终边的坐标方位 角，并以度.分秒的格式显示。在这里嵌套使用了两个自定义 函数。 工作表“计算”是用来进行导线的计算，可按照导线计 算的步骤设置表格的计算公式。 （1）读取已知数据 工作表“计算”中的已知及观测数据，如已知点坐标、 方位角、观测边长、观测角等可从“数据输入”表中自动读 取，如在单元格 C5 中输入公式“=数据输入!C17” ，其余的已 知及观测数据可仿照此法读入。 （2）角度闭合差的计算 因表中 C 列的观测角是以度分秒为单位的，需化为弧度 为 单 位 方 可 计 算 ， 在 单 元 格 M12 中 输 入 “ =IF(LEN(C12) 0,dmstorad(C12),)” ，然后将公式向下复制直至单元格 M23。在 M26 中输入“=SUM(M12:M23)” ，计算观测角之和。在 【收稿日期】2008-12-19 【作者简介】杨平，男，广西北流人，广西城市建设学校工程师，研究方向为 Excel 及 AutoCAD