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

1、图 3数据格式示意 纵 、 横断面图批量绘制程序设计与实现李登富1张永俊2(1、 江苏省工程勘测研究院有限责任公司, 江苏 扬州 2250022、 上海茗川测绘技术有限公司, 上海 2011001概述 在道路和河道等勘测工程中, 通常要涉及 到断面测量工作 。 对于里程长达数十千米的工 程, 横断面数量往往达数百条, 甚至上千条 。 由 于业已形成的各行业的图形表示要求和各测绘 及相关单位的作业习惯不尽相同,因而造成了 当前还没有较好的, 既可以通用, 又可以实现批量自动化绘制断面图的程序 。因此, 为了提高笔 者所在单位测绘人员的工作效率 、 减轻劳动强 度,实现断面图批量自动化绘制以及断面

2、数据 输入的常规错误自动识别和定位,笔者基于 VB.NET (2008 进行了 AutoCAD (R16 二次 开 发 。2AutoCAD 二次开发系统平台及 VB.NET 开发语言简介 1,2AutoCAD 是美国 Autodesk 公司推出的通 用计算机绘图软件,以其强大的绘图功能和良 好的而开发环境, 广泛用于机械 、 电子 、 化工 、 测 绘等行业 。 不同行业根据本身的特点和工作需 要, 可在 CAD 平台上上开发出适合本行业的程 序 。 对 CAD 二次开发的程序语言很多,例如 Auto LISP 、 ADS 、 ARX 、 VBA 、 .NET 平台语言等 。 而 AutoCA

3、D .NET 二次开发逐渐成为主流 。VB.NET 是 Visual Basic.NET 的简称, 是微 软最新平台技术,是 .NetFrameworkSDK 的一种 语言 。 它不是 VB (Visual Basic 的简单升级, 真 正成为面向对象以及支持继承性的语言;窗体 设计器支持可视化继承,并且包含了许多新的 特性,比如自动改变窗体大小 、 资源本地化支持 、数据类工具内在支持 XML 数据; 直接建立 在 .NET 的框架结构上, 因此开发人员可以充分 利用所有 .NET 平台特性, 也可以与其他的 .NET 语言交互; 为 Windows 应用程序提供了 XCOPY 部署,开发者

4、不再需要为 DLL 的版本问题担 忧 。3程序设计 3.1界面设计界面的效果如图 1(运行横断面时界面, 在 选择纵断面时略有差异, 限于篇幅, 在此不做展示 , 包含了菜单栏 、绘图配置区 、 和功能按钮 区 。 菜单栏有, 帮助 、 注册 、 关于等 。 绘图配置区包括:断面类型框 (选择纵或横断面绘制 、 比例 尺框 、 标尺 /网格框以装饰框 。 功能按钮区主要 是导入配置 、 保存配置 、 锁定配置 、 绘图 、 提示信 息 、 退出等按钮 。 整个界面虽然使用的控件较 多, 但井然有序, 包含了绘图所需的所有信息, 以及程序良好运行的必要按钮,总体说来简洁有效, 即使没有程序帮助,

5、 使用者甚至都可以顺 利操作 。3.2功能设计本程序主要是实现纵断面和横断面批量绘 制, 因此需要具备以下功能 。3.2.1在简洁的界面上, 要具备纵 、 横断面 绘制功能切换;3.2.2一个工程断面可能是分批次分时间 段绘制, 特别是成百上千条时, 为了保持绘图特 点前后一致, 能够保存配置, 使其重复利用, 也 是有必要;3.2.3大量的断面数据文件, 总会存在个别 或少量的输入错误以及一些异常数据,比如横 断面数据, 距离和高程数据之间的分隔符, 或许 输错或许漏输入了 。 因此需要识别一些常见的 人工输入数据的错误;3.2.4一些辅助性工具, 比如断面工作量统 计 、 其它数据格式 (

6、如坐标 X , Y , H 转成默认格 式等;3.2.5无论程序是如何的容易上手, 具有帮 助文件是十分必要的,毕竟涉及到一些数据文 件格式的规定等 。4主要功能实现 3,4,54.1连接 AutoCAD本程序是从外部对 AutoCAD 进行二次开 发, 连接 AutoCAD20042006版本的代码如下:Private Sub ConnectAutoCAD(TryAcadApp =GetObject(,"AutoCAD.Appli-cation.16"CatchTryAcadApp=CreateObject(“ AutoCAD.Application. 16” AcadA

7、pp.Visible =True ' 界 面可视AcadApp.WindowState =AcWindowState.acMax' 界面最大化AppActivate(AcadApp.Caption' 显示 AutoCAD 界面CatchMessageBox.Show("没有成功启动 AutoCAD R16版本 , 请检查是否安装了 R16版本 "Exit SubEnd TryEnd TryEnd Sub4.2自 定 义 错 误信息及探测 以距离与高程 之间缺少分隔符的 错误为例 。 先定义 自定义的异常类:Private Class Sepa-rat

8、orExceptionInherits Ap-plicationException . End Class当由程序代码 (具体代码略 探测 到 这 个 异 常 时 , 就 抛出这个异常:Throw New SeparatorException由 上 一 层 的 Try Catch End Try 补 捉 到 这 个 异 常后,写入到一个 摘 要 :针对在道路 、 河道等勘测工程中, 通常要涉及到大量的断面测量和绘制工作, 为了提高断面绘制效率, 在 VB.NET 开发平台上进行 Au -toCAD 二次开发, 实现了纵 、 横断面图的批量自动化绘制以及数据输入常规错误的自动识别和定位 。关键词

9、 :AutoCAD;二次开发 ; 断面图 ;VB.netAbstract :It usually involves a large number of section measurement and mapping work in the survey projects of roads and rivers. In order to improve the efficiency of section mapping, the study carries out the second development of AutoCAD on the development platform of V

10、B.NET to achieve the automatic volume mapping of the vertical and cross sectional mapping work, as well as the automatic identification and conventional positioning of the general data entry errors.Key words :AutoCAD; second development; sectional diagram;VB.net (下转 236页 指定的错误信息文件中供批量 处理完断面绘制后, 再检查修

11、正错误数据文件, 如:myAppendWriter.WriteLine(“ 断面数据文件名 ” +“ 该文件中, 数据 ” +ErrLine +“ 可能有 问 题! ” ' 存储错误信息和和其可能位置4.3批量绘图在循环体内的示意代码如下Do While (条件 TryAcadApp.Documents.Add( . ' 绘图代码AcadApp.ActiveDocument.Close(True,文件 名 ' 保存并关闭文件Catch ex As SeparatorException . ' 错误信息处理记录AcadApp.ActiveDocument.Clos

12、e (False' 不 保存有问题的断面Catch ex As End TryLoop5实际应用本程序已经在作者所在单位的项目开始具体应用,外业数据采集以后编制成如下图的格式 . 通过程序进行自动绘制横断面图生成如图 2的结果 。 图 3数据格式中, 2000和 4000表示水面线和加固堤岸的标识符 。6结论从前文阐述来看, 纵 、 横断面图批量绘制程序主要具有以下特点:6.1从外部操控 AutoCAD ;6.2界面简洁明了;6.3操作傻瓜化;6.4批量自动化处理;6.5具备较强的容错和错误探查能力 。总之, 该程序的实现, 有效提高了笔者所在单位作业人员的工作效率 、 减轻了劳动强度

13、 。 参考文献1米炜雄 . 基于 VB 的 AutoCAD 二次开发及其 在测绘中的应用 J.科技咨询导报, 2007, (10: 69.2陈立新, 赵红梅 . 基于 VB. NET 的 AutoCAD 二次开发 J.计算机应用, 2006, (6:13-15.3张晋西 .Visual Basic 与 AutoCAD 二次开发 M.北京:清华大学出版社, 2002.4张国宝 .AutoCAD Visual Basic 开发技术 M.北京:科学出版社, 2000.5美 WallaceWang.王建成, 阮琼芳等译 . 轻松 学用 Visual Basic.NETM.北京:电子工业出版 社, 20

14、02.作者简介:李登富 , 从事工程测量等工作 , 工程师 。(上接 88页 大棚番茄根结线虫病的防治 张秀智(沧州市孟村县新县镇农业办, 河北 沧州 061400根结线虫是一种非常危险的植物病原线 虫, 广泛分布于世界各地, 我国各地菜区均有发 生 。 番茄根结线虫主要侵染番茄根部, 尤其侧根 受害严重 。 根上形成很多近球状瘤状物, 似念珠 状相互连接, 初表面白色, 后变褐色或黑色, 由 于根部受害, 影响正常吸收机能, 所以地上部生 长发育受阻, 在中午气温高时, 地上部植物呈萎 蔫状态, 早晚气温较低或浇水充足时, 暂时萎蔫 又可恢复正常 。 随着病情的发展,植株逐渐枯 死 。 控制

15、番茄线虫病的危害必须着眼于作物防 治的整个生育期, 创造作物的无毒栽培环境, 突 出综合防治措施, 以农业防治为主, 化学防治为 辅, 科学选用农药品种, 实施无公害防控配套措 施, 效果比较理想 。1选用抗线虫品种 。 选用抗 、 耐病品种, 不 同品种间对线虫病的抗 、 耐和感病程度有明显 区别, 要根据当地实际情况, 选种抗 、 耐病程度 高的品种 。 选用抗性品种是防治番茄根结线虫 的一项重要农业措施 。2无土培育无线虫壮苗 。 采用无土育苗, 施 用无病原的腐熟有机肥作底肥是避免根结线虫 危害的重要途径之一 。 因为无土育苗可培育壮 苗, 避免早期受到根结线虫的危害, 而移栽后, 即

16、使受到根结线虫的危害,对作物产量影响不 大 。 无土栽培在夏季育苗时, 要及时补充水分, 防止过干秧苗生长不良 。 采用无土育苗的方法, 其秧苗质量好于土壤育苗 。 育苗基质进行消毒 。 消毒的药剂有棉隆和威百亩 。 方法是将基质集 中, 将棉隆或威百亩与基质充分拌匀后, 盖上塑 料布熏蒸 。3采用嫁接技术 。 含有 Mi 基因的野生茄 科类品种, 对根结线虫具有优异的抗性 。 利用这些品种作砧木进行嫁接栽培,能有效的防治根结线虫危害, 且种植一茬后, 可明显减轻下茬作物根结线虫的危害 。 砧木应选择生长势强, 根系发达, 对黄萎病 、 青枯病 、 枯萎病 、 根结线虫病等4种土传病害达到高抗

17、甚至免疫程度的品种,生产中表现比较好的有:托鲁巴姆 、 CRP 、 水茄 、温棚茄砧 、 超托鲁巴姆 、 托托斯加 。 其中托鲁巴姆苗期茎粗壮, 嫁接操作方便, 成活率高, 嫁接生产的番茄产量高 、 品质好, 是一种较为理想的抗根结线虫砧木品种 。 利用托鲁巴姆进行番茄嫁接栽培是防治番茄根结线虫最有效最成功的方法 。4石灰氮土壤消毒 。 石灰氮是一种高效的土壤消毒剂,石灰氮分解的中间产物氰氨和双氰氨都具有消毒 、 灭虫 、 防病的作用 。 先翻地 30厘米以上, 然后每亩撒施 100公斤生石灰粉, 再覆盖 45厘米厚的麦糠, 然后浇大水, 浇完水以后棚膜密封,闷棚 1520天 。 可防治各种土

18、传病害及地下害虫, 特别是对线虫效果较好 。 利用石灰氮防治土传病害,较常规土壤杀菌剂防治具有无残留 、 不污染环境等优点, 是溴甲烷等高毒 、 剧毒农药被禁用后进行土壤无害化处理 、 生产无公害蔬菜的一种安全有效的做法 。夏季气温高 、 雨水少 、 温室大棚闲置时期,把土壤深翻 30厘米以上, 然后浇大水, 土表覆盖地膜, 把棚膜闭严, 高温闷棚 1520天, 可杀死土壤上层的绝大多数线虫 。 重病田灌水 1015厘米深, 保持 13个月, 使线虫缺氧窒息而死 。 有条件的地方可改种一季保护地莲藕, 既杀死线虫, 又不造成田地荒芜 。5生物防治 。 定植前每平方米用 “ 根线通 ” 1毫升, 稀释 20003000倍后, 用喷雾器喷雾, 然 后用钉耙混土, 该法对根结线虫有良好的效果 。 对生长期发病的植株, 可用 “ 根线通 ” 乳油 400 600倍液根部穴浇, 每株 100200克药液 。