批量横断面绘制与路基一键分层提取高程边距

一、横断面绘图数据的整理

1.1 横断面数据初步整理

把源数据整理为【点号，x 坐标，y 坐标，z 坐标，桩号，偏距】的格式，其中 x 坐标，y 坐标可以不填，但是需要空出来。

1.2 执行初次排序，其界面如下。 

设置是否匹配断面字典文件里面的桩号；设置横断面整理间距,通常为 5 米或 10 米；设置好后，点击排序

1.3 检查每个断面数据 

检查每个断面与断面之间的数据，将其用空行隔开，如果初次排序后，某些数据未达到要求，请手动使用空行隔开。把每个断面 F 列桩号改为正确桩号，使之与设计图和断面位置字典文件相符。

二、计算并得到绘图数据 

2.1 执行绘制数据设置绘图参数。

2.2 复制 I 列数据，在 Cad 图里面绘制地面线 （在 Cad 中新建图层）复制 I 列数据，以 Pl 命令粘贴到 cad 命令栏中绘制出所有断面线到断面图

中，结果图如下：

2.3 在 Cad 图里面绘制断面相应桩号 (在 Cad 中新建图层)，复制 M 列数据直接右键粘贴到 cad 命令拦里面。核对每一条断面线是否与设计断面一一对应，结果如下图

2.4 在 Cad 图里面绘制断面线上实测点高程 （在 Cad 中新建临时图层）复制 O 列数据直接右键粘贴到 cad 命令拦里面。结果如下图。

2.5 在 Cad 图里面个别无设计断面的处理

整个图基本完成，看图 K52 535 为没有设计图的加密断面，因为没有设计断面位置，所以他把他绘制到了一旁的角落位置，我们现在给这个断面绘制设计中桩高程点吧，然后选择该断面线，以设计中桩点为基点，带基点复制该断面线到相应位置去。

2.5.1 将每个断面的设计中桩高程填入 K 列 

方法：复制 J 列桩号，通过《测量内业小宝》或者内置公式 GetH()或者其他 <竖曲线计算软件> 算出设计中桩高程填入 K 列

2.5.2 复制 N 列数据，在 Cad 图里面绘制断面设计中点。

（在 Cad 中新建临时图层）复制 N 列数据，用 PL 命令（右键粘贴数据）在 cad 上面展出每个断面的设计中桩位置。结果如下：这条线看起来有点儿乱，但是每个端点都很重要。

以设计中桩断面高程点为基点，带基点复制断面线到相应设计横断面帽子图里面（对 K52 535 进行带帽），这里不展示了。

2.6 认真在 Cad 图中圈出面积

在 cad 图中建立挖方图层和填方图层，或者其他清淤清表图层，分别圈出面积到对应图层。

利用批量横断面赠送的 Cad 插件，mj 命令，将挖方面积和填方面积分别标注在 CAD 对应图层中。

2.7 制作土石方量计算表

 点击绘制方量表，设置好方量表计算内容和断面数量，制作出方量表。该软件可以智能获取测量的断面数量并填入到方量计算表中。

利用批量横断面赠送的 Cad 插件，提取数字命令，将挖方面积和填方面积提取到方量表中。

三、如何建立断面位置字典文件 

通过以上介绍，大家都可以看到，有了这么一个断面位置位置字典文件，是何等的重要，坐标文件格式【桩号，中桩图面 x 坐标，中桩图面 y 坐标，中桩设计高程】，下面我们讲讲他是如何建立的吧。

3.1【建议步骤，如果在以后的使用过程中，保证你的断面不会挪动可省去】 

打开电子版横断面图，定义一个相对坐标原点在 cad 命里栏里面输入 _UCS ,指定刚刚我们画的矩形左下角，把它定义为坐标原点。

提示：这一步的作用就是让我们的这些断面位置相对于这个坐标原点不变，这样的坐标文件才有意义。这样如果后期需要挪动断面至少容易些，不过一般我们不挪动断面。

3.2 画线并提取断面设计中桩图面坐标 

为了实现这个目标，我们这里用多段线将每个断面的设计中桩位置链接起来。通过 cad 中 list 命令获取该多线段每个端点坐标即为断面坐标,

将每个断面设计中桩位置用多段线连接好之后，cad 中 list 命令获取该多线段每个端点坐标即为断面坐标。

复制刚刚 list 命令获得的坐标到 Excel 里面 H 列，在 B 列和 C 列使用 Getpoint(H1，“X”) 和Getpoint(H1，“Y”) 函数取得 x 和 y 坐标。如果 Getpoint()不会使用和不能用，请看 函数的安装与使用。

3.3 输入字典中的断面桩号到字典文件中 

对着刚才的电子横断面图把每个断面的桩号输入 A 列, 特别注意每个断面桩号和刚刚提取的断面图面坐标对应并吻合

3.4 输入设计中桩高程到断面字典文件中 

输入每个断面的设计高程输入到 D 列（即为刚才 CAD 多线段链接的端点位置处的设计高程）输入方法介绍 3 种：

