CN109271697B

CN109271697B - 基于VBA处理AutoCAD中断面数据处理系统及方法、计算机程序

Info

Publication number: CN109271697B
Application number: CN201811048013.0A
Authority: CN
Inventors: 向垂规; 王俊; 夏权斌; 李有华
Original assignee: Yunnan Institute Of Water & Hydropower Engineering Investigation Design And Research
Current assignee: Yunnan Institute Of Water & Hydropower Engineering Investigation Design And Research
Priority date: 2018-09-10
Filing date: 2018-09-10
Publication date: 2022-11-18
Anticipated expiration: 2038-09-10
Also published as: CN109271697A

Abstract

本发明属于计算机辅助设计技术领域，公开了一种基于VBA处理AutoCAD中断面数据的处理系统及方法、计算机程序；利用VBA编写的断面数据处理程序，加载在CASS及AutoCAD菜单命令下，进行纵断面和横断面数据处理，能快速获取绘制断面图所需的里程、高程数据文件，结合CASS展点图及现场草图能方便的进行断面数据的检查。生成的断面数据形成Excel文档及文本文档，能直接满足不同比例尺断面图的绘制，也便于测量人员、设计人员使用及归档保存。本发明处理断面数据时，可进行人机交互式数据输入，具有速度快、效率高且不易出错等特点，生成的断面数据形成Excel文档及文本文档，便于测量人员、设计人员使用及归档保存。

Description

基于VBA处理AutoCAD中断面数据处理系统及方法、计算机程序

技术领域

本发明属于计算机辅助设计技术领域，尤其涉及一种基于VBA处理AutoCAD中断面数据处理系统及方法、计算机程序。

背景技术

目前，业内常用的现有技术是这样的：水利工程建设中，进行枢纽区大坝、隧洞、溢洪道等水工建筑物设计、输水渠道开挖、库区清淤时，为满足工程设计或施工需要，测绘人员要都要进行纵、横断面的测量。断面的测量成果是得到所测区域的纵、横断面图，断面图一般包括里程及高程两要素，绘图时以里程值为横坐标，高程值为纵坐标按比例绘制，工程技术人员可根据断面图进行工程设计、方量计算及造价估算。现阶段，通常利用全站仪或RTK技术获取断面点的坐标、高程数据，在南方CASS等成图软件中完成断面图的绘制。在南方CASS成图软件中，提供了四种断面图的绘制方法。一是根据已知坐标生成断面图，二是根据等高线生成断面图，三是根据三角网生成断面图，四是根据里程文件生成断面图，这四种方法除根据里程文件外，其它的三种方法都是由图面按里程内插高程点，而在水利工程断面测量时，一般都要实测断面点的三维数据，且断面成果整理及资料提交是基于实测断面数据；即先整理断面里程文件再绘制断面图。在南方CASS成图软件中，如要根据实测断面点的坐标、高程数据整理断面数据，一般是先确定断面的起点和断面方向，接着根据CAD量距命令量取其它高程点到起点的距离，并记下该点的高程，再转录到Excel或记事本中，最后整理成满足南方CASS成图软件中绘制断面图需要的数据格式，绘制断面图。这一过程中，量距要每个点到起始点反复量取，如果测量的高程点偏离断面轴线，还要将量取的两点间的斜离转化为平距；也不能很好的判断该点偏离轴线多远，是否超限。在生产过程中，我们整理断面数据是手动量间距、输高程，不能批量生产数据文件，所以速度慢，容易出错，也不能快速检核测量时断面点是否超限。现使用VBA编写断面数据处理程序，加载在CASS及AutoCAD菜单命令下进行工程测量的纵断面和横断面数据处理，能快速获取绘制断面图所需的里程、高程数据文件，并结合CASS展点图及现场草图能方便的进行断面数据的检查。处理断面数据时，可进行人机交互式数据输入，并实时检核断面点位是否超限，生成的断面数据形成Excel文档及文本文档，可直接用于断面图的绘制，也便于测量人员、设计人员使用及归档保存。

综上所述，现有技术存在的问题是：

(1)南方CASS成图软件中不能根据实测断面点的坐标、高程数据自动生成满足绘制断面图要求的断面数据，而根据内插法生成的断面数据及绘制的断面图有时不能反映实际的地形。

(2)如要在南方CASS成图软件中根据实测断面点的坐标、高程数据整理断面数据只能手动每点逐一转录间距、高程数据，再形成断面数据文件而生成断面图，速度慢，且容易出错。

(3)根据现有技术整理断面数据时，不能实时检核测量时的断面点是否超限。

