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

《AutoCAD数据接边检查自动化的实现》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、AutoCAD数据接边检查自动化的实现第15卷第4期2006年8月测绘工程ENGINEERINGOFSURVEYINGANDMAPPINGVOJ」5No.4Aug.,2006AutoCAD数据接边检查自动化的实现霍春玲，刘达(1•黑龙江工程学院测绘工程系,黑龙江哈尔滨150050;2.黑龙江测绘局第二工程院,黑龙江哈尔滨150086)摘要:图幅数据的接边检查在测绘生产中是必不可少的工序•由程序实现的自动接边检查不但可以避免人工作业的疏漏，而口对于某些人工作业难以发现的错误，也有较好的效果.关键词:VB

2、A;数据接边;自动化中图分类号:P208文献标识码:A文章编号:1006—7949(2006}04—0074—03TherealizatinofcheckautomationofedgematchingforAutoCADdataHUOChun—ling,UUDa2(l.Dept.ofSIJrvegingandMappingEngineering,HeilongiiangInstituteofTechnology,Hrbin150050,China;2.TheSecondEngi一neeringDep

3、artment,Herlon〜iangBureauofSurveyingandMapping,Harbin1500865,China)Abstract:Thecheckingofedgematchingformapsheetsisnecessaryforsurveyingandmappingproduction.Therealizationofautomaticedgematchingbyprogramcannotonlyavoidthecarelessnessofmanualworking,buta

4、lsofindtheedgematchingerrorswhicharedifficulttofindbymanualworking.Keywords:VBA;edgematching;automation计算机技术日益深入的应用，使得许多领域的牛产过程由以往的人工操作，变成计算机程序控制的自动化操作•在测绘数据生产过程中，以往的人工数据接边检查判别工作,将不再适应于日渐严格的数据生产.例如:数据重复;图幅接边数据间存在图面上不可见缝隙（在以前这些情况并不影响图面信息的表达和应用）以及属性不兀配等，这

5、在以往数据生产过程中是很难被发现的.利用计算机高速运算的优势，开发接边检查程序，对接边数据进行计算分析，检查其正确性，不但有利于提高数据质量，同时也大大缩短了接边检查的作业时间，提高了牛产效率.AutoCAD数据接边检查程序由以下模块组成:首先在两幅图中提取满足接边要求的数据元素;其次是对满足接边耍求的数据进行接边检查，并对接边错误做出标识（譬如：文字描述，改变元素颜色等）•在此以VBA实现AutoCAD数据接边检查为例，对AutoCAD下数据接边自动化的实现做以阐述.1在两幅图中提取满是接边要求的数

6、据元素对于矩形图幅，两幅数据的公共边端点可以由9-—9——一9—一-—*收稿日期:20o6—01—13作者简介:霍春玲（1963-）,女,高级工程师.程序计算，对于梯形或其它图幅也可手动输入公共边.此处以后者为例,得到共边两个端点的程序代码如下：pntl=acaddoc.Utility.GetPoint（,'r请输入边线第一点:”)pnt2=acaddoc.Utility.GetPoint(,"请输入边线第二点:”)假设要查的数据为左右关系，如图1所示.图1数据接边设置根据pntl,pnt2设定一个缓

7、冲区buffer(如图1所示,其值可以根据数据要求自行定义).对所有数据进行遍历，将端点在缓冲区内的数据元素放到数第4期霍春玲，等:Autc〜EAD数据接边检查自动化的实现?75?组mcord()中,mcord结构体格式为PrivateTypeeRecordentryAsObj-t存储接边元素fordAsBoolean标志pntl()是线段的起点还是终点pnt2(l)AsDouble存储和端点pntl()的相邻的点坐标，作为判断接边元素是否在不同图幅的依据jnAsBoolean数据是否正确接边标识初始

8、值为FALSEpntl(l)AsDouble存储线段端点坐标EndType对满足接边要求的数据元素提取程序实现如下ssetObj.SelectaeSeleetionSetAll^jFilterType^ilterData*选择所有数据元素ForEachentryln〜tObicrdnt:entry.Coordinates:fpnt(0)=crdnt(0):fpnt(l)=crdnt(1)spnt(O)=crdnt(2):spnt(1)=crdnt(3)I