摘要

利用RIEGL三维激光扫描仪的配套软件RiSCAN PRO对点云数据进行去噪、拼接、滤波等预处理后可以实现地物的绘制。然而,由于缺少一套成熟的基于点云数据绘制地形图的专用软件,将所绘制的点云地物以数据交换文件格式(dxf文件)导入CASS软件时缺少必要的地物属性信息,需手动添加属性和编码,导致地形图绘制的自动化程度降低。因此,本文从实际应用出发,利用AutoCAD提供的VBA进行二次开发编写程序,结合实际扫描数据实现了无属性地物的批量属性赋值转换,实验结果表明,本文所设计的程序能够快速准确、自动完整地进行属性赋值,提高了内业工作效率。