基于Autolisp的测量导线计算、绘图程序设计与实现
基于AutoLISP的AutoCAD参数化绘图
2) 根据绘图参数 ,设计交流界面 (对话框) 。对于参数化 绘图程序来说 ,对话框主要考虑绘图参数的输入和相关控件 的布局 ,为了增加程序的可读性 ,对话框中还要配有图像按 钮 ,用幻灯片来显示各绘图参数的含义 。
Key words :Auto L ISP ;AutoCAD ;paramet ric drawing ;redevelop ment s
1 引言
AutoCAD 是美国 AutoDesk 公司推出的一种通用的计算 机辅助设计和图形处理软件 ,具有易于掌握 、使用方便 、绘图 精确和体系结构开放等优点 。因此 ,自 1982 年问世以来深受 广大设计人员的青睐 ,是 CAD 族群中使用最普遍的软件之 一 。如今 ,AutoCAD 已广泛应用于机械 、建筑 、电子 、航天 、造 船 、冶金 、纺织 、轻工等领域 ,可见 AutoCAD 是一个通用的 CAD 软件 。但要使一个通用的 CAD 系统适合自己的专业工 作需要 ,达到使用方便的要求 ,就必须进行二次开发 。在 Au2 toCAD 为用户提供的 Auto L ISP 、A RX、VBA 等开发工具中 , Auto L ISP 是一种简便易学的解释性语言 ,具有很强的数据 表格处理功能 ,是开发 AutoCAD 的一种重要手段[1] 。
2 Auto L ISP 语言的特点简介
Auto L ISP 语言是嵌套于 AutoCAD 内部 ,将 L ISP (List Processing Language) 语言和 AutoCAD 有机结合的产物 ,它 是 AutoCAD 开放式体系结构的具体表现 。使用 Auto L ISP 可直接调用几乎全部 AutoCAD 命令 ,Auto L ISP 语言既具有 一般高级语言的基本结构和功能 ,又具有一般高级语言所没 有的强大的图形处理功能 ,是当今世界上 CAD 软件广泛采用 的语言之一[2 ] 。
第2讲利用AutoLisp语言绘图
第2讲利⽤AutoLisp语⾔绘图第2讲利⽤AutoLisp语⾔绘图在AuotCAD绘制简单图形时，有三种主要⽅式：（1）图标菜单（2）下拉式菜单（3）命令⾏。
事实上还有另外⼀种绘图⽅式，即通过lisp语⾔实现绘制图形。
利⽤Lisp语⾔绘图的最⼤优点是可以实现批处理，降低劳动强度。
⼩知识：Lisp语⾔最⼤优势是和AutoCAD绘图结合的很好，这也是该语⾔⾄今仍未被淘汰的最主要原因。
1、简单的绘图语句⼏乎AuotCAD中所有的绘图及环境设置命令都可以通过程序调⽤！，利⽤Lisp语⾔编写绘图命令的窍门是⾸先在命令⾏下把绘图命令和对应的参数记住，然后⽤Lisp语⾔的格式书写出即可。
1.1 绘制直线(command "line" "0,0" "1,1" "")1.2 绘制圆(command "circle" "0,0" 5)1.3 绘制正多边形(command "polygon" 5 "0,0" "i" 5)(command "polygon" "5" "0,0" "i" "5")都正确1.4 新建图层(command "la yer" "m" "道路" "c" 2 "" "")请同学⾃⼰编写⾼度为2，起点位置在“0，0”，⽂字内容是“理⼯⼤”的程序2、⽤多条绘图语句表⽰复杂图形正常情况下图形都⽐较复杂，需要⽤多条语句编写，例如测绘中的下⽔井、路灯等符号。
例1、下⽔井的绘制(defun c:xsj()(command "circle" "0,0" 0.5)(command "line" "-0.5,0" "0.5,0" "")(command "line" "0,-0.5" "0,0.5" ""))3、循环控制语句例2、绘制同⼼圆例3、绘制可多次插⼊的下⽔井符号例4、绘制y=sinx 曲线4、课后练习题4.1 编写lisp 程序，绘制路灯图案，参照下⽔井程序，改写成可以多次插⼊的程序。
AUTOLISP 编程(含绘图与编程)
CAD二次开发练习（打开程序的时候要把捕捉关掉）南通大学-机械工程学院(defun c:lx1()(setq p0(getpoint"确定基点:"))(setq l1(getreal"\n输入长方形的宽:"))(setq l2(getreal"\n输入长方形的长:"))(setq d1(getreal"\n输入圆孔的直径:"))(setq t1(getreal"\n输入键槽的高度:"))(setq b1(getreal"\n输入键槽的宽度:"))(setq r1(*0.5d1))(setq h1(+r1t1))(setq p1(polar p00(*0.6l1)))(setq p2(polar p0(*0.5pi)(*0.6l2))) (setq p3(polar p0pi(*0.6l1)))(setq p4(polar p0(*-0.5pi)(*0.6l2)))(setq p5(polar p00(*0.5l1)))(setq p6(polar p5(*0.5pi)(*0.5l2))) (setq p7(polar p6pi l1))(setq p8(polar p7(*-0.5pi)l2)) (setq p9(polar p80l1))(setq p10(polar p0(*0.5pi)h1))(setq p11(polar p100(*0.5b1)))(setq p12(polar p11pi b1))(setq p13(polar p0pi(*0.5b1)))(setq p14(polar p130b1))(setq p15(polar p0(*0.5pi)r1))(setq p16(polar p0(*0pi)r1));为标注设定的点(setq p17(polar p7(*0.5pi)8))(setq p18(polar p10(*0.5pi)t1))(setq p19(polar p0(*0.25pi)(*1.2r1))) (setq p20(polar p0pi(*1.2r1)))(setq p21(polar p00(*0.7l1)))(setq p22(polar p0(*-0.5pi)r1)) (setq p23(polar p0(*0.25pi)r1)) (setq p24(polar p0(*-0.25pi)(*1.2r1))) (setq p25(polar p0(*-0.75pi)(*1.2r1))) (setq p26(polar p0(*0.75pi)(*1.2r1))) ;基本指令操作(command"pline"p6p7p8p9p6"") (command"circle"p0r1"") (command"line"p14p11"") (command"line"p11p12"") (command"line"p12p13"") (command"_trim"p13p14""p15"") (command"_trim"p16""p13p14"")；保存当前图层，并建立center这个图层(setq ss(getvar"clayer"))(command"-layer""m""center""c""红色""center""l""center""center""")；如图可以看到具体相应的操作，“m”为生成图层，这个图层的名称为“center”，“c”为线条定义颜色，为红色，选定当前的center图层，“l”为选择线型，选用中心线的线型，选定当前的center图层。
AUTOLISP语言在输电线路绘图设计中的应用
测 量数
（ｅｑＬ ｏ ｌＴ ｓｔ ｏ ｐ ） （ ｈｌ （ ｎ Ｌ ｏ ｌ （ ｗｉ ｅ ａｄ ｏｐ ／＝ ｓ ｌ “ ” ） ； ｔ ｒ ，）
Ｆｉ ｄ Ｘ ｎ
（ｅｑｓ ｌ（ｕ ｓ ｌ ｅ ２１ ） ｓｔ ｔ ｓｂｔ ａ ｎ ｌＩ ） ｒ ｒ ｉ （ｅｑＩ （ ＋ Ｉ ） ｓｔ ２ １ ２） （ｅ ｏ ｎｅｌ（ ＋ ｃｕ ｔ １ ） ｓｔ ｃ ｕ ｔｒ １ ｏ ｎｅ ） ｑ ｒ （ｆ（＞ ｃｕ ｔ ｌ２ ０ ｉ ｏ ｎｅ ０ ） ｒ （ｅｑａ ｎ ｒａ ｉｅｆ ） ｓｔ ｌ ｅ（ｅｄ～ｌ １ ） ｉ ｎ （ｅｑＪ １＋ 儿） ｓｔ １（ ） ） ｈｌ ；ｗ ｉ ｅ （ｅｑｖ ｓ １（ｅｅｓ ｌｔ１ ） ｓｔ ｌｔ ｒｖｒｅｖ ｓｌ ） ｉ２ ｉ （ ｅｄ Ｐ Ｓｖｉ２ ） Ｒ ａ － Ｇ ｌｔ１ ｓ （ ｏ ａ ｄ “ ｏｍ” “ ” ＼ｒ ｃｍｍ ｎ Ｚ ｏ ｅ 、 ） ｅｎ ；ｄ ｆ ｕ （ ｅ ｎＲ ａ ～ Ｐ Ｓ （ｌ ｔ ） ｄｆ ｅ ｄ Ｇ ｕ ｖ ｓ１ ｉ （ ｅ ｌ ｔ Ｌ ｎ（ｅｇｈｖｉ １ ） ｓｔ Ｖ ｉ— ｅ １ｎ ｔ ｌ ｔ） ｑ ｓ ｓ （ｅｑＩ ０ ｓｔ １ ） （ ｈｌ ｗｉ ｅ（＞ Ｖ ｉ— Ｌ ｎＩ ） ｌ ｔ ｅ １ ｓ （ｅｑａ ｎ ｌ（ ｔ Ｉ ｖｉ １ ） ｓｔ ｌ ｅ ｎ １ ｌｔ ） ｉ ｈ ｓ （ｆ（＞ （ｔｅ ｌ ｅ ）２ ） ｉ ｓ ｌｎａｉ １ ０ ； ｒ ｎ （ ｒｇ ｐｏ ｎ （ ｅ ｔ “ ） ｓｔ ｓ ｌ Ａ” ｑ ｒ
如何快速绘制输电线路平断面图？利用 Ｍ ． ｉ
言是 Ａ Ｔ Ｃ Ｄ的开发语言，附带在 Ａ Ｔ Ｃ Ｄ ＵＯＡ Ｕ Ｏ Ａ ＣＯｏｔＥ ｃｌ和 Ａ ｔＣ Ｄ 提 供 的 Ａ Ｔ ＬＳ ｌ￥ｆ ｘ ｅ ＂ ｕｏ Ａ Ｕ Ｏ ＩＰ功 的产 品 中。通 过 Ａ Ｔ ＬＳ Ｕ Ｏ ＩＰ编 程 可 以 实 现 设 计 能，编制程序进行绘 制，即把 Ｍ ｃ ｓｔ ｘｅ ｉｏ ｆ ｒ ｏ ？Ｅｃｌ
基于AutoLisp的AutoCAD二次开发在测绘图形处理中的应用
基于AutoLisp的AutoCAD二次开发在测绘图形处理中的应用摘要：本文介绍了如何利用Autolisp语言对AutoCAD进行二次开发，并实现了根据断面图来半自动化生成高程点，其结果大大提高了根据断面图绘制平面图的质量和速度。
关键词：AutoCAD Autolisp 自动化程序断面1引言在实际的测绘生产工作中，我们经常会遇到利用已有的断面图来绘制平面图进而复原地形的情况，想要绘制平面图高程点元素是必不可少的，那么我们就必须根据已有的断面图来生成相应的高程点。
本文介绍了如何利用Autolisp语言在AutoCAD中实现根据设计断面图半自动化生成高程点，简化了原来利用AutoCAD测距量取距离，计算桩号、偏距、高程，再用Cass交互展点画出高程点的生成办法，在提高了准确率的同时也提高了工作效率。
2 Autolisp简介Autolisp是由Autodesk公司开发的一种LISP程序语言，LISP是List Processor（表处理程序）的缩写。
LISP语言具有语法简单，通俗易懂等特点，通过autolisp编程，可以节省工程师很多时间。
AutoLISP语言作为嵌入在AutoCAD内部的具有智能特点的编程语言，是开发应用AutoCAD不可缺少的工具[[1]]。
在工程测量领域中，AutoCAD得到了普遍应用，在日常工作中有许多人在研究使用AutoCAD，并画出了很多工程图纸。
然而，人们经常会感觉到作图效率还是不够高，这是因为AutoCAD是一个通用的绘图软件，并不具备专业特色。
AutoCAD开放的结构为不同的使用者留出了广阔的空间，提供了许多二次开发工具，AutoLISP是其中最强大的一个，Autolisp是AutoCAD自带的一门编程语言，无需安装，是为扩展和自定义AutoCAD功能而设计的编程语言，Autolisp易于使用，并且非常灵活，多年来一直是自定义AutoCAD的标准。
Autolisp嵌入AutoCAD内部，它不仅具有一般高级语言的基本结构和功能，而且还具有强大的图形处理和数据交换功能。
基于Auto CAD等高线绘制的算法及程序设计
基于Auto CAD等高线绘制的算法及程序设计【摘要】采用AutoLISP(Visual LISP)语言在AutoCAD环境下进行二次开发,设计平面等高线绘制程序,为地形图制图时等高线绘制提供方便易用的工具,从而提高绘图效率,并使AutoCAD真正地起到辅助设计作用。
并为基于AutoCAD环境下进行二次开发的应用与研究提供参考。
【关键词】AutoLISP ; 离散高程点;Delaunay三角网;等高线The calculate way and program design drawn according to the contour line in maps of Auto CADWang Ri(Shangxi electric power survey design hospital Taiyuan Shangxi 030001)【Abstract】Adoption the AutoLISP(Visual LISP) language carry on under the AutoCAD environment two development, design the flat surface contour line in maps draw procedure, for geography diagram graphics the contour line in maps draw to provide convenience easy use of tool, thus exaltation painting efficiency, and make the AutoCAD really have assistance design bine for according to AutoCAD environment bottom carry on two development of application provide reference with research.【Key words】AutoLISP; Long-lost high point;The Delaunay triangle net;Contour line in maps1. 引言Auto CAD是由美国Autodesk公司开发的通用计算机辅助设计软件。
基于AutoLISP的工程测量制图辅助软件
置， 随后 将 该 点 的坐 标 追 加 到 ｌ ｓ ｔ Ｃ ｏ ｒ 中的 １ 号表 中 。
（ ｐ ｒ ｏ ｇ ｎ ； ｎ ａ ｎｅ ａ ｌ ｌ 中不 包 含 结 束 符 时 （ ｒ ｅ ｐ ｅ ａ ｔ （ 一（ 一（ １ ｅ ｎ ｇ ｔ ｈ ｌ ｓ ｔ ｃ ｏ ｒ Ｒ ｅ ） ｘ ） １ ） （ ｓ ｅ ｔ ｑ ｌ ｓ ｔ ｃ ｏ ｒ － ｔ ｍ ｐ ｃ ｏ ｎ ｓ （ ｎ ｔ ｈ Ｘ ｌ ｓ ｔ ｃ ｏ ｒ Ｒ ｅ ） 检
测
●
③ 若在表 ｌ ｓ ｔ Ｌ ｉ ｂ中未找到 ｋ １ 或者 ｋ １ 后 已有结束符 ， 则在
ｌ ｓ ｔ Ｌ ｉ ｂ中新增 表 （ ｋ ｌ ， ３ ） ， 在 ｌ ｓ ｔ Ｃ ｏ ｒ 中新增 ３号 表（ ｋ １ ， ） ， 然后将 该 点 的坐标追 加到 ｌ ｓ ｔ Ｃ ｏ ｒ 中的 ３ 号表 中。 ④ 最后当 ｎ ａ ｍｅ Ａ ｌ ｌ 中包 含“ 一 ” 和结 束符 时 ， 对ｌ ｓ ｔ Ｃ ｏ ｒ 相应 表 中的数据进行重新排序 ， 将结 束符写人到 ｌ ｓ ｔ Ｌ ｉ ｂ对应 的记 录
（ ｓ ｅ ｔ ｑ ｉ ｓ Ｃ ｏ ｎ ｔ ａ ｉ ｎ Ｅ ｎ ｄ １ ）
量 技 术
； 一 一 一
ｌ ｓ ｔ ｃ ｏ ｄ ｅ ） ） ） ）
将坐标写人表 ｌ ｓ ｔ ｃ ｏ ｒ 中… … 一 一 一
（ ｓ ｅ ｎ ｌ ｓ ｔ Ｔ ｍｐ （ １ ｉ ｓ ｔ（ ａ ｔ ｏ ｆ（ ｎ ｔ ｈ ２ ｌ ｓ ｔ ｃ ｏ ｄ ｅ ） ）（ ａ ｔ ｏ ｆ（ ｎ ｔ ｈ ３ （ ｓ ｅ ｔ ｑ ｌ ｓ ｔ ｃ ｏ ｒ — ｎ ｅ ｗ ０ ）
基于Auto LISP的参数化绘图技术与实例分析
基于Auto LISP的参数化绘图技术与实例分析摘要：AutoCAD 是一款通用的绘图软件，Auto LISP是嵌入AutoCAD的二次开发工具，参数化绘图是其典型的应用。
文章探讨了参数化绘图设计原理及步骤，并以轴承参数化绘图为例，介绍了Auto LISP的参数化绘图技术。
关键词：参数化；AutoCAD；Auto LISPAutoCAD是由Autodesk公司发行的一款应用于多领域的设计辅助和图形处理软件。
在机械行业得到了广泛应用。
AutoCAD虽然功能强大，但在专业应用上还是有不足之处，如何让通用的CAD系统更适合行业需要，必须对其要进行二次开发。
AutoCAD在30多年时间里相继推出了Auto LISP、ADS、Visual LISP、VBA、Object ARX、几种不同层次的二次开发工具。
“其中Auto LISP是唯一的一种以解释方式运行于AutoCAD内部的解释性程序设计语言，Auto LISP把数据和程序统一表达为表结构，所以它既可以把程序当作数据来处理，还可以把数据当作程序来执行”。
其语言规则简单，直接针对AutoCAD，易学易用，AutoCAD的绝大多数命令可直接调用，参数化绘图是其典型的应用之一。
1 参数化绘图设计原理及步骤所谓参数化就是将图形的有关几何关系、约束关系有机地结合起来，从而构成一个完整的参数化模型。
当设计人员改变图形的某一参数时，模型能根据尺寸及几何约束等自动计算出满足约束关系的工程图形。
参数化编程方法的实质，就是将图形信息记录在程序中。
它用一组变量记录图形的几何参数，用一些约束条件或者赋值语句来表达几何参数与结构参数之间的关系，再用一些绘图语句来表述图形的拓扑关系。
参数化方法快捷、高效，参数化绘图程序编写步骤是：①先进行图形结构特征分析，一般绘制一个零件的图样，需要很多尺寸，这就需要我们分析这个零件，确定图形中的关健几何尺寸及图形对象之间的依赖关系。
②从设计角度具体分析，确立不仅能体现零件的结构特征，又可以推导出其它尺寸的基本尺寸作为图形参数，并明确尺寸与图形参数之间的关系。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Ａ ｕ ｔ ｏ ｃ ａ ｄ是微 机 上最 广泛 应 用 的绘 图软 件 ， 具 有
强 大 的 图形 编 辑 功 能 和 完 全 开 放 的结 构 ， 内嵌 了 较
度， 如６ ￣ ６ ８ ， 输入 时采 用 小数 ６ ： ０ ６ ０ ８ ， 在 Ｃ Ａ Ｄ 中输 入 十分 方便 。 ２ ． ２ Ａ ｕ ｔ ｏ ｌ ｉ ｓ ｐ程 序 源代码 （ ｄ ａ ｏ ｘ ｉ ａ ｎ ． １ ｓ ｐ文件 ） （ ｄ ｅ ｆ ｕ ｎ Ｃ： ｄ ａ ｏ ｘ ｉ ａ ｎ（ ／ｔ ｅ ｓ ｔ Ａ ０ Ａ１ ０ Ａ １ Ｂ ０ Ｂ １ Ｂ ２
强 的编程 功能 —— Ａ ｕ ｔ ０ １ ｉ ｓ ｐ语 言 ， 许 多 用 户 已对 Ａ ｕ —
ｔ ｏ ｃ ａ ｄ进 行二 次 开 发 ， 以实现特定 功能， 满 足 其 特 殊 需 要 … 。本 文 按 照 传 统 导 线 内 业 计 算 理 论 ， 通 过
Ａ ｕ ｔ ｏ ｌ ｉ ｓ ｐ语 言 编程对 Ａ ｕ ｔ ｏ ｃ ａ ｄ进行 了二 次 开 发 ， 编 制
点 Ｎ： ” ） ） （ ｓ ｅ ｔ ｑ Ａ １ （一 （ ｐ ｉ ２ ）Ａ １ ） ） ） ） （ ｓ ｅ ｔ ｑ Ａ ０ （一 （ ｐ ｉ ２ ）Ａ Ｏ ） ） （ ｓ ｅ ｔ ｑ Ａ １ ０ Ａ ０ ）
（ ｓ ｅ ｔ ｑ Ａ ０ （＋ （ Ｇ Ｅ Ｔ Ａ Ｎ Ｇ Ｌ Ｅ ｐ ｔ”捕 捉 后 视 点
Ｍ： ” ）ｐ ｉ ） ） （ ｅ ｏ ｎ ｄ （ （＜ Ｎ １ ０ ０ ） （ ｓ ｅ ｔ ｑ ｐ ｔ ｌ（ Ｇ Ｅ Ｔ Ｐ Ｏ Ｉ Ｎ Ｔ” ＼ ｎ捕 捉 终点 Ｂ： ” ） ）（ ｓ ｅ ｔ ｑ Ａ １（ Ｇ Ｅ Ｔ Ａ Ｎ Ｃ Ｌ Ｅ ｐ ｔ ｌ ” 捕 捉 前视
程序 设计 ， 并 给 出程序代 码 ； 介 绍 了在 Ａ ｕ ｔ ｏ ｅ ａ ｄ中应 用 Ａ ｕ ｔ ｏ ｌ ｉ ｓ ｐ程 序 快 速 、 准确 地一 次 实现 测 量 导线 自动 平差 、 绘 图的 方 法。程 序符合 传 统导 线计 算理 论 ， 具 有很 高的 实用性 。
关键 词 ：测 量导线 ； Ａ ｕ ｔ ｏ ｌ ｉ ｓ ｐ程 序 设计 ；自动平 差 ；绘 图
（ ｅ ｏ ｍ ｍ ａ Ｉ ｌ ｄ” Ｕ Ｎ Ｉ Ｔ Ｓ ”２ ４ ２ ４ ２ ７ ０” Ｙ” ）
（ ｃ ｏ ｍｍａ ｎ ｄ” Ｕ ＮＩ Ｔ Ｓ ”２ ４ ２ ４ ２ ７ ０” Ｙ” ）
因是 图根 导 线 内业 计 算 ， 因此 选 用 常 用 的 简 易 平 差 计算公 式 睢 ， 具 体公 式如 下 ： 角度 闭合 差 ： ． ＝ｃ ｘ Ｂ’ Ⅳ’一ｏ ｌ Ｂ Ｎ
（ ｓ ｅ ｔ ｑ ｔ ｅ ｓ ｔ ０ ｓ ｍ ０ ｓ ｉ ０ ）
改正数 ： ＝一 厂 。 ／ ｎ 限差 ： 厂 ８ 限 ：± ４ ０ ／ ｎ
待 定点 纵 坐标 （ 改正 前 ） ： ｉ ＝ Ｘ＿ ＿ ｌ ’＋ Ｓ ｉ Ｃ Ｏ Ｓ Ｏ ￣ 。 待定 点横 坐标 （ 改正 前 ） ： Ｙ ｉ ＝Ｙ ｉ 一 ’＋ Ｓ ｉ ｓ ｉ ｎ ｉ 纵坐标 闭合 差 ： ． ＝Ｘ Ｂ’ 一Ｘ Ｂ 纵坐标 闭合 差 ＝Ｙ Ｂ’ 一阳 导线绝 对 闭合差 ： ＝ ＋
了直 接输入 小 数 表 示 的角 度 、 边 长 观测 值 即 可 完 成 测 量 导线平 差计 算 、 自动绘 图的 Ａ ｕ ｔ ｏ ｌ ｉ ｓ ｐ程序 ， 方便、 高 效地 实现 了 导线平 差 、 绘 图一 次完成 。
Ｉ 程序 采用 的图 根导 线 内业计 算公式
ｙ ｉ ｆ ｘ ｆ ｙ ｆ ｓ） （ ｓ ｅ ｔ ｖ ａ ｒ” ｅ ｍ ｄ ｅ ｃ ｈ ｏ ”０ ）（ ｓ ｅ ｔ ｖ ａ ｒ” ｏ ￥ ｍ ｏ ｄ ｅ ”１ ）
（ ｓ ｅ ｔ ｑ Ｎ （ ｇ ｅ ｔ ｒ ｅ ａ ｌ”输 测 角 数 Ｎ （ 支 导 线 输
１ ０ ０ ） ： ” ） ）
（ ｓ ｅ ｔ ｑ ｐ ｔ （ Ｇ Ｅ Ｔ Ｐ Ｏ Ｉ Ｎ Ｔ” 捕 捉 起算 测站 点 Ａ： ” ） ）
（ ｓ ｅ ｔ ｑ ｆ ｌ ｐ ｔ ） （ ｓ ｅ ｔ ｑ Ｘ（ ｅ ａ ｒ ｐ ｔ ） ） （ ｓ ｅ ｔ ｑ ｙ（ ｃ ａ ｄ ｒ ｐ ｔ ） ）
基于 Ａ ｕ ｔ ｏ ］ ｉ ｓ ｐ的测 量 导 线 计 算 、 绘 图 程序 设 计 与 实现
许 克根
（ 定远 县ｌ 双龙矿 业 有 限公 司 安徽 滁 州 ２ ３ ３ ２ ０ ０ ） 摘要 ： 在 传统 导线 肉业计算 理论 、 方 法的 基础 上 ， 应用Ａ ｕ ｔ ｏ ｌ ｉ ｓ ｐ语 言 对 测量 导 线 自动 平差 、 绘 图进 行
第 １期 ２ ０ １ ４ 年 ２ 月
矿 山 测 量
ＭＩ ＮＥ ＳＵＲＶＥＹＩ ＮＧ
Ｎ０ ． １
Ｆｅ ｂ． ２ ０１ ４
ｄ ｏ ｉ ： １ ０ ． ３ ９ ６ ９ ／ ｊ ． ｉ ｓ ｓ ｎ ． １ Ｏ ０ １ —３ ５ ８ Ｘ ． ２ ０ １ ４ ． Ｏ １ ． ２ ８
中图分类 号 ： Ｐ ２ ０ ９
文 献标识 码 ： Ｂ
文章 编号 ： １ ０ ０ １ —３ ５ ８ Ｘ（ ２ ０ １ ４） Ｏ １— ０ ０ ８ ５— ０ ３ 象捕捉方 式在 Ｃ Ａ Ｄ 图 中拾 取 输 入 已知 点 、 算 出 始 边、 终边 方位 角 ， 输人 角度 、 边 长 观测 值 ， 将 角 度 转化 为弧度 ， 按 上 述公 式 实 现平 差 、 绘图 ， 本 程 序 将 此 保 存为 ｄ ａ ｏ ｘ ｉ ａ ｎ ． １ ｓ ｐ 。且 程 序 设 计 用 小 数 形 式 输 入 角