AutoCAD数据接边检查自动化的实现.doc

AutoCAD数据接边检查自动化的实现 第l5卷第4期 2006年8月 测绘工程 ENGINEERING0FSURVEYINGANDMAPPING V0J.15No.4 Aug.,2006 AutoCAD数据接边检查自动化的实现 霍春玲,刘达 (1.黑龙江工程学院测绘工程系,黑龙江哈尔滨150050;2.黑龙江测绘局第二工程院,黑龙江哈尔滨150086) 摘要:图幅数据的接边检查在测绘生产中是必不可少的工序.由程序实现的自动接边检查不但可以避免人工作 业的疏漏,而且对于某些人工作业难以发现的错误,也有较好的效果. 关键词:VBA;数据接边;自动化 中图分类号:P208文献标识码:A文章编号:1006—7949(2006}04—0074—03 Therealizatinofcheckautomationofedge matchingforAutoCADdata HUOChun—ling,LIUDa2 (1.Dept.ofSIJrvegingandMappingEngineering,HeilongiiangInstituteofTechnology,Hrbin150050,China;2.TheSecondEngi— neeringDepartment,Herlon~iangBureauofSurveyingandMapping,Harbin1500865,China) Abstract:Thecheckingofedgematchingformapsheetsisnecessaryforsurveyingandmappingproduction.The realizationofautomaticedgematchingbyprogramcannotonlyavoidthecarelessnessofmanualworking,but alsofindtheedgematchingerrorswhicharedifficulttofindbymanualworking. Keywords:VBA;edgematching;automation 计算机技术日益深入的应用,使得许多领域的 生产过程由以往的人工操作,变成计算机程序控制 的自动化操作.在测绘数据生产过程中,以往的人 工数据接边检查判别工作,将不再适应于日渐严格 的数据生产.例如:数据重复;图幅接边数据间存在 图面上不可见缝隙(在以前这些情况并不影响图面 信息的表达和应用)以及属性不匹配等,这在以往数 据生产过程中是很难被发现的. 利用计算机高速运算的优势,开发接边检查程 序,对接边数据进行计算分析,检查其正确性,不但 有利于提高数据质量,同时也大大缩短了接边检查 的作业时间,提高了生产效率.AutoCAD数据接边 检查程序由以下模块组成:首先在两幅图中提取满 足接边要求的数据元素;其次是对满足接边要求的 数据进行接边检查,并对接边错误做出标识(譬如: 文字描述,改变元素颜色等).在此以VBA实现 AutoCAD数据接边检查为例,对AutoCAD下数据 接边自动化的实现做以阐述. 1在两幅图中提取满是接边要求的数据元素 对于矩形图幅,两幅数据的公共边端点可以由 ---?-—-------?---—--------—--?---------——--------—.---一● 收稿日期:20o6一O1—13 作者简介:霍春玲(1963--),女,高级工程师. 程序计算,对于梯形或其它图幅也可手动输入公共 边.此处以后者为例,得到共边两个端点的程序代 码如下: pntl=acaddoc.Utility.GetPoint(,请输入边线 第一点:) pnt2=acaddoc.Utility.GetPoint(,请输入边线 第二点:) 假设要查的数据为左右关系,如图1所示. 图1数据接边设置 根据pntl,pnt2设定一个缓冲区buffer(如图l 所示,其值可以根据数据要求自行定义).对所有数 据进行遍历,将端点在缓冲区内的数据元素放到数 第4期霍春玲,等:Autc~EAD数据接边检查自动化的实现?75? 组mcord()中,mcord结构体格式为 PrivateTypeeRecord entryAsObj~t存储接边元素 fordAsBoolean标志pntl()是线段的起点还 是终点 pnt2(1)AsDouble存储和端点pntl()的相邻的 点坐标,作为判断接边元素 是否在不同图幅的依据 jnAsBoolean数据是否正确接边标识初始 值为FALSE pntl(1)AsDouble存储线段端点坐标EndType 对满足接边要求的数据元素提取程序实现如下 ssetObj.SelectaeSeleetionSetAll,,,FilterType,FilterData选择所有数