BIM百科 | Civil3D導(dǎo)出橋梁數(shù)據(jù)到dynamo結(jié)合revit建模

【4月17日，成都/長(zhǎng)沙】柏慕聯(lián)創(chuàng)聯(lián)合一磚一瓦推出BIM系統(tǒng)實(shí)戰(zhàn)新課程（土建/機(jī)電，22天）

獲取《每日一技，我的成長(zhǎng)軌跡》匯總

· 請(qǐng)?jiān)L問(wèn)柏慕聯(lián)創(chuàng)官方網(wǎng)站： www.pbwns.cn ·

BIM百科 | Civil3D導(dǎo)出橋梁數(shù)據(jù)到dynamo結(jié)合revit建模

聲明：本文已獲原作者授權(quán)，版權(quán)歸原作者所有，轉(zhuǎn)載請(qǐng)注明出處

補(bǔ)一下第五彈，落了比較久。因?yàn)檫@章的內(nèi)容比較復(fù)雜，我直到現(xiàn)在才搞明白。

中心思想和題目說(shuō)的一樣， 首先我們需要從做好的corridor 導(dǎo)出想要的數(shù)據(jù)。

以樁號(hào)P36以后為例。這里的corridor長(zhǎng)這樣。

準(zhǔn)備導(dǎo)出數(shù)據(jù)。 toolspace-Toolbox-Corridor points report

選擇左右邊緣點(diǎn)和中心點(diǎn)crown

導(dǎo)出如下，有一萬(wàn)多行數(shù)據(jù)，感覺(jué)有點(diǎn)整多了。。。

發(fā)現(xiàn)每一站中心點(diǎn)crown都重復(fù)了一行。寫個(gè)VBA用countif 函數(shù)把重復(fù)的行刪掉。

運(yùn)行一下，好了。

現(xiàn)在要對(duì)數(shù)據(jù)進(jìn)行處理。因?yàn)閞evit不喜歡太大的數(shù)字，所以需要把坐標(biāo)處理一下。以第一站的坐標(biāo)為初始坐標(biāo)，剩下的坐標(biāo)都減去初始坐標(biāo)得到的值作為轉(zhuǎn)化坐標(biāo)。Easting是X軸，Northing 是Y軸，Elevation 是Z軸。

剩下的用VBA寫一下。

搞定。

現(xiàn)在同一個(gè)表格里包括了中心線上的點(diǎn)，左右邊緣的點(diǎn)，現(xiàn)在把它們分別整理到新的頁(yè)中。以中心點(diǎn)為例，代碼如下。

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

左右邊緣的點(diǎn)也類似。運(yùn)行好了如下。

其實(shí)到這里都不是最要緊的，最要緊的步驟是新建一個(gè)名為“PROF”的標(biāo)簽頁(yè)，然后不光要把中心線的高程信息復(fù)制過(guò)去，還要算出四個(gè)變量用來(lái)定位其他的點(diǎn)，分別是左邊緣到中心點(diǎn)的水平偏移，左邊緣到中心點(diǎn)的高程偏移，右邊緣到中心點(diǎn)的水平偏移，右邊緣到中心點(diǎn)的高程偏移。以左邊緣到中心點(diǎn)的高程偏移為例，代碼如下。

運(yùn)行完了結(jié)果這樣

現(xiàn)在發(fā)現(xiàn)每一站之前間隔太小了，比如前兩行，1046.91到1046.97只差0.06，擔(dān)心給后續(xù)軟件增添負(fù)擔(dān)，所以現(xiàn)在希望只留下1046.91，剩下小數(shù)部分不同的刪掉。寫個(gè)代碼。

搞定了。原來(lái)有三千多個(gè)站，現(xiàn)在只有五百個(gè)了。

數(shù)據(jù)處理到此為止。把excel保存一下。接下來(lái)開(kāi)始用revit 建模。

我先去吃飯，回來(lái)接著寫。

柏慕聯(lián)創(chuàng)BIM技術(shù)服務(wù)

BIM設(shè)計(jì) | BIM咨詢 | BIM培訓(xùn) | BIM人才

· 點(diǎn)亮建筑新夢(mèng)想 ·

▼