纵、横断面图批量绘制程序设计与实现

《纵、横断面图批量绘制程序设计与实现》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、科信0息8产l业纵、横断面图批量绘制程序设计与实现李登富张永俊。(1、江苏省工程勘测研究院有限责任公司，江苏扬州2250022、上海茗川测绘技术有限公司，上海20110o)摘要：针对在道路、河道等勘溯工程中，通常要涉及到大量妁断面j冀I量和绘黼工作，为了提高断面绘制效率在VBNET开发平台上进行Au—toCAD二次开发，实现了纵、横断面图的批量自动化绘割以及数据输入常规错误的自动识剐和定位。关键词：AutoCAD；二次开发：断面图；VB．netAbstract：itusu',filyinvolvesalarge

2、numberofset：矗帅珈easIlfeIrlentandmappingworkinthesurveyprojectsofroadsandrivers．IIlordertoimprovetheefficiencyofsectionmapping,thestudycarriesoutthes。conddevelopmentofAutoCADonthedevelopmentplatformofVB．NETtoachieveaulolna[ievolumemapping0fthevertic',dandeFo~；

3、secti0rIaImappingwork,aswellastheaulomaficidentificationandconventionalpositioningofthegeneraldataentryelToi's．Keywords：AutoCAD；sec~rMdevelopn~o

4、；sectioualdiagram；VB．neLl概述有效，Bp使没有程序帮助，使鹏者甚至鄙可以顺存道路和河道等勘测工程中通常要涉及和j操作。到断面测量工作。对于里程长达数十千米的工3．2功能设计程，横断面数量往往达数百条，甚

5、至上千条。由本程序主要是实现纵断面和横断面批量绘于业已形成的各行业的图形表示要求和各测绘制，因此需要具备以下功能。及相关单位的作业习惯不尽相同，因而造成了3．2．1在简洁的界面上，要具备纵、横断面当前逊没有较好的，既可以通用，又可以实现批绘制功能换；量自动化绘制断面图的程序。因此，为了提高笔3．2．2一个J二程断面可能是分批次分时闻者所在单位测绘人员的工作效率、减轻劳动强段绘制，特另是成百上千条时，为了保持绘图特度，实现断面图批量自动化绘制以及断面数据点前后一致，能够保存配置，婕其重复利刚，也输入的常规错误自动

6、识别和定位，笔者基于是有必要；VB．NFT(2008)进行了AutoCAD(Ri6)二次开3．2．3大量的断面数据文件．总会存在个别发。或少量的输人错瀑以及一些异常数据比如横2AutaCAD二次开发系统平台及VB．NET断面数据，距离和高程数据之问的分隔符，或许开发语言简介”输错或许漏输入了。因此需要识别一些常见的AutoCAD是美国Aut~Mesk公司推出的通人工输入数据的错误；用算机绘图软件，以其强大的绘图功能和良3．2．4一些辅助性具，比如断面工作茸统好的而开发环境，广泛用于机械、电子、化工、测计、其它数

7、据格式(如坐标x，Y，H)转成默认格绘等行业。不同行业根据本身的特点和工作需式等；要，可在CAD平台上上开发出适合本行业的程3．2．5无论程序是如何的容易上手具有帮序。对CAD二次开发的程序语言很多，例如助文件是分必要的，毕竟涉及到一些数据义AutoLISP、ADS、ARX、VBA、．NET平台语青等。件格式的规定等。而AuIoCADNFT二次开发逐渐成为主流。4主要功能实VBNEI、是VisualBasic．NET的简称，是微4．1连接AutoCAD软最新平台技术，是．NetFrameworkSDK的一种本程

8、序是从外部对AutoCAD进行二次开EodSubCS00+0日8语言。它不是vB(visualBasic)的简单升级，真发，连接AutoCAD2004～2006版本的代码如下：4．2冉定义错．I正成为面向对象以及支持继承性的语言；窗体PrivateSubCom~eetAutoCAD0误信息及探测Z设计器支持可视化继承，并且包含了许多新的Dy以距离与高程3S60特性，}七如自动改变窗体人小、资源本地化支AcadApp=C~tObject(”AutoCA1)．Appli—之间缺少分隔符的持、数据类工具内在支持XML

9、数据；直接建立锗误为例。先定义．2889cation．16”)在NET的框架结构上，因此开发人员可以充分Catch自定义的异常类：3．19利所有．ET平台特性，也可以与其他的．NETmPrivateClassm—2．1I720

10、I口0日2．1上l28语言交互；为Windows应用程序提供了XCOPYAcadApp：CreateObjcct(“AutoCAD．Aoplication．l-