四川省煤田测绘工程院四川成都610072
摘要：近几年农村土地确权在全国范围全面展开，对处理数据的要求也越来越高，由于土地确权具有工作量很大的特点，对传统的一些方法也必须提高。如在传统的AutoCAD作业中，处理影像是一个比较繁琐的工作。尤其是农村土地确权的比例尺大多是1:1000，500米*500米的一张影像图片。传统的插入影像方法已远远不能适应此项目。为了方便批量插入影像图到AutoCAD中，通过我院在几个农村土地确权项目对大量的数据处理经验的基础上，文章以AutoLisp的二次开发，阐述怎样批量插入影像图片到AutoCAD中。
关键词：AutoCAD；AutoLisp；影像图；DOM；插入
1LISP简介
LISP是ListProcessor（表处理程序）的缩写，主要用于人工智能（AI）领域。AutoLisp是人工智能语言CommonLISP的简化版本，作为通用LISP语言的一个小子集，AutoLISP严格遵循其语法和惯例，但又添加了许多针对AutoCAD的功能。Autodesk公司在AutoCAD2.1版引入AutoCAD作为应用程序编程接口（API），用于扩展和自定义AutoCAD功能。借助AutoLISP，用户可以用适合编写图形应用程序的强大的高级语言来编写宏程序和函数，并开发各种软件包。从AutoCADR14开始，VisualLISP被引入到AutoCAD中，它增强并扩展了AutoLISP语言，可以通过MicrosoftActiveXAutomation接口与对象交互，并扩展了AutoLISP响应事件的能力。作为开发工具，VisualLISP提供了一个完整的集成开发环境（IDE），包括编译器、调试器和其他工具，可以提高自定义AutoCAD的效率。VisualLISP没有任何特殊的硬件需求，能运行AutoCAD系统即可运行VisualLISP。
2批量插入影像实现过程
2.1遥感影像图片的特点
遥感影像图片一般是以tiff格式存储的，同时有一个前缀与tiff同名的后缀为tfw格式的文件。DOM文件名(图幅编号)的格式一般如3320.5-367.5.tif，按图廓西南角平面坐标公里数编制,x坐标在前,y坐标在后,中间以短横线连接。文件名前缀以“-”隔开，前半部分是X坐标的前几位，后半部分是Y坐标的前几位。如果在ArcMap可直接读取TFW取得DOM的位置，在AutoCAD中，传统的方法是用插入光栅图像按照坐标来一张一张插入DOM图片。
2.2部分代码及注释
2.2.1需要安装的软件
AutoCAD2004或更高的AutoCAD版本；VisualLISPIDE运行环境。
2.2.2主要函数及功能说明
(defunGetExtents(plist/);功能：计算点表的外包框
(list(apply'mapcar(cons'minplist))(apply'mapcar(cons'maxplist))))
(defundxf(keyename)(cdr(assockey(entgetename))));功能：提取组码
(defuntt-df(p1p2n);功能：两点间等分
(if(>(1-n)0)
(cons(polarp1(anglep1p2)(/(distancep1p2)n1.0))
……
ss(ssadd(carl)ss)
)))))
2.2.3主程序实现部分代码
(defunc:tt(/abbkblboxdxdyefileshll1l2l3msgodlstp1p2pathptsssss1wxy)
;先在图中画一条多线段，多线段所处范围即是需要插入影像DOM的范围
(vl-cmdf"-LAYER""m""YX""c""7""""")
(setqpath"D:\\桌面\\影像图");影像图路径，路径可设置成参数方便使用
bl1000.；定义比例尺为1:1000，影像图片为500米*500米一张
……
(print)
2.3程序实现的效果及说明
程序实现效果如图2-1所示。其中黄色的文字是每张影像图的图幅号，也表示影像图的名称。如：*3548.0*-432.5*.tif，其中的星号可表示0或者其他文字，以适用于各种文件名的影像图。红色的多线段表示所需插入影像图的范围线，需要先确定范围并手工画出来。插入的每张影像图相互对接都没有错误和偏差。
图2-1程序实现效果图
结语：在农村土地确权的项目的作业过程中，传统的手工插入影像图的方法已经出现严重的弊端，传统方法既不能保证插入图片位置的正确性，更会增加人工成本。寻找新的技术方法已经刻不容缓了。通过文章的论述，可以看到利用AutoLisp来批量插入影像图有很大的优势。经过几个项目的实际运用，都能达到质量和效率极大地提高。这在现在的测量各种项目尤其是调绘项目具有很大的优势，能极大地节约单位的人力财力。
参考文献：
[1]《农村土地承包经营权调查规程》（NY/T2537-2014）[S].中华人民共和国农业部，2014．
[2]《农村土地承包经营权确权登记数据库规范》（NY/T2539-2014）[S].中华人民共和国农业部，2014．
[3)梁雪春，崔烘斌，吴义忠.等.AutoLisp实用教程[M]北京：人民邮电出版社，1998．