李永庆

（水利部海河水利委员会科技咨询中心，天津 300170）

工程测量

AutoLISP在AutoCAD自动拼接测量图中的应用

李永庆

（水利部海河水利委员会科技咨询中心，天津 300170）

采用AutoLISP编程语言，以AutoCAD作为平台，分别测试简单测量图和复杂测量图自动拼接的耗时，结果说明采用AutoLISP实现测量图自动拼接，可大大缩短耗时，提高设计人员的工作效率。

AutoLISP；AutoCAD；测量图；拼接

1 概况

AutoLISP是AutoCAD内置的编程语言，功能强大，应用范围广泛，但在规划设计工作中应用较少。针对手动拼接测量图效率低下的问题，以AutoCAD作为平台，利用AutoLISP编程语言进行二次开发，可实现自动批量拼图，有效地解决了这一问题。

2 程序分析

2.1 地形图拼接原理

AutoCAD格式的测量图中，图形按照测量对象的投影坐标布置，所以每个文件中图形的位置，相对于AutoCAD坐标轴的原点（0，0，0）是固定的。利用AutoCAD插入“块”的功能，指定插入点为（0，0，0），将单个测量图文件以“块”的形式插入，使用“分解”命令将“块”分解。重复插入、分解的步骤，就可以将多张地形图合并。

2.2 程序实现

以下为拼接程序源代码：

程序流程说明：①使用函数getfiled，弹出文件选择对话框，提示用户选择一个测量图文件，获取该文件在磁盘中的完整路径；②使用函数vl-filename-di-rectory处理上一步获取的文件路径，得到测量图所在的目录；③使用函数vl-directory-files获取目录中所有测量图的文件名；④使用函数foreach，循环执行将单个文件插入、分解的步骤；⑤程序执行完毕。

2.3 使用方法

将需要拼接的测量图文件保存在同一个目录中，但不要把拼接后的文件保存在这个目录中。……