(1) 

　　

 (2) 

　　其中式中

: 

　　

 ――地面控制测量引起的 K 点在 x’方向上误差； 

　　

 ――定向测量引起的 K 点在 x’方向上误差； 

　　

 ――井下导线测角、量边引起的 K 点在 x’方向上误差； 

　　

 ――地面高程测量引起的 K 点高程误差； 

　　

 ――导入高程引起的 K 点高程误差; 

　　

 ――井下高程测量引起的点高程误差； 

　　

 n ――测量次数。 

　　

 井巷贯通误差预计程序就是以式(1)和式(2)为基础模型,结合“三类六种”情况,作适当选

择

,这样就可以对不同类型的贯通进行误差预计。 

　　

3 程序与应用方式 

　　

 井巷贯通误差预计程序采用 AutoCAD 的 lisp 编程,由一个主程序和六个子程序组成,主

程序按自定义命令方式编写

,六个子程序采用自定义函数方式编程。误差预计时通过调用主

程序

,按相应的井巷贯通测量类型去调用同类型子程序。 

　　

 

　　图

1 主程序框图 

　　

 主程序和六个子程序保存在 GTYJ.LSP 文件(GTYJ.LSP 要在 AutoCAD 搜索路径下)

中

,GTYJ.LSP 在 AutoCAD2004 中 通 过 运 行 ,  见 贯 通 预 计 实 例 。 主 程 序 定 义 的 命 令 为

“WCYJ”，见主程序原代码,六个子程序函数名分别为 YJ(不加陀螺边一井贯通预计函数)、
YJT( 加陀螺边一井贯通预计函数)、LJ(不加陀螺边两井贯通预计函数)、LJT(加陀螺边两井贯
通预计函数

)、KZ(立井开凿贯通预计函数)、YS(立井延深贯通预计函数),在编写 LJ、LJT 和

KZ 三个函数时,要考虑地面连测方式。 
　　

 主程序框图如图 1 所示 

　　

 应用本程序进行误差预计时,按下列步骤执行。 

　　

 第一步,在 AutoCAD 中打开贯通预计图形文件 (*.dwg 或*.dxf),确定贯通预计点 K,并且

画出重要方向

X’和 Y’。 

　　

 第二步,在贯通预计图上按照拟定的方案,定出地面和井下测量点位置。 

　　

 第三步,调用程序,按提示内容用鼠标扑捉地面和井下各点,程序自动进行误差预计。误差

预计结果输出到指定文本文件

(“e:\贯通预计\XXX.txt”),“XXX”是程序提示用户输入的贯通

测量项目名称。

 

　　

 调用程序进行误差预计有两种方式,一是在命令行上直接输入命令(WCYJ),二是通过下

拉菜单调用

,见图 2。定制下拉式菜单方法如下: 

　　

 (1)打开 AutoCAD 的 acad.mnu 文件,在下拉式菜单区***POP11 后面加定制好的菜单文

件

***POP12 并保存(省略具体菜单文件代码)。 

　　

 (2)将主程序和各个子程序复制到 acad.mnl 文件中。 

　　

 (3)在 AutoCAD 命令行输入“menu”命令并运行,在出现的“选择菜单对话框”中打开

acad.mnu 文件。结果在 AutoCAD 的下拉菜单中增加了如图 2 所示的“贯通预计”下拉菜单。应
用时

,根据贯通类型选择对应的下拉菜单。 

　　

 

　　

 

　　

 

　　图

2 贯通预计下拉菜单设计