解决上述技术问题的难度和意义：

主要难度：

(1)在整理断面数据时能判断测量时得到的断面数据是否满足规范要求。

(2)整理的断面数据文件是根据实测数据进行的，每个断面点与实测数据对应。

(3)在整理断面数据时能根据所画草图随时加点删点，并对断面线上的点进行标记，便于核对。

(4)生成的断面数据文件能保存在Excel和文本文档中，便于资料的整理和利用。

意义：应用断面法进行土石方量计算，在数据处理及成果整理方面，目前比较成熟的软件较为缺乏，在水利工程勘察设计阶段，研究合理采集土石方量计算的数据，简化土石方量计算的应用程序，实现测量、计算内外业一体化及自动化，对增加测量成果的可信度，提高测量的工作效率具有重要意义。

发明内容

针对现有技术存在的问题，本发明提供了一种基于VBA处理AutoCAD中断面数据处理系统及方法、计算机程序。

本发明是这样实现的，一种基于VBA处理AutoCAD中断面数据处理系统，所述基于VBA处理AutoCAD中断面数据处理系统包括：

断面数据处理模块，用于进行断面数据处理的图形文件，在每条断面数据处理时分别选择断面起点、终点，同时定义断面方向；

偏距值处理模块，用于根据规范要求输入偏距值，检核测量点的正确性，在选点时如偏距值大于设定值，则在表中显示为红色，提示超限；

断面数据编辑模块，用于选取断面高程点或加点时输入高程点，输入断面桩号，选取的高程点随后用圆圈标识；自动在Excel中生成断面数据，并循环进行下一点的操作；在操作时随时可查看Excel中生成的断面数据，并进行编辑；

断面数据采集模块，用于断面数据整理完成后，输入“N”可进行下一条断面数据的采集或输入“E”结束断面数据的采集，在结束断面数据采集时，提示“及时保存数据”；在处理多条断面数据时，能自动在每条断面数据结束时，自动空一行。

进一步，所述基于VBA处理AutoCAD中断面数据处理系统进一步包括：

加载模块，用于加载断面数据处理程序；

图形文件处理模块，用于打开已展绘高程点要进行断面数据处理的图形文件；

数据处理模块，用于选择断面数据处理程序；

断面方向处理模块，用于选择要处理的断面线，根据命令提示分别选择断面起点、终点，即定义断面方向；

提示模块，用于根据规范要求在命令行输入偏距值，便于检核测量点的正确性，在选点时如偏距值大于设定值，则在表中显示为红色，提示超限；

选取模块，用于在电脑屏幕上选取该条断面线上高程点或根据草图加点并输入高程值，在零桩时提示输入断面桩号，选取的高程点随后用圆圈标识；

自动操作模块，用于自动在Excel中生成累距、高程断面数据，该点操作完成后循环进行下一点的操作；操作时随时查看Excel中生成的断面数据，并进行编辑；

数据采集模块，用于断面数据整理完成后，输入命令“N”进行下一条断面数据的采集或输入命令“E”结束断面数据的采集，在结束断面数据采集时，提示“及时保存数据”；在处理多条断面数据时，在每条断面数据结束时，自动空一行，便于区别。

本发明的另一目的在于提供一种应用所述基于VBA处理AutoCAD中断面数据处理系统的基于VBA处理AutoCAD中断面数据处理方法，所述基于VBA处理AutoCAD中断面数据处理方法包括：

步骤一，在AutoCAD中运行南方CASS软件，打开要进行断面数据处理的图形文件，在每条断面数据处理时分别选择断面起点、终点，同时定义断面方向。

步骤二，根据规范要求输入偏距值，便于检核测量点的正确性，在选点时如偏距值大于设定值，则在表中显示为红色，提示超限。

步骤三，用鼠标在电脑屏幕上选取断面高程点或加点时输入高程点，输入断面桩号，选取的高程点随后用圆圈标识。软件随即自动在Excel中生成断面数据，并循环进行下一点的操作。在操作时随时可查看Excel中生成的断面数据，并进行编辑。

步骤四，如该条断面数据整理完成后，输入“N”可进行下一条断面数据的采集或输入“E”结束断面数据的采集，在结束断面数据采集时，提示“及时保存数据”。在处理多条断面数据时，能自动在每条断面数据结束时，自动空一行。

