AutoLISP在洞室开挖测量资料处理中的应用.pdf

《AutoLISP在洞室开挖测量资料处理中的应用.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、·36·地矿测绘2010，26(3)：36～38CN53一l124／TDISSNl0o7—9394SurveyingandMappingofGeologyandMineralResourcesAutoLISP在洞室开挖测量资料处理中的应用周显华(中国水利水电第八工程局有限公司，四川广元628003)摘要：水电站的洞室开挖，铁路、公路的交通遂道开挖，对超欠挖都有严格的控制指标，内业计算及成图都比较繁琐。为此，利用AutoLISP编程，实现了洞室超欠挖值及面积的计算，同时可实现断面图的绘制，并可在图上自动标注超欠挖值。实践证明，利用Au．toLIS

2、P编程进行洞室开挖测量资料的处理可大大提高工作效率。关键词：AutoLISP；隧道；洞室；超欠挖值；程序；代码中图分类号：P209文献标识码：B文章编号：1007—9394(2010)03—0036—03ApplicationofAutoLISPtoSurveyDataProcessinginCavernExcavatingZHOUXian—hua(SINOHYDROBureau8Co．，Ltd，GuangyuanSichuan628003，China)Abstract：Thereisthestrictcontrolindextoexceedu

3、nderbreakvalueincavernexcavatingofhydraulicpowerplantandthetraffictunnelexcavatingofrailwayandrailway．Thispaperconsidersthattheindoorcalculationandmap—makingarefussy．WithAutoLISPprogramming，thepaperrealizesthecalculationofcavernexceedunderbreakvalueandthear-eaofeavern，meanwh

4、ile，realizestoannotatetheexceedunderbreakvalueonthemap．UsingAutoLISPprogramming，toprocessofsurveyinformationofcavernexcavating，canraisegreatlyworkingefficiency．Keywords：AutoLISP；tunnel；cavern；exceedunderbreakvalue；program；codeO引言AutoCAD是美国Autodesk公司推出的通用计算机制图软件，具有强大的绘图功能和良好的

5、开发环境。利用AutoLISP编程可实现数据到图形和图形到数据的自动转换，大大提高工作效率。1提出问题及解决方案水电站的洞室开挖，铁路、公路的交通遂道开挖，都对超欠挖有严格的控制指标，外业验收断面测量完成后，内业人员必须利用外业测量的断面数据绘制断面图并计算每个测点的超欠值，以供质量评定和验收，此过程复杂繁琐。如果有专用的隧道断面数据处理软件那一切将都迎刃而解，但由于专用软件一般比较昂贵，因此利用AutoLISP强大的绘图和编程计算功能，可图1公路交通隧道典型断面图Fig．1Typicaltunnelsectionmapofhighwayand

6、transportation大大节约成本。图1为典型的公路交通隧道断面，它的轮廓形状是由多种标注超欠挖值、又可以计算超欠挖面积，还能对任意形状洞室进线型构成的封闭曲线，在内业计算和断面图出图时都需进行超行处理。欠挖值分析。用Eexcel电子表格编制公式也可以计算，但对不2操作步骤同的断面参数和断面形式需编制不同的公式，比较繁琐。而用AutoLISP编程既可计算出超欠挖值、生成断面图并在图上自动具体操作步骤如下：}收稿日期：2010—04—17第26卷第3期周显华：AutoLISP在洞室开挖测量资料处理中的应用·37·1)按设计图纸上的隧道洞室尺

7、寸在CAD上绘制设计断面程序人口图，断面问距根据工程具体情况而定，一般为3～5m，断面图上＼／应标注高程标尺和水平距离标尺。l2)外业断面测量完成后，把实测数据传输给电脑，对数据进行编辑处理，每一断面数据存入一个记事本文件中，格式为：设置标注系统量、字体，建立标注图层点号，，Y(水平距离)，(桩号)，h(高程)。3)在CAD上运行该程序，根据提示操作(就像使用CAD的上标准命令一样的操作界面)，程序自动进行计算，把超欠值标注用entget~数拾取设计断面线在所对应的断面点处、超欠面积统计数据标注在图面上，如图2所示。Jr按0．05m的步长用vl

8、ax—curve—getParamAtDistl~数追踪设计断面线轨迹，用vlax—curve—getPointAtParam~数计算追踪点的坐标，用