CAD中用VBA编程求前方交会点.pdfVIP

第 18卷第 1期 新 余 学 院 学 报 Vo1．18，NO．1 2013年 2月 JOURNAL OF XINYU UNIVERSITY Feb．2013 CAD中用 VBA编程求前方交会点 ● 邓传军 ，潘建中 (江西工业工程职业技术学院， 江西 萍乡 337055) 摘 要：前方交会是解析控制点最基本的布设形式，介绍了一种在 CAD软件中利用VBA编程求解前方交会点坐标的 方法 。 关键词 ：CAD；VBA；前方交会 中图分类号：TP311．5 文献标识码：A 文章编号：2095—3054(2013)O1～0074一O2 在我国辽阔的土地上，已经布设了一系列高精度的大地 prompt4=vbCrLf”输入第二角：” 点(或称高级控制点)，这些大地点的平面坐标和高程可以从 在没有提示参考点的情况下获取第一个点 有关控制点成果表中查取。但是在很多地方，如矿山等，这些 Pnt=ThisDrawing．Utility．GetPoint(，prompt1) 点还比较稀少 ，必须根据实际需要 ，以大地点为基础 ，再发展 j1=ThisDrawing．Utility．GetReal(prompt3) 若干精度较低的解析控制点。 j2=ThisDrawing．Utility．GetReal(prompt4) 1 概述 startPnt(0)=Pnt(0) 在通视 良好的情况下，前方交会是解析控制点最基本的 startPnt(1)=Pnt(1) 布设形式，求前方交会点坐标的方法也就成了测量工作人员 startPnt(2)=Pnt(2) 热衷的话题。 利用上边起点作为参考点获取第二个点 由于矿山生产和各种技术改造时时在进行 ，滞后、静态的 Pnt=ThisDrawing．Utility．GetPoint(startPnt，prompt2) 管理严重制约矿 山生产和技术改造的顺利进行。目前，CAD endPnt(O)=Pnt(0) 基础上开发的软件在矿山中得到广泛应用 ，为矿山生产、设计 endPnt(1)=Pnt(1) 工程施工、规划等提供有力保障，并为矿山生产顺利进行打下 endPnt(2)=Pnt(2) 坚实基础。现介绍一种在 CAD中直观、方便快捷求解前方交 threePnt(0)= (startPnt(0)／Tan(j2 $3．1415926 ／ 会点的方法。在CAD软件中用 VBA编好程序，同时制作好 180)+endPnt(0)／Tan(j1}3．1415926／180)一startPnt 工具按钮，按照命令行的提示输入观测数据，就可以很快求出 (1)+endPnt(1))／(1／Tan(jl$3．1415926／180)+1／ 并在CAD的绘图区显示前方交会点坐标，而且在验证野外观 Tan(i2 3．1415926／180)) 测数据正确与否方面，即方便又直观。 threePnt(1)= (startPnt(1)／Tan(j2 3．1415926 ／ 2 程序输入及按钮制作 180)+endPnt(1)／Tan(i1 3．141592