Autolisp在测量绘图中的应用.pdf

246 数字测绘技术与数字交通建设 Autolisp在测量绘图中的应用 苟浩远 (中山市榄建测绘工程有限公司，广东中山528415) 摘 要通过一个编程开发实例，介绍Autolisp在测量绘图中的应用方法和思路。 关键词Autolisp二次开发程序加栽 随着计算机的普及，各种测量绘图软件如雨后 如给变量X赋值为2，用其它高级语言表示为 春笋般相继涌现。当然大多数软件都是基于Auto X一2 Desk公司的AutoCAD平台开发出来的，因而其本 而用Autolisp表示则为 身也是一个开放型的软件包，便于使用者进行个性 Desk公 X2) 化定制甚至二次开发。到目前为止，Auto (Setq 司提供了四种二次开发手段：Autolisp、ADS、VBA 再如已知两点坐标求平距，用其它语言可表 ARX。本文介绍的主要内容是应用最简 及0bject 示为 单而实用的Autolisp对测绘软件进行定制开发的 2+(Y2一Y1)^2) S—Sqrt((X2一X1)A 实例和方法。 而用Autolisp语言则表示为 1 Autolisp简介 S X1)2) (SetqSqrt(+expt((--X2 CAD内部的 Autolisp语言是一种嵌人在Auto Y1)2))) expt((一Y2 计算机表处理编程语言。它采用了与Common Lisp 相近的语法约定，但只包含了Common Lisp中的一3一个编程实例 个子集，同时增加了针对Auto CAD特点的许多函 就笔者所在测绘部门而言，以宗地测量居多，而 权，使Autolisp成为CAD最主要的基础开发工具， 宗地测量一个很重要的要素就是要标出该宗地每个 使AutoCAD具有良好的开放性。 拐(角)点的坐标。有时受地形地貌的限制以及历史 Lisp语言的特点是程序和数据都采用符号表达 遗留问题的影响，某些宗地界址非常复杂，因而拐 式的形式，即一个Lisp程序可以把另一个Lisp程 (角)点也相当多。如果一个个来标注坐标点，就非 序作为它的数据进行处理，因此使用Lisp语言编程 常浪费时间，而且如果线条再复杂一点，稍不留意就 十分灵活，看起来，就是一个一个的函数调用。