利用AutoCADVBA建立自动编号程序及其在岩土工程领域中的应用.pdfVIP

问题探 讨 。 妇 cTION 利用AutoCADVBA建立 自动编号程序及其在岩土 工程领域中的应用 张永闯黄英娣 桂林理工大学土木与建筑工程学院 广西 桂林 541004 摘要：利 VBA在CAD~建立 自动编号程序，．在CAD~]纸中对各种岩土工程领域的桩位、钻孔、钎探点、物探点、测量点等进行编号，在编 号的同时可列出所以点位的坐标，并形成全站仪仪器格式的文件，可直接传入仪器中使用，提高了点位编号、坐标捕捉等工作的速度及准确度， 应用范 围较广。 关键词 ：桩位 自动编号 AutoCADVBA桩位 坐标 岩土工程 刖 舀 ④可选择起始编号。 在岩土工程勘察 、桩基设计 、地基处理 、物探1作布置 、工 ⑤可选择编号的间隔，如1，2，3，…，n；1，3，5，…2n-1； 程测量中，常常需要对各种点号进行顺序编号。使用的制图软件为 1，4，7， …3n一2。 AutoCAD，一般情况下，编号均采用人工编号，在点位不多的情况下 ⑥可添加前缀 、后缀等，~I]ZK1，C1，la、lb，ZKla等。 尚可。但在点位较多的情况下，例如大型建筑物地基处理中搅拌桩、 ⑦默认选项功能：此项主要针对直径为600mm，比例尺为1：100 砂石桩等，往往点位成百上千，人工编号速度较慢 ，浪费了设计人员 的搅拌桩布置图而专设 ，字体的大小及位置默认为桩位中心 ，起始编 较多时间，且出错率较高。 号为1，编号间隔为1，前缀及后缀为空，无需改动任何参数即可直接 作者在长期的地基处理 、工程测量工作 中发现 ，一般的点位在 进行编号； CAD图纸中均使用圆形图元表示，根据这一特点，利用AutoCAD程 ⑧开始编号，设置好各项参数后 ，单击后即可进行编号，生成编 序集成的二次开发软件VisualBasicforApplications(VBA)，实现对 号图形 (如图1) 点位的自动编号及点位相应坐标数据的采集 ，减少了T程技术人员在 ⑨生成坐标功能 ：可生成所有编号点的平面坐标，并 同时分为 CAD制图中相关方面的重复性及机械性的工作，提高了数据的准确 仪器格式文件及文本格式文件两种，前者供全站仪直接传输 ，后者供 ～踹遵 遵唑 唑蜷 性 。 - 测量人员查阅 (如图2)。 标～俺 檑 俺俺秘 ～{馨僻 ， 2 2 2 2 2 2 2 2 2 2 2 2 S S S S # 5 譬 筝 S 越 2 2 2 2 2 2 2 2 0 6 S 1．程序功能实现 一43 辟3 冉 8冉 3 3辟 3岛 斟3