航测绘图中的数据转换
开篇：润墨网以专业的文秘视角，为您筛选了一篇航测绘图中的数据转换范文，如需获取更多写作素材，在线客服老师一对一协助。欢迎您的阅读与分享！
【摘要】大比例尺地图在城市建设及铁路、道路的修建上有着广泛的应用，传统的数字化模式已经被航空摄影测量所替代。数字摄影测量工作站采集的数据，其层码与成图要求不符，传统的编辑模式比较落后，先查看采集数据代码所代表的地物内容，然后在CASS编辑软件下进行相应编辑。VLISP能很便捷的解决这个数据转换问题，使工作效率得到有效提高。
【关键词】CASS；数据转换；VLISP
引言
随着摄影测量技术的飞速发展，原来只能使用数字化测量技术才能达到精度的1：2000和1：1000地形图，现在都可以通过航空摄影测量来实现。使用航测的好处是成图快，成本低，不受条件限制等优点。
1.数字摄影测量工作站数据采集格式
使用JX4 DPS数字摄影测量工作站采集 1：2000、1：1000的大比例尺数据，其模板和数据图层以及编码都是固定的格式，采集的数据都只是一些线划图和特定的符合，很难直接判读这些线划图和符号所代表的地物要素，不可以直接拿来使用，需要在专业的成图系统下进行编辑，实现其使用价值。
CASS地形地藉成图软件是基于AutoCAD平台技术的数字化测绘数据采集系统。广泛应用于地形成图、地藉成图、工程测量应用三大领域，且全面面向GIS，彻底打通数字化成图系统与GIS接口，使用骨架线实时编辑、简码用户化、GIS无缝接口等先进技术。自CASS软件推出以来，已经成长成为用户量最大、升级最快、服务最好的主流成图系统。CASS成图系统的最大特点是操作简单，易学。
传统的编辑方式使用鼠标选取每一个地物查看其图层，如果所在图层为“3102003”，则为居民地层，解决这个问题的方法有两个，其一就是先画一条居民地的边线，然后使用属性刷改变所编辑地物的图层及扩展属性。其二就是使用正确的命名重新画一个房屋。如果所在图层为“4401002”，则为大车路，解决的方法同上，区别在于大车路边线有虚实之分，而且大车路的节点比较多，重新跟踪一遍实现起来有很大难度。还有坎、栅栏、围墙、河流、地类界等线状地物实现跟踪都很繁琐。而且使用摄影测量工作站所采集的地物都不带扩展属性。
3.实现数据自动转换的方法
使用VLISP对摄影测量工作站采集的数据进行数据转换，使所采集的数据转为正确的图层、编码、线型并添加相应的扩展属性。节省了大量的数据跟踪或使用属性刷进行数据编辑的工作量。进行数据转换最关键的环节在于如何改变现状地物的线型及如何添加地物要素的扩展属性。初步采用CHPROP命令改变地物线型，使用APPEND和ENTMOD函数添加地物扩展属性。实现了数字摄影测量工作站所采集地物与南方CASS的居民地层、独立地物层、植被层、水系层、管线层等常用地物的一一对照。
3.1居民地层对照
（setq s1 （ssget "x" '（（8 . "21100，21103"））））
（if s1
（progn
（setq n1 （sslength s1））
（setq i1 0）
（repeat n1
（setq a1 （ssname s1 i1））
（setq b1 （entget a1））
（setq b1 （subst （cons 8 "居民地及设施"） （assoc 8 b1） b1））
（setq b1 （append b1 （list （list -3 （list "SOUTH" （cons 1000 "141121"））））））
（entmod b1）
；（command "recass" a1）
（setq i1 （+ i1 1））
）
）
）
3.2道路层对照
（setq s1 （ssget "x" '（（8 . "41100"））））
（if s1
（progn
（setq n1 （sslength s1））
（setq i1 0）
（repeat n1
（setq a1 （ssname s1 i1））
（setq b1 （entget a1））
（setq b1 （subst （cons 8 "交通及附属设施"） （assoc 8 b1） b1））
（setq b1 （append b1 （list （list -3 （list "SOUTH" （cons 1000 "161101"） （cons 1040 1.435））））））
（entmod b1）
；（command "recass" a1）
（setq i1 （+ i1 1））
）
）
）
3.3水系层对照
（setq s1 （ssget "x" '（（8 . "61120"））））
（if s1
（progn
（setq n1 （sslength s1））
（setq i1 0）
（repeat n1
（setq a1 （ssname s1 i1））
（setq b1 （entget a1））
（setq b1 （subst （cons 8 "水系及附属设施"） （assoc 8 b1） b1））
（setq b1 （append b1 （list （list -3 （list "SOUTH" （cons 1000 "181101"））））））
（entmod b1）
（setq i1 （+ i1 1））
）
）
）
4.总结
通过VLISP语言获取摄影测量工作站采集数据，与南方CASS成图系统的地物编码一一对应，实现数据的自动转换。该方法在生产中得到了广泛的应用，提高了工作效率和质量，由于程序原代码较长，论文只截取了原代码的一部分，希望大家批评指正！
参考文献
[1]陈伯雄，冯伟.Visual LISP 程序设计---技巧与范例.人民邮电出版社，2002.