【4月17日，成都/长沙】柏慕联创联合一砖一瓦推出BIM系统实战新课程（土建/机电，22天）

获取《每日一技，我的成长轨迹》汇总

· 请访问柏慕联创官方网站： www.lcbim.com ·

BIM百科 | Civil3D导出桥梁数据到dynamo结合revit建模

声明：本文已获原作者授权，版权归原作者所有，转载请注明出处

补一下第五弹，落了比较久。因为这章的内容比较复杂，我直到现在才搞明白。

中心思想和题目说的一样， 首先我们需要从做好的corridor 导出想要的数据。

以桩号P36以后为例。这里的corridor长这样。

准备导出数据。 toolspace-Toolbox-Corridor points report

选择左右边缘点和中心点crown

导出如下，有一万多行数据，感觉有点整多了。。。

发现每一站中心点crown都重复了一行。写个VBA用countif 函数把重复的行删掉。

运行一下，好了。

现在要对数据进行处理。因为revit不喜欢太大的数字，所以需要把坐标处理一下。以第一站的坐标为初始坐标，剩下的坐标都减去初始坐标得到的值作为转化坐标。Easting是X轴，Northing 是Y轴，Elevation 是Z轴。

剩下的用VBA写一下。

搞定。

现在同一个表格里包括了中心线上的点，左右边缘的点，现在把它们分别整理到新的页中。以中心点为例，代码如下。

Sub Macro3()

Dim i As Long, n As Integer

Application.ScreenUpdating = False

n = 2

For i = 2 To Range("A65536").End(xlUp).Row Step 1

If Sheets("transform").Cells(i, 6).Value = "Crown" Then

Sheets("profile").Range(Sheets("profile").Cells(n, 1), Sheets("profile").Cells(n, 5)).Value = Sheets("transform").Range(Sheets("transform").Cells(i, 11), Sheets("transform").Cells(i, 15)).Value

n = n + 1

End If

Next

Application.ScreenUpdating = True

Application.Goto Reference:="Macro3"

End Sub

左右边缘的点也类似。运行好了如下。

其实到这里都不是最要紧的，最要紧的步骤是新建一个名为“PROF”的标签页，然后不光要把中心线的高程信息复制过去，还要算出四个变量用来定位其他的点，分别是左边缘到中心点的水平偏移，左边缘到中心点的高程偏移，右边缘到中心点的水平偏移，右边缘到中心点的高程偏移。以左边缘到中心点的高程偏移为例，代码如下。

运行完了结果这样

现在发现每一站之前间隔太小了，比如前两行，1046.91到1046.97只差0.06，担心给后续软件增添负担，所以现在希望只留下1046.91，剩下小数部分不同的删掉。写个代码。

搞定了。原来有三千多个站，现在只有五百个了。

数据处理到此为止。把excel保存一下。接下来开始用revit 建模。

我先去吃饭，回来接着写。

柏慕联创BIM技术服务

BIM设计 | BIM咨询 | BIM培训 | BIM人才

· 点亮建筑新梦想 ·

▼