1. 本软件内置有 GetH() 竖曲线计算函数。如果 GetH 函数不会用，请看 函数的安装与使用。

2. 通过其他软件算出设计中桩高程输入

3. 跟着电子横断面图一一对应输入。

3.5 保存断面位置字典文件 

完成断面位置字典文件的制作，将断面位置字典文件保存起来。请注意以后每个断面的位置就不能动了，如果断面位置挪动画出来的断面线将和你挪动后的断面图不吻合导致面积和方量错误。如果挪动了断面，请及时更新断面位置字典文件，使字典和断面图位置吻合。

四、自定义函数的安装与使用 

4.1 自定义函数的安装 文件---选项---加载项---Excel 加载项---转到---自动化---（批量横断面.ClsFuntion）--确定

4.2 自定义函数的使用 

自定义函数有哪些：

1、GetPoint(srctext,cs)，功能是获取 x，y，z 坐标

srctext，就指向 A1 单元格就可以了

cs，指定获得哪一个坐标

 有（ “x” “y” “z” "x,y" "y,x" ）5 个选项

 或者也可以使数字前面的任意字符

提示：A1 单元格的内容一般是在 CAD 中用 list 命令点选多线段获得

2、GetH(zh,adress) ，功能计算设计中桩高程(不支持断链)

 返回值为设计中桩高程，返回-1 表示各种原因导致计算错误。

Zh，待求计算桩号

 Adress，竖曲线参数的位置，可以为几下几种情况。 

1. 竖曲线参数文件绝对路径，支持测量内业小宝竖曲线文件：

比如 Geth(2000,“C:\Users\Goog\Desktop\XX 项目纵断面.ZM”)

表示采用 C:\Users\Goog\Desktop\XX 项目纵断面.ZM 路径的竖曲线参数，计算桩号为 K2 000处的设计中桩高程。

2. 竖曲线参数文件相对路径，支持测量内业小宝竖曲线文件：

比如 Geth(2000,“XX 项目纵断面.ZM”) 或者 Geth(2000,“XX 项目纵断面”)

表示采用在《批量横断面》软件安装目录，同时与 Roadhdm.dll 文件在同一个目录下的 XX 项目纵断面.ZM 竖曲线参数，计算桩号为 K2 000 处的设计中桩高程。

 3.Excel 工作表内的单元格地址，最好是加上绝对地址符号$的单元格地址。

 比如 =GetH(2000,$D$1:$F$16) 或者 =GetH(2000,D1:F16)

表示采用在单元格区域为$D$1:$F$16 的竖曲线参数，计算桩号为 K2 000 处的设计中桩高程。

注意：单元格列数只能为 3 列，行数必须不少于 3 行，格式为：

3、Rand0（min，max，[digit]），功能是获得带小数的随机整数

 Min，随机数的小边界（正负均可）

 Max，随机数的大边界（正负均可）

 Digit,随机数的小数位数（如果不填，默认值 0）

4．FWJ(X1, Y1, X2, Y2,[Mode])，功能是计算 2 点直线的方位角

X1，第一点的 X 坐标

Y1，第一点的 Y 坐标

X2，第二点的 X 坐标

Y2，第二点的 Y 坐标

Mode，可选参数（如果不填，默认值 0） 

0- 表示直接计算，需要手动设置单元格格式，优点是结果可以参与角度四则运算

1- 表示显示为 DD°MM′SS″的格式，结果不能参与角度四则运算

2- 表示显示为 DD 度 MM 分 SS 秒的格式，结果不能参与角度四则运算

3- 表示显示为 DD.MMSSSS 的格式，结果不能参与角度四则运算

 提示：如果 mode=0 还需要显示为度分秒，设置单元格式为（ [h]"°"mm"′"ss"″" ）

 步骤：右键单元格--设置单元格格式—

5．JL(X1, Y1, X2, Y2)，功能是计算 2 点直线的长度（2 点间距离）

X1，第一点的 X 坐标

 Y1，第一点的 Y 坐标

 X2，第二点的 X 坐标

 Y2，第二点的 Y 坐标

6. ViewF(rng) ，功能获得其他单元格的公式

Rng，excel 任意单元格

7. Text2(rng) ，功能获得其他单元格的带格式字符

Rng，excel 任意单元格

8.HHR(L,A,R) ，功能是计算完整和不完整缓和曲线的另一端半径。

L， 缓和曲线长度

A，缓和曲线参数

R，缓和曲线一端的半径

 9.VlookZhD(Zh,D,ScrRange,Column,ZhDig,DDig)，功能是在数据表某区域中进行两个值的匹配查找，返回其他列的数据，数字类型。

Zh , 在要查找的区域第一列要查找的第一个值，数字类型。比如桩号

D， 在要查找的区域第二列要查找的第二个值，数字类型。比如偏距

srcRange,要查找的区域

Columu, 需要返回数据在查找区域的第几列数

ZhDig,第一个值允许偏差精度，数字类型。比如允许桩号偏差 1 米

DDig,第二个值允许偏差精度，数字类型。比如允许偏距偏差 1 米、