CASS高程点位自动恢复实现.docVIP

CASS高程点位自动恢复实现摘要：由于数据处理或作业过程中的不当操作，而引起CASS成图系统高程点位与注记值不一致的现象，文章针对该情况，运用计算机编程技术，快速恢复高程点位。 关键词：CASS；AutoCAD；ActiveX Automation 在编制地形图的过程，由于作业员的操作不当，往往引起个别或成片的高程点位属性高程值与高程注记不一致的情况，而在成果使用时，往往是致命的，在土方量计算时将会引起严重数据错误。而高程点位高程不能直观地检查出来，它包含在点位属性的标高值内，而人工检查，耗费大量的人力物力，且检查效果不明显。通常情况下，高程注记值是正确的，本文通过Visual Basic计算机编程技术，对AutoCAD进行二次开发，能将高程值迅速恢复，有效地解决此问题。 一、AutoCAD与CASS成图软件 AutoCAD是由美国Autodesk公司于20世纪80年代初为微机上应用CAD技术而开发的绘图程序软件包，经过不断的完美，现已经成为国际上广为流行的绘图工具。CASS地形地藉成图软件是基于AutoCAD平台技术的数字化测绘数据采集系统。广泛应用于地形成图、地藉成图、工程测量应用三大领域，且全面面向GIS，彻底打通数字化成图系统与GIS接口，使用骨架线实时编辑、简码用户化、GIS无缝接口等先进技术。自CASS软件推出以来，已经成长成为用户量最大、升级最快、服务最好的主流成图 系统。 二、Visual Basic ActiveX开发技术 ActiveX自动化技术是微软建立的标准，基于COM的自动服务程序，是对象链接与嵌入OLE的进一步发展，。AutoCAD ActiveX技术提供了一种机制，可使编程都通过编程以AutoCAD的内部或外部操作控制AutoCAD。其中，AutoCAD的对象模型是一种树型结构模型，根为”AutoCAD Application”，AutoCAD中的所有对象都是AutoCAD Application的子对象。 三、点位高程恢复的实现 （一）开发思路 由于Visual Basic可通过ActiveX技术来操控AutoCAD，因此可通过对象模型结构对实体进行编辑和更新，从而实现对数据的批量修改。 CASS高程点位数据放置在标高（Elevation）标段内，高程点位为块（AcAdBlock）；高程注记实体类型为文字（AcADText），图层放置在“GCD”层，程序可通过选取图面中的高程注记，按一定距离的搜索圆对高程点位进行搜索，满足条件时，对高程注记转化为数据对高程点位进行赋值，从而实体对点位的数据恢复。 （二）ActiveX Automation对象模型 （三）Visual BASIC中连接 AutoCAD 启动Visual BASIC ，引用 AutoCAD 类型库。操作步骤：从“工程“菜单中选择“引用”选项，启动“引用”对话框。在“引用”对话框中，选择 AutoCAD 类型库，然后单击“确定”。 同时运行多个 AutoCAD 任务时，GetObject 函数会返回 Windows 运行对象表中的第一个 AutoCAD 实例。要显示 AutoCAD 图形窗口，需要将 AutoCAD 应用程序的 Visible 特性设置为 TRUE。 使用 acadDoc 变量引用当前的 AutoCAD 图形。 Dim acadApp As AcadApplication Dim acadDoc as AcadDocument Sub ConnectToAcad（） On Error Resume Next Set acadApp = GetObject（， “AutoCAD.Application”） If Err Then Err.Clear Set acadApp = CreateObject（”AutoCAD.Application”） If Err Then End End If acadApp.Visible = True Set acadDoc = acadApp.ActiveDocument End Sub （四）处理流程 当Visual Basic连接到AutoCAD后，通过对实体的引用，可实体数据的处理。 1．定义过滤机制。首先对高程注记进行实体的过滤定义，只获取图面中高程注记文字数据，类型为文字（AcadText），图层为“GCD”，其次建立文字注记存在的选择集，将文字注记存放在选择集内，以便程序进行遍历。 Dim ftype（0 To 1） As Integer Dim fdata（