基于Autolisp的测量导线计算、绘图程序设计与实现.pdf

《基于Autolisp的测量导线计算、绘图程序设计与实现.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第1期矿山测量N0．12014年2月MINESURVEYINGFeb．2014doi：10．3969／j．issn．1O01—358X．2014．O1．28基于Auto]isp的测量导线计算、绘图程序设计与实现许克根(定远县l双龙矿业有限公司安徽滁州233200)摘要：在传统导线肉业计算理论、方法的基础上，应用Autolisp语言对测量导线自动平差、绘图进行程序设计，并给出程序代码；介绍了在Autoead中应用Autolisp程序快速、准确地一次实现测量导线自动平差、绘图的方法。程序符合传统导线计算理论，具有很高的实用性。关键词：测量导线；

2、Autolisp程序设计；自动平差；绘图中图分类号：P209文献标识码：B文章编号：1001—358X(2014)O1—0085—03Autocad是微机上最广泛应用的绘图软件，具有象捕捉方式在CAD图中拾取输入已知点、算出始强大的图形编辑功能和完全开放的结构，内嵌了较边、终边方位角，输人角度、边长观测值，将角度转化强的编程功能——Aut01isp语言，许多用户已对Au—为弧度，按上述公式实现平差、绘图，本程序将此保tocad进行二次开发，以实现特定功能，满足其特殊存为daoxian．1sp。且程序设计用小数形式输入角需要⋯。本文按照传统导

3、线内业计算理论，通过度，如6~68，输入时采用小数6：0608，在CAD中输Autolisp语言编程对Autocad进行了二次开发，编制入十分方便。了直接输入小数表示的角度、边长观测值即可完成2．2Autolisp程序源代码(daoxian．1sp文件)测量导线平差计算、自动绘图的Autolisp程序，方便、(defunC：daoxian(／testA0A10A1B0B1B2高效地实现了导线平差、绘图一次完成。B3B4B5BB8Ssi8mS6CDF1F2ptptlXyNaixiI程序采用的图根导线内业计算公式yifxfyfs)(setvar

4、”emdecho”0)(setvar”o$mode”1)因是图根导线内业计算，因此选用常用的简易(eommaIld”UNITS”2424270”Y”)平差计算公式睢，具体公式如下：(command”UNITS”2424270”Y”)角度闭合差：．=cxB’Ⅳ’一olBN(setqtest0sm0si0)改正数：=一厂。／n(setqN(getreal”输测角数N(支导线输限差：厂8限：±40／n100)：”))待定点纵坐标(改正前)：i=X__l’+SiCOSO~。(setqpt(GETPOINT”捕捉起算测站点A：”))待定点横坐标(改正

5、前)：Yi=Yi一’+Sisini(setqflpt)(setqX(earpt))(setqy(cadrpt))纵坐标闭合差：．=XB’一XB(setqA0(+(GETANGLEpt”捕捉后视点纵坐标闭合差=YB’一阳M：”)pi))导线绝对闭合差：=+(eond((

6、yi=Yi一1’+Sisino~i一，v×Si／∑S(setqA0(一(pi2)AO))如图1所示：A、、B、Ⅳ为已知起算点，MA、BN(setqA10A0)分别为导线始边、附合终边。(WHILE(<=test(一N1))(setqB5(+(GETREAL”＼n输人小数表示的2Autolisp导线平差、绘图程序设计与实现步骤观测角：”)0．000015))2．1程序设计流程：(setqB0(FIXB5))首先设置CAD测量单位、北方向，通过端点对(setqB1(100(一B5B0)))85第1期矿山测量20l4年2月(SEI"QB2(FIX

7、B1))2))))(setqB3(／B260．ooooo))(IF(>=Cpi)(setqD(一Cpi))(setqB4(／(一BlB2)36))(setqD(+cpi)))(setqB(+B0B3B4))(setqA10d)(setq13(pi(／13180．0)))(setqX(+x(：Ics(sinD))))(IF(

8、=test0)(setqB8(LISTB))(setqtest(+test1)))(setqS6(LISTS)))(setqtest1)(setqF1pt)((>=test1)(