第１８卷第１期 ２０１３年２月 新余学院学报 ＪＯＵＲＮＡＬ ＯＦ ＸＩＮＹＵ ＵＮＩＶＥＲＳＩＴＹ Ｖｏ１．１８，ＮＯ．１ Ｆｅｂ．２０１３ ＣＡＤ中用ＶＢＡ编程求前方交会点 ●邓传军，潘建中 （江西工业工程职业技术学院， 江西摘萍乡 ３３７０５５） 要：前方交会是解析控制点最基本的布设形式，介绍了一种在ＣＡＤ软件中利用ＶＢＡ编程求解前方交会点坐标的 方法。 关键词：ＣＡＤ；ＶＢＡ；前方交会 中图分类号：ＴＰ３１１．５文献标识码：Ａ文章编号：２０９５—３０５４（２０１３）Ｏ１～００７４一Ｏ２ 在我国辽阔的土地上，已经布设了一系列高精度的大地 点（或称高级控制点），这些大地点的平面坐标和高程可以从 有关控制点成果表中查取。但是在很多地方，如矿山等，这些 点还比较稀少，必须根据实际需要，以大地点为基础，再发展 若干精度较低的解析控制点。 １概述 ｐｒｏｍｐｔ４＝ｖｂＣｒＬｆ＆”输入第二角：” 在没有提示参考点的情况下获取第一个点 Ｐｎｔ＝ＴｈｉｓＤｒａｗｉｎｇ．Ｕｔｉｌｉｔｙ．ＧｅｔＰｏｉｎｔ（，ｐｒｏｍｐｔ１） ｊ１＝ＴｈｉｓＤｒａｗｉｎｇ．Ｕｔｉｌｉｔｙ．ＧｅｔＲｅａｌ（ｐｒｏｍｐｔ３） ｊ２＝ＴｈｉｓＤｒａｗｉｎｇ．Ｕｔｉｌｉｔｙ．ＧｅｔＲｅａｌ（ｐｒｏｍｐｔ４） ｓｔａｒｔＰｎｔ（０）＝Ｐｎｔ（０） ｓｔａｒｔＰｎｔ（１）＝Ｐｎｔ（１） 在通视良好的情况下，前方交会是解析控制点最基本的 布设形式，求前方交会点坐标的方法也就成了测量工作人员 ｓｔａｒｔＰｎｔ（２）＝Ｐｎｔ（２） 热衷的话题。 利用上边起点作为参考点获取第二个点 由于矿山生产和各种技术改造时时在进行，滞后、静态的 Ｐｎｔ＝ＴｈｉｓＤｒａｗｉｎｇ．Ｕｔｉｌｉｔｙ．ＧｅｔＰｏｉｎｔ（ｓｔａｒｔＰｎｔ，ｐｒｏｍｐｔ２） 管理严重制约矿山生产和技术改造的顺利进行。目前，ＣＡＤ ｅｎｄＰｎｔ（Ｏ）＝Ｐｎｔ（０） 基础上开发的软件在矿山中得到广泛应用，为矿山生产、设计 ｅｎｄＰｎｔ（１）＝Ｐｎｔ（１） 工程施工、规划等提供有力保障，并为矿山生产顺利进行打下 ｅｎｄＰｎｔ（２）＝Ｐｎｔ（２） 坚实基础。现介绍一种在ＣＡＤ中直观、方便快捷求解前方交 ｔｈｒｅｅＰｎｔ（０）＝（ｓｔａｒｔＰｎｔ（０）／Ｔａｎ（ｊ２￥３．１４１５９２６／ 会点的方法。在ＣＡＤ软件中用ＶＢＡ编好程序，同时制作好 １８０）＋ｅｎｄＰｎｔ（０）／Ｔａｎ（ｊ１｝３．１４１５９２６／１８０）一ｓｔａｒｔＰｎｔ 工具按钮，按照命令行的提示输入观测数据，就可以很快求出 （１）＋ｅｎｄＰｎｔ（１））／（１／Ｔａｎ（ｊｌ￥３．１４１５９２６／１８０）＋１／ ２ ３．１４１５９２６／１８０）） 并在ＣＡＤ的绘图区显示前方交会点坐标，而且在验证野外观 Ｔａｎ（ｉ测数据正确与否方面，即方便又直观。 ｔｈｒｅｅＰｎｔ（１）＝（ｓｔａｒｔＰｎｔ（１）／Ｔａｎ（ｊ２ ３．１４１５９２６／ ２程序输入及按钮制作 １８０）＋ｅｎｄＰｎｔ（１）／Ｔａｎ（ｉ１ ３．１４１５９２６／ｌ８０）～ｅｎｄＰｎｔ （１）打开ＡｕｔｏＣＡＤ２０００，选择工具主菜单下的宏子菜单下 （０）＋ｓｔａｒｔＰｎｔ（０））／（１／Ｔａｎ（ｊｌ ３．１４１５９２６／１８０）＋１ 的Ｖｉｓｕａｌ ｂａｓｉｃ编辑器，输入程序并存为ｈｘ．ｄｖｂ文件。具体代 ／Ｔａｎ（ｊ２ ３．１４１５９２６／１８０）） 码如下： Ｓｕｂ Ｃｈ３ＧｅｔＰｏｉｎｔｓＦｒｏｍＵｓｅｒ（） ＿ｔｈｒｅｅＰｎｔ（２）＝０＃ Ｄｉｍ ｍｔｅｘｔＯｂｊ Ａｓ ＡｃａｄＭＴｅｘｔ Ｄｉｍ ｓｔａｒｔＰｎｔ（０ Ｔｏ ２）Ａｓ Ｄｏｕｂｌｅ Ｄｉｍ ｅｎｄＰｎｔ（０ Ｔｏ ２）Ａｓ Ｄｏｕｂｌｅ 使用输人的两个点创建直线 ＴｈｉｓＤｒａｗｉｎｇ．ＭｏｄｅｌＳｐａｃｅ．ＡｄｄＰｏｉｎｔ ｓｔａｒｔＰｎｔ Ｄｉｍ ｔｈｒｅｅＰｎｔ（０ Ｔｏ ２）Ａｓ Ｄｏｕｂｌｅ Ｄｉｍｊ１ Ａｓ Ｄｏｕｂｌｅ ＴｈｉｓＤｒａｗｉｎｇ．ＭｏｄｅｌＳｐａｃｅ．ＡｄｄＰｏｉｎｔ ｅｎｄＰｎｔ ＴｈｉｓＤｒａｗｉｎｇ．ＭｏｄｅｌＳｐａｃｅ．ＡｄｄＰｏｉｎｔ ｔｈｒｅｅＰｎｔ Ｄｉｍｊ２ Ａｓ Ｄｏｕｂｌｅ Ｄｉｍ Ｐｎｔ Ａｓ Ｖａｒｉａｎｔ Ｓｅｔ ｍｔｅｘｔＯｂｊ ＝ＴｈｉｓＤｒａｗｉｎｇ．ＭｏｄｅｌＳｐａｅｅ．ＡｄｄＭＴｅｘｔ （ｔｈｒｅｅＰｎｔ，４，”ｊｉａｏｐｏｉｎｔ”） ＴｈｉｓＤｒａｗｉｎｇ．ＳｅｔＶａｒｉａｂｌｅ”ＰＤＭＯＤＥ”，３４ ＴｈｉｓＤｒａｗｉｎｇ．ＳｅｔＶａｒｉａｂｌｅ”ＰＤＳＩＺＥ”．１ ＺｏｏｍＡ１１ Ｄｉｍ ｐｒｏｍｐｔｌ Ａｓ Ｓｔｉｎｇ ｒＤｉｍ ｐｒｏｍｐｔ２ Ａｓ Ｓｔｒｉｎｇ Ｄｉｍ ｐｍｍｐｔ３ Ａｓ Ｓｔｒｉｎｇ Ｄｉｍ ｐｒｏｍｐｔ４ Ａｓ Ｓｔｒｉｎｇ Ｅｎｄ Ｓｕｂ ｐｒｏｍｐｔｌ＝ｖｂＣｒＬｆ＆”输入起点Ａ：” ｐｒｏｍｐｔ２＝ｖｂＣｒＬｆ＆”输入终点Ｂ：” ｐｒｏｍｐｔ３＝ｖｂＣｒＬｆ＆”输入第～角：” 收稿日期：２０１２—０９—１２ （２）选择ＡｕｔｏＣＡＤ工具菜单主菜单下的加载应用程序， 在启动组中加入保存的ｈｘ．ｄｖｂ文件，关闭各对话框。以后在 启动ＡｕｔｏＣＡＤ时，将自动加载此工程文件。 第一作者简介：邓传军（１９７４一），男，江西吉安人，副教授，硕士，主要从事工程测量教学与研究。 ・－——７４－－—— 邓传军，潘建中：ＣＡＤ中用ＶＢＡ编程求前方交会点 （３）打开视图菜单下工具栏（Ｔｏｏｌｂａｒ）对话框，选取绘图 ｒｕｎ命令前有小横线，后面要加空格，另外，路径必须是ｈｘ． 工具条，则绘图工具条出现在界面上。接着点自定义按钮，出 ｄｖｂ文件保存的路径，路径中反斜杆的方向与一般的路径表 现自定义工具栏对话框，在此对话框的类别条目中选择自定 示方向相反）。再点编辑按钮，编辑按钮的图样，最后按关闭 义，下面将出现两个空白按钮，其中一个带小三角（可用鼠标 按钮，并关闭各对话框，就完成了按钮的制作。以后在打开 在小三角前点击，即可发现是两个按钮），将第一个空白按钮 ＡｕｔｏＣＡＤ时，此按钮和其他工具栏按钮一样可随时起作用了。 （不带小三角）拖至绘图工具栏中，绘图工具栏中出现一个空 ３实例 白按钮，此时按自定义工具栏对话框的关闭按钮。当然，也可 （１）在ＡｕｔｏＣＡＤ中，用鼠标左键单击新建的前方交会按 以在工具栏对话框中点击新建，从而把新建按钮单独作为前 钮，按命令行提示再利用对象捕捉选择要进行前方交会的两 方交会按钮，后续工作同上（本文示例用到）。 已知点Ａ和Ｂ，或直接输入两点的坐标。 （４）在工具栏对话框激活的情况下，在刚加入的空白按 （２）按命令行要求输入用经纬仪观测所得的交会角值， 钮上按鼠标右键，出现按钮特性对话框，在名称栏输入“前方 ＣＡＤ软件自动求出前方交会点的坐标并显示在绘图区，同时 交会”字样，在宏栏输入 ｃ Ｃ—ｖｂａｒｕｎ ｅ：／ＣＡＤ／ＳＡＭＰＬＥ／ 交会点旁已用文本ｊｉａｏｐｏｉｎｔ标明，最后成图。见图１所示。 ＶＢＡ／ｈｘ．ｄｖｂ！ＴｈｉｓＤｒａｗｉｎｇ．Ｃｈ３一ＧｅｔＰｏｉｎｔｓＦｒｏｍＵｓｅｒ（注意：ｖｂａ一 ／ｋ（４９９２ Ｂ（５６８１．０４，２９８５０．００） ５４７９．１２ ２９２８２．８８） 图１ ４说明 程实现求前方交会点的一般思路和方法。实际上，为了避免 （１）鼠标左键单击新建的前方交会按钮后，命令行提示 外业观测发生错误，并提高未知点的精度，在一般测量规范 顺序为第一已知点，第一交会角，第二交会角和第二已知点。 中，都要求布设有三个起始点的前方交会。所以可以扩展 选择已知点时须注意，如果先选Ａ点，再选Ｂ点，则交会点在 ｈｘ．ｄｖｂ程序的功能，完善求前方交会的方法。 点Ａ和Ｂ的下方，如果先选Ｂ点，再选Ａ点，交会点位置如图 Ｉ所示。 参考文献： （２）为了验证野外观测数据和最终结果是否正确，可把 ［１］沈金发．ＡｕｔｏＣＡＤ２０００中文版使用速成［Ｍ］．北京：清华 交会角在绘图区给显示出来，具体可通过修改标注样式的角 大学出版社，１９９９． 度显示来实现，此例用到角度标注精度为０ｄ００’００．０”。 ［２］徐海波，王恪典．ＡｕｔｏＣＡＤ应用基础［Ｍ］．西安：西安交 （３）程序中的注释在程序录入时可忽略。 通大学出版社，２０００． （４）ｈｘ．ｄｖｂ程序在Ｗｉｎｄｏｗｓ２０００和ＡｕｔｏＣＡＤ２０００上调试 ［３］赵长利，张强华．ＣＡＤ五周通［Ｍ］．北京：世界图书出版 通过，由于是直接计算，故结果准确。 公司￣１９９７． （５）此种方法前期工作比较复杂（如程序编写和录入、按 ［４］马文来．建筑工程测量［Ｍ］．北京：中国矿业大学出版 钮制作等），但完成以后求前方交会点的操作会非常简单，在 社．１９９９． 实际应用中效果很好。 ［５］武汉测绘科技大学《测量学》编写组．测量学［Ｍ］．武汉： （６）按钮制作在不同Ａｕｔｏｄｅｓｋ版本下稍有不同，请参阅 测绘出版社．１９９３． 相关技术资料。 ５结语 （责任编校：任华） 本示例编写的ｈｘ．ｄｖｂ程序只是利用ＣＡＤ软件的ＶＢＡ编 Ｓｏｌｕｔｉｏｎ ｔｏ ｆｏｒｗａｒｄ ｐｏｉｎｔ ｏｆ ｉｎｔｅｒｓｅｃｔｉｏｎ ｕｓｉｎｇ ＶＢＡ ｔｏ ｃｏｍｐｉｌｅ ｐｒｏｃｅｄｕｒｅ ｉｎ ＣＡＤ ＤＥＮＧ Ｃｈｕａｎ—Ｊｕｎ．Ｐａｎ Ｊｉａｎ—Ｚｈｏｎｇ （Ｊｉａｎｇｘｉ Ｉｎｄｕｓｔｒｉａｌ Ｅｎｇｉｎｅｅｒｉｎｇ Ｐｏｌｙｔｅｃｈｎｉｃ Ｃｏｌｌｅｇｅ，Ｐｉｎｇｘｉａｎｇ ３３７０５５ Ｃｈｉｎａ） Ａｂｓｔｒａｃｔ：Ｆｏｒｗａｒｄ ｉｎｔｅｒｓｅｃｔｉｏｎ ｉｓ ｆｕｎｄａｍｅｎｔｌａ ｄｉｓｔｒｉｂｕｔｉｏｎ ｆｏｒｍ ｏｆ ａｎａｌｙｔｉｃ ｃｏｎｔｒｏｌ ｐｏｉｎｔ．Ｔｈｅ ｐａｐｅｒ ｉｎｔｒｏｄｕｃｅｓ ａ ｃｏｎｖｅｎｉｅｎｔ，ｓｔｒａｉｇｈｆｆｏｒ－ ｗａｒｄ，ｅｆｆｉｃｉｅｎｔ ａｎｄ ｏｃｕｌａｒ ｍｅｔｈｏｄ ｏｆ ｓｏｌｕｔｉｏｎ ｔｏ ｔｈｅ ｃｏｏｒｄｉｎａｔｅ ｏｆ ｆｏｒｗａｒｄ ｐｏｉｎｔ ｏｆ ｉｎｔｅｒｓｅｃｔｉｏｎ，ｎａｍｅｌｙ，ｕｓｉｎｇ ＶＢＡ ｔｏ ｃｏｍｐｉｌｅ ｐｒｏｃｅｄｕｒｅ ｉｎ ＣＡＤ ｓｏｆｔｗａｒｅ． Ｋｅｙ ｗｏｒｄｓ：ＣＡＤ；ＶＢＡ；ｆｏｒｗａｒｄ ｉｎｔｅｒｓｅｃｔｉｏｎ 一７５—