数字测绘_基于VBA for AutoCAD_第八节.pdfVIP

第八章 应用实例 8.1 在图形中展测量点 工程测量中经常要进行数据处理 作，数据采集回来以后面临的是数据处理 作，以前采集回来的数 据使用手 方式在纸质图上进行操作，劳动强度大，效率低下。展测量点是进行处理的基础。以下分析在 AutoCAD 图形中展点的主要原理和处理点的主要算法。 目前，测量中采集点普遍使用全站仪进行。利用全站仪的自动记录功能能快速、准确的记录数据， 由于全站仪的种类、型号众多。目前也没有统一的标准，导致数据传输至 算后生成数据文件中数据 的格式也各不相同，为此应定义程序处理的数据格式，一种最简便的格式是文件中的每个点占一行，分别 为点号和三维坐标。如下所示： 测量点的点号1，X 坐标，Y 坐标，H 坐标 （高程） . . 测量点的点号n，X 坐标，Y 坐标，H 坐标 （高程） 该种数据文件格式比较容易利用 算机生成，生成的数据文件存成”文件名.dat”的格式。 算法分析：为了在后来的 AutoCAD 图形中对点进行诸如提取、分析等操作，一般并不直接利用 友 AutoCAD 中的Point 对象来在图形中表示点，为此常将点利用块参照来表示，给表示点的块参照取一个独 特的名字会给以后的操作带来方便。此例中用名字为“BLPoint”的块参照来绘制点。 在块集合中定义一个名为“BLPoint”的块，其插入坐标为（0,0,0 ）并在其中插入一个点，该点插入坐 标为（0，0，0 ），打开数据文件循环读入每个点的坐标， 在模型空间中在读入坐标位置绘制块参照。并 测 在插入点绘制高程文本标记，直到文件结束。程序流程框图如下： 开 始 国 在块集合中定义一个块， 并在其中插入一个点。 中 打开数据文件 读入点的三维坐标 在当前的坐标位置插入块参照 在当前的坐标位置插入表示高程的文字 到文件尾吗 是 结 束 算法如下： Public Sub ZanGaoCeng() Dim blockObj As AcadBlock ‘定义块对象 Dim InsertionPnt(0 To 2) As Double ‘定义插入点 InsertionPnt(0) = 0 InsertionPnt( 1) = 0 InsertionPnt(2) = 0 Set blockObj = ThisDrawing.Blocks.Add(InsertionPnt, Blpoint) ‘在集合中增加一个名为“BLPoint ”的块。 Set insobj = blockObj .AddPoint(InsertionPnt) ‘在块中插入一个点 Dim blockRefObj As AcadBlockReference ‘定义块参照 height = ThisDrawing.Utility.GetReal(命令:输入高程标签高度:) ‘从AutoCAD 的命令行得到标