lisp语言论文关于lisp语言对立体测量数据进行高程处理的实现论文范文参考资料

lisp语言论文关于lisp语言对立体测量数据进行高程处理的实现论文范文参考资料 摘要：本文结合航测工作实际生产案例，利用lisp程序语言，编写程序，实现对Z坐标进行整提调整功能。 关键词：lisp程序 Z坐标 调整 0 前言 与传统策略获取的地形图相比，航测立体测图获取的地形图最大的特点是每个节点均有真实的高程坐标，即Z值。目前对航测数据Z值的应用比较多，如进行三维建模、日照分析等。但是由于高程基准的不同，有时需要将不同基准下的航测立体测图高程进行进行转换，即同时对所有地物节点坐标的Z值增加一个数值或减少一个数值。如在ADS80航空摄影中，由于生产的需要，需要对高程系在WGS 84和1985国家高程系之间进行转换，这就需要对测图数据所有节点高程值进行处理，整体增加和减少一个固定值。 1 航测图的节点Z值坐标存放特点 航测立体测图数据线状地物节点坐标存储方式如下： 从上面可以看到，航测立体测图数据的DWG文件与一般的DWG线状数据主要有两点不一样：航测立体测图数据存储文件每个Z坐标不相同，即其存储的是该线状地物的每一个节点高程值，为三维多义线；而一般DWG数据Z值坐标相同，为一个值，是轻量多义线（LWPolyline），即通常所说的二维半线；其次，航测立体测图数据是以节点为单位，每个节点为一个Handle，而一般DWG数据为一个实体（点、线、文本）为一个Handle。对于这两点区别是后期程序实现中需要注意的理由。而如何获取3d Polyline数据节点Z值坐标并对Z值坐标进行操作成为该程序的重点。 2 程序实现 程序设计基本思想为首先提取所有数据（点、线、文本）的X、Y、Z坐标。在提取过程中，注意在Auto CAD坐标定义中的X、Y坐标与测量中的X、Y是不同的，前者是数学坐标系，X表示横坐标，Y表示纵坐标。 在程序设计中，首先提取节点坐标组，定义为coor，在coor中依次包含X、Y、Z值，分别以coor_x、coor_y、coor_z定义。程序代码如下： 然后定义一个高差值h，作为转变高程的变量值，同时提示“请输入高差”，程序代码如下： 对调整高程后的坐标值定义一个新的坐标组，定义为coor_new，将坐标组代替原坐标组。程序代码如下： 将以上更新坐标的程序作为一个子程序在后续循环中调用。 在实际作业过程由于有大量的点、线、注记，因此对上述过程需要对选中的地物逐个更改，需要对上述过程进行循环，具体程序代码如下： 在生产应用时，加载该程序，并输入相应的命令，此时Auto CAD调出一个对话框“请选择3d多义线或插入块!”，拉框选择需要调整高程的数据范围，选中后点击右键，会弹出一个“请输入高差:”的对话框，直接输入需要修改的高程值即可将，会将所选数据高程值统一修改一个统一值。所输入数值高程值单位为米，默认值为0。 3 结束语 在该程序中，以正数表示增加高程值，以负号表示较少高程值。 在应用程序中，有两点特别注意，就是对等高线的处理。由于调整高程值一般不是基本等高距的整数倍，因此等高线需要重新处理，另外由于更改的书数据本身坐标值的值，并没有转变文字注记值，因此对高程注记需要重新依据高程值反生成注记。 随着当前测绘技术的发展，航测三维数据的应用增加，整体调整航测数据高程的情况在生产过程中时有发生，该程序在实际生产中应用频率越来越高，避开了因高程调整二次立体采集数据的工作，大大提高作业效率。 _ 1 Auto CAD xx开发人员帮助文档 作者简介：徐常