1)在AutoCAD中加载“断面数据处理程序”。2)打开已展绘高程点要进行断面数据处理的图形文件。3)在菜单栏下拉“断面数据处理程序”。4)选择要处理的断面线，根据命令提示分别选择断面起点、终点，即定义断面方向。5)根据规范要求在命令行输入偏距值，便于检核测量点的正确性，在选点时如偏距值大于设定值，则在表中显示为红色，提示超限。6)用鼠标在电脑屏幕上选取该条断面线上高程点或根据草图加点并输入高程值，在零桩时提示输入断面桩号，选取的高程点随后用圆圈标识，便于后续检核。7)程序随即自动在Excel中生成累距、高程断面数据，该点操作完成后循环进行下一点的操作。操作时随时可查看Excel中生成的断面数据，并进行编辑。8)该条断面数据整理完成后，输入命令“N”进行下一条断面数据的采集或输入命令“E”结束断面数据的采集，在结束断面数据采集时，提示“及时保存数据”。在处理多条断面数据时，能在每条断面数据结束时，自动空一行，便于区别。

本发明的另一目的在于提供一种实现所述基于VBA处理AutoCAD中断面数据处理方法的计算机程序。

本发明的另一目的在于提供一种实现所述基于VBA处理AutoCAD中断面数据处理方法的信息数据处理终端。

本发明的目的提供了一种基于VBA处理AutoCAD中断面数据处理方法完善CAD中断面测量数据处理，通过该方法能快速提取CAD中断面数据，并对断面点测量的合规性进行检核。

本发明的另一目的在于提供一种计算机可读存储介质，包括指令，当其在计算机上运行时，使得计算机执行所述的基于VBA处理AutoCAD中断面数据处理方法。

综上所述，本发明的优点及积极效果为：

(1)利用VBA编写的断面数据处理程序，进行纵断面和横断面数据处理，能快速获取绘制断面图所需的里程、高程数据文件，处理断面数据时，可进行人机交互式数据输入和批量断面数据处理，具有速度快、效率高且不易出错等特点，相比原来的处理方法效率提高至少3～5倍以上。

(2)结合CASS展点图及现场草图能方便地进行断面数据的检查，并检核测量数据是否满足规范要求，合并了测量数据检查环节，提高了工作效率。

(3)生成的断面数据形成Excel文档及文本文档，能直接满足不同比例尺断面图的绘制，也便于测量人员、设计人员使用及归档保存。

附图说明

图1是本发明实施例提供的基于VBA处理AutoCAD中断面数据处理系统结构示意图；

图中：1、断面数据处理模块；2、偏距值处理模块；3、断面数据编辑模块；4、断面数据采集模块。

图2是本发明实施例提供的基于VBA处理AutoCAD中断面数据处理方法流程图。

图3是本发明实施例提供的断面数据处理程序的设计思路示意图。

具体实施方式

为了使本发明的目的、技术方案及优点更加清楚明白，以下结合实施例，对本发明进行进一步详细说明。应当理解，此处所描述的具体实施例仅仅用以解释本发明，并不用于限定本发明。

本发明为快速地获取断面数据，基于VBA在AutoCAD平台上加载断面数据处理程序，能快速生成断面数据文件，并保存在Excel中。

下面结合附图对本发明的应用原理作详细的描述。

如图1所示，本发明实施例提供的基于VBA处理AutoCAD中断面数据处理系统包括：

断面数据处理模块1，用于进行断面数据处理的图形文件，在每条断面数据处理时分别选择断面起点、终点，同时定义断面方向；

偏距值处理模块2，用于根据规范要求输入偏距值，检核测量点的正确性，在选点时如偏距值大于设定值，则在表中显示为红色，提示超限；

断面数据编辑模块3，用于选取断面高程点或加点时输入高程点，输入断面桩号，选取的高程点随后用圆圈标识；自动在Excel中生成断面数据，并循环进行下一点的操作；在操作时随时可查看Excel中生成的断面数据，并进行编辑；

断面数据采集模块4，用于断面数据整理完成后，输入“N”可进行下一条断面数据的采集或输入“E”结束断面数据的采集，在结束断面数据采集时，提示“及时保存数据”；在处理多条断面数据时，能自动在每条断面数据结束时，自动空一行。

本发明实施例提供的基于VBA处理AutoCAD中断面数据处理系统进一步包括：

加载模块，用于加载断面数据处理程序；

数据处理模块，用于选择断面数据处理程序；

如图2所示，本发明实施例提供的基于VBA处理AutoCAD中断面数据处理方法包括以下步骤：

S201：选择断面起点、终点，定义断面方向；

S202：输入偏距值，在选点时如偏距值大于设定值，则在表中显示为红色，提示超限；

S203：选取断面高程点或加点时输入高程点，输入断面桩号。在Excel中生成断面数据，并循环进行下一点的操作；

S204：该条断面完成后，输入“N”进行下一条断面数据的采集或输入“E”结束断面数据的采集，结束断面数据采集时，提示“及时保存数据”。

本发明实施例提供的基于VBA处理AutoCAD中断面数据处理方法包括：

(1)在AUTOCAD中打开VBA管理器，创建一个新的工程。进入VBA开发环境，在“工程资源管理器”中创建对Excel对象库的引用，调用Excel中的对象。

(2)声明变量。在编辑器中定义各种本地变量Dim，定义断面数据在Excel中输出时各列的值，定义不同成图比例尺下的断面点相对断面线的允许偏离值。

(3)编写循环语句提取CASS展点图中的坐标、高程值，在Excel中生成断面数据。程序主要运行步骤为：①选择断面起点、终点，定义断面方向。②输入偏距值，在选点时如偏距值大于设定值，则在表中显示为红色，提示超限。③选取断面高程点或加点时输入高程点，输入断面桩号。在Excel中生成断面数据，并循环进行下一点的操作。④该条断面完成后，输入“N”进行下一条断面数据的采集或输入“E”结束断面数据的采集，结束断面数据采集时，提示“及时保存数据”。

下面结合附图对本发明的应用原理作进一步的描述。

1、程序编写

1.1程序编写思路

利用RTK或全站仪进行断面测量时，可得到断面线特征点的点位坐标和高程数据。整理断面数据时，由设定的断面线、断面方向及零起点，在南方CASS成图软件中可根据所展高程点进行断面数据处理和检查，可以直观地生成绘制断面图所需的里程、高程文件。对测量数据在南方CASS成图软件中展点后，测量点位可能在设计线的两边或设计线上，获取断面数据时，程序能判别测量点位离设计断面线的偏离距是否满足允许限差要求，如超出限差要求，该断面点的高程值在Excel中显示为红色，如不超出限差要求，则该断面点的高程值在Excel中显示为黑色。如图3所示，a，b为实测高程点，a'，b'为a，b在设计断面线上的垂足点位，设计断面线为直线A，实测点连成的线为折线B，a点的偏离距为S，按照内插原理，偏离距S在允许限差范围内，可以用垂足点a'代替实测点a，其高程不变，即进行断面整理时，a，b两断面点的间距取L_a'b'，高程取实测点位高程H_a，H_b。

1.2程序编写步骤

(1)在AUTOCAD中打开VBA管理器，创建一个新的工程。进入VBA开发环境，在“工程资源管理器”中创建对Excel对象库的引用，调用并定义Excel中的对象，建立Excel表格中相关数据与CAD的连接，并最终将生成的断面数据按照一定格式保存在Excel表格中。

(2)声明变量。编制断面数据处理程序时，先在编辑器中定义各种局部变量Dim，定义断面数据在Excel中输出时各列的值，根据规范要求定义不同成图比例尺下的断面点相对断面线的允许偏离值，定义新的图层。

(3)编写循环语句提取CAD展点图中的坐标、高程值，在Excel中生成断面数据。根据算法编写计算累距的函数，编写计算偏距的函数。

程序运行时的主要运行步骤为：(1)选择断面起点、终点，定义断面方向。(2)输入偏距值，在选点时如偏距值大于设定值，则在表中显示为红色，提示超限。(3)选取断面高程点或加点时输入高程点，输入断面桩号。在Excel中生成断面数据，并循环进行下一点的操作。(4)该条断面完成后，输入“N”进行下一条断面数据的采集或输入“E”结束断面数据的采集，结束断面数据采集时，提示“及时保存数据”。

1)在AUTOCAD中打开VBA管理器，创建一个新的工程。进入VBA开发环境，在“工程资源管理器”中创建对Excel对象库的引用，调用Excel中的对象，源代码如下：

2)声明变量。在编辑器中定义各种本地变量Dim，定义断面数据在Excel中输出时各列的值，定义不同成图比例尺下的断面点相对断面线的允许偏离值，源代码如下：

3)编写循环语句提取CASS展点图中的坐标、高程值，在Excel中生成断面数据。主要运行步骤为：(1)选择断面起点、终点，定义断面方向。(2)输入偏距值，在选点时如偏距值大于设定值，则在表中显示为红色，提示超限。(3)选取断面高程点或加点时输入高程点，输入断面桩号。在Excel中生成断面数据，并循环进行下一点的操作。(4)该条断面完成后，输入“N”进行下一条断面数据的采集或输入“E”结束断面数据的采集，结束断面数据采集时，提示“及时保存数据”。其源代码如下：

1.3程序的操作

1)程序加载。先将程序文件acad.dvb导入CAD中的support文件夹中，再在CASS中找到system文件夹，打开acad.rx，加写“acvba”，这时打开南方CASS成图软件即可加载。

2)获取断面数据。先打开南方CASS7.0成图软件，完成断面测量数据的展点及设计断面线的绘制。再在菜单栏激活“获取断面数据”菜单，然后根据状态栏的提示，用鼠标点击处理断面线的断面起点位置及终点方向。用鼠标选择断面线上的高程点位(点击后的高程点位用圆圈加以标记)，获得该点在设计断面线上的断面里程及高程数据，并保存在Excel。

在断面数据获取过程中，可增加断面上未测地形特征点(如增加量取的坎脚点)，在第一条断面处理完成后，可选择接着处理第二条断面(输入命令“N”)或选择退出程序(输入命令“E”)。在断面数据处理完成后，输入命令“E”结束时，CASS对话框提示“断面数据已形成，请及时保存”。

在上述实施例中，可以全部或部分地通过软件、硬件、固件或者其任意组合来实现。当使用全部或部分地以计算机程序产品的形式实现，所述计算机程序产品包括一个或多个计算机指令。在计算机上加载或执行所述计算机程序指令时，全部或部分地产生按照本发明实施例所述的流程或功能。所述计算机可以是通用计算机、专用计算机、计算机网络、或者其他可编程装置。所述计算机指令可以存储在计算机可读存储介质中，或者从一个计算机可读存储介质向另一个计算机可读存储介质传输，例如，所述计算机指令可以从一个网站站点、计算机、服务器或数据中心通过有线(例如同轴电缆、光纤、数字用户线(DSL)或无线(例如红外、无线、微波等)方式向另一个网站站点、计算机、服务器或数据中心进行传输)。所述计算机可读取存储介质可以是计算机能够存取的任何可用介质或者是包含一个或多个可用介质集成的服务器、数据中心等数据存储设备。所述可用介质可以是磁性介质，(例如，软盘、硬盘、磁带)、光介质(例如，DVD)、或者半导体介质(例如固态硬盘SolidState Disk(SSD))等。

以上所述仅为本发明的较佳实施例而已，并不用以限制本发明，凡在本发明的精神和原则之内所作的任何修改、等同替换和改进等，均应包含在本发明的保护范围之内。

Claims

1.一种基于VBA处理AutoCAD中断面数据处理系统，其特征在于，所述基于VBA处理AutoCAD中断面数据处理系统包括：

2.如权利要求1所述的基于VBA处理AutoCAD中断面数据处理系统，其特征在于，所述基于VBA处理AutoCAD中断面数据处理系统进一步包括：

加载模块，用于加载断面数据处理程序；

数据处理模块，用于选择断面数据处理程序；

3.一种应用权利要求1所述基于VBA处理AutoCAD中断面数据处理系统的基于VBA处理AutoCAD中断面数据处理方法，其特征在于，所述基于VBA处理AutoCAD中断面数据处理方法包括：

步骤一，在AutoCAD中运行南方CASS软件，打开要进行断面数据处理的图形文件，在每条断面数据处理时分别选择断面起点、终点，同时定义断面方向；

步骤二，根据规范要求输入偏距值，便于检核测量点的正确性，在选点时如偏距值大于设定值，则在表中显示为红色，提示超限；

步骤三，用鼠标在电脑屏幕上选取断面高程点或加点时输入高程点，输入断面桩号，选取的高程点随后用圆圈标识；软件随即自动在Excel中生成断面数据，并循环进行下一点的操作；在操作时随时可查看Excel中生成的断面数据，并进行编辑；

步骤四，如该条断面数据整理完成后，输入“N”可进行下一条断面数据的采集或输入“E”结束断面数据的采集，在结束断面数据采集时，提示“及时保存数据”；在处理多条断面数据时，能自动在每条断面数据结束时，自动空一行。

4.一种实现权利要求3所述基于VBA处理AutoCAD中断面数据处理方法的计算机程序。

5.一种实现权利要求3所述基于VBA处理AutoCAD中断面数据处理方法的信息数据处理终端。

6.一种计算机可读存储介质，包括指令，当其在计算机上运行时，使得计算机执行如权利要求3所述的基于VBA处理AutoCAD中断面数据处理方法。