任航科

(福建省八闽测绘院，福建厦门 362000)

LISP语言在测绘作业中的应用

任航科∗

(福建省八闽测绘院，福建厦门 362000)

CASS作为在CAD下开发的测绘软件，因其易学，界面友好，操作方便等特点受到广大测绘工作者的喜爱。而并非所有你需要的命令都在其中，这个时候就需要借助LISP这个CAD二次开发工具来量身定做所需要的特殊功能。有的时候灵活的运用LISP程序进行二次开发，对于节省人力，物力，财力有着立竿见影的效果，如地籍测量后期资料的批量提供。

CAD LISP；测绘；地籍测量；程序；开发

1 引 言

AutoLISP是由Autodesk公司开发的一种LISP程序语言(LISP是List Processor的缩写)。AutoCAD软件包中包含大多数用于产生图形的命令，但仍有某些命令末被提供。例如，AutoCAD中没有在图形文本对象内绘制矩形及作全局改变的命令等其他一些命令。通过AutoLISP，你可以使用AutoLISP程序语言编制能够在图形文本对象内绘制矩形或作全局选择性改变的程序。事实上，可以用AutoLISP编制任何程序，或把它嵌入到菜单中，这样定制你的系统会取得更高的效率。LISP语言以其语法简单，功能函数强大，撰写的环境不挑剔，直译式程序(即写即测)等优点，而受到广大编程爱好者的喜欢。由于近一两年全国的第二次城镇土地调查开展如火如荼，本人就结合在作业过程中的灵活运用LISP程序的个别案例简单介绍如下。

2 第二次城镇土地调查简介

城镇土地调查即城镇地籍调查，是依照国家的相关法规，通过权属调查和地籍测量，查清宗地的权属、界址线、面积、用途和位置等情况，形成数据、图件、表册等调查成果，为土地登记、核发证书提供依据的一项集行政、技术于一体的工作。福建省八闽测绘院的作业方法是前期的地籍图以及街坊图的制作都是在CASS 7.1软件下完成的，后期的建库数据再以这些图件为基础来进行提取。城镇地籍调查形成的图件很多，如街坊图、土地利用现状图、宗地图、界址调查表等。其中最多的图件算是宗地图和界址调查表了，因为每宗地都有其对应的宗地图和界址调查表。这样算下来一个调查区域也就是一个作业区域的宗地图数目和界址调查表数目就非常可观了，少说也得上万宗地。因为宗地图和调查表需要打印成纸质的进行外业检查和存档。如果在CASS中一个一个宗地打印的话，效率非常低。在这个时候可借助LISP这个CAD的内嵌程序来帮助解决工作的效率问题。

3 程序开发的基础和设计

3.1 全国第二次土地调查的宗地图和界址调查表

如图1、图2所示，图1为宗地图，图2为相对应的本宗地的界址调查表。由于城镇地籍调查所涉及的宗地90%以上宗地图都是横或者竖的A4模板，调查表都是A4竖模板。如果有一些很大宗地或者很特殊的宗地则采用A3或者自定义宗地图模板，毕竟那都是少数，手工打印就可以了。所以这次程序主要针对A4横、竖模板宗地图和界址调查表的打印。

3.2 程序的设计

由于CASS软件在生成宗地图或者界址调查表的时候都是调用固定模板的，所以每个宗地的宗地图和界址调查表在CAD图中都有一个共同的块。我们可以从这个块着手，通过分析这个共同块的串行资料，找到他们的共同点，然后着手程序的编写。

A4竖宗地图块模板的串行资料如下:

图1 A4竖宗地图

图2 A4竖界址调查表

通过上边的串行信息我们可以看出，其中有一个重要坐标信息；(10 504118.0 3.08986e＋006 0.0)，这个坐标就是块模板的近似左下角坐标。这个信息可以在以后调用CAD的打印命令的时候来控制打印范围。A4竖和A4横的模板名不一样，分别为(2."gddjtk2")和(2. "gddjtk5")，通过这个可以让程序自动区分打印A4竖和横的宗地图。针对宗地图，每个宗地图串行资料中的(0."INSERT")(8."TK")是唯一可以确定块模板的串行资料对。而对于界址调查表而言(0."INSERT") (8."TK")(2."acdjtkb")则是可以确定界址调查表的串行资料对，通过整个图面数据库来选择的时候，真正的调查表个数为其一半。通过上边的分析，就可以编写批量打印的LISP程序了。

4 程序的原代码

批量打印宗地图代码:

5 结 语

通过程序可以使得原本单调乏味的工作变得很轻松，再也不需要对着数以万计的宗地图一个个来打印，不仅节约了时间，更节省了人力、物力、财力。其实LISP程序的功能很强大，也很好用。像平时测图中批量标注，批量查错，批量检核打点精度，还有这次调查中用来批量修改宗地图面信息和部分CASS命令难以修改的属性等。在平时的工作当中，适当的编写一些小程序，可以大幅度的提高工作效率，并且能保证工程的质量。

[1] 黎新懿，赵景亮.有Visual LISP开发AutoCAD 2004应用程序[M].北京:科学出版社，2005

[2] 樊志全.地籍调查第二版[M].北京:中国农业出版社，2005

LISP Language Application in Surveying and Mapping

Ren HangKe
(Fujian Province Bamin Institute of Surveying and Mapping，Xiamen 361012，China)

Developed under the surveying software of CAD，cass is loved by most Surveying and mapping workers beacause easy to studing，friendly interface，easy operation，and so on..Sometimes，you can use the language of LISP to develop the special function which fiting to you，beacause CAD cannot contain all the command.Secondary development of CAD using LISP Can save a lot of human，material and financial resources sometimes，such as the data providing of cadastral surveying.

Computer aided design；List Processor；Surving and mapping；Program；Develop

1672－8262(2011)01－110－03

P209

B

2010—07—14

任航科(1983—)，男，助理工程师，主要从事工程测量、数据建库的应用研究。