2011 年 4 月 5 日 アド 設 計 Revit と addcad の 連 携 I. Revit と 意 匠 図 A. Revit から 作 成 した 平 面 図 を addcad で 修 正 Revit から 書 き 出 した 平 面 図 (DWG ファイル)の 柱 壁 開 口 を addcad で 修 正 す る 例 をとりあげます まず addcad で Revit から 書 き 出 された 平 面 図 で 何 ができるか を 紹 介 します 1) addcad で 開 口 ( 建 具 )を 削 除 Revit から 書 き 出 した 平 面 図 の 建 具 はブロックとして 配 置 されます 建 具 を 削 除 した 後 addcad の[ 建 築 ]タブ [ 壁 ]パネル [ 壁 編 集 ]ドロップダウン [ 壁 を 結 合 ] ボタンをクリックすれば 切 断 された 壁 は 元 どおり 結 合 されます 建 具 が 線 分 に 分 解 されている 場 合 は addcad の[ 建 築 ]タブ [ 開 口 ]パネル [ 開 口 削 除 ]ボタンを 使 えば 建 具 の 削 除 と 壁 の 結 合 が 同 時 に 実 行 されます 1
2) addcad で 開 口 ( 建 具 )を 追 加 新 しい 建 具 の 配 置 は addcad の[ 建 築 ]タブ [ 開 口 ]パネル [ 開 口 平 面 ( 建 具 )] ボタンを 使 って 1 開 口 中 心 線 分 2 壁 の 外 側 となる 線 分 3 壁 の 内 側 となる 線 分 の 順 に 指 定 します 建 具 の 幅 に 応 じて 壁 が 切 り 取 られ 建 具 が 配 置 されます 3) addcad で 壁 を 追 加 Revit から 書 き 出 した 柱 や 壁 は 線 分 に 変 換 されています 図 形 は 書 き 出 しレイヤファ イル exportlayers-dwg-addcad.txt (HP からダウンロードできます)に 登 録 された 画 層 におかれています addcad の[ 建 築 ]タブ [ 壁 ]パネル [ 壁 作 成 ]ボタンを 使 うと 壁 は 自 動 的 に 包 絡 処 理 されます 2
平 面 図 の 柱 中 心 1 を 壁 の 始 点 柱 中 心 2 を 壁 の 終 点 の 順 に 指 定 すると 作 成 された 壁 と 交 差 する 柱 画 層 の 線 分 が 包 絡 処 理 されます また 壁 どおしを 十 字 に 交 差 させると 包 絡 されます 3
B. Revit から DWG ファイルを 書 き 出 す A. Revit から 書 き 出 した 平 面 図 を addcad で 修 正 で 紹 介 した DWG を Revit で 作 成 す る 方 法 を 解 説 し ま す こ こ で 使 用 す る Revit の 書 き 出 し レ イ ヤ ファイル exportlayers-dwg-addcad.txt と addcad の 画 層 設 定 ファイル Layers_addCad.xml は HP からダウンロードできます 1) Revit の 意 匠 モデルから DWG ファイルへの 書 出 し Revit で DWG ファイルに 書 き 出 すとき CAD 形 式 書 き 出 し ダイアログボックス でカテゴリごとに 画 層 を 指 定 することができます この 設 定 は 書 き 出 しレイヤファイ ル(*.txt) として 保 存 することができます ここでは Revit User Group の BIM モデリングガイド 意 匠 の 下 図 の 平 面 図 を 例 として 使 用 します [アプリケーションボタン] [ 書 き 出 し] [CAD 形 式 ] [DWG ファイル]を 選 びます 4
CAD 形 式 書 き 出 し ダイアログボックスの[DWG プロパティ]タブを 開 き レイヤ とプロパティで すべてのプロパティ BYLAYER 優 先 設 定 なし を 選 び 線 種 尺 度 で モデル 空 間 (PSLTSCALE=0) を 選 び レイヤとプロパティ 欄 右 側 の[ ]ボタン をクリックします レイヤを 書 き 出 す ダイアログボックスの[ロード]ボタンをクリックします 書 き 出 しレイヤファイルをロード ダイアログボックスであらかじめ 作 成 した exportlayers-dwg-addcad.txt (HP からダウンロードできます)を 選 び [ 開 く] ボタンをクリックします 読 み 込 まれたレイヤ 名 を 確 認 して [OK]ボタンで CAD 形 式 書 き 出 し ダイアログ ボックスに 戻 ります [ 次 へ]ボタンをクリックします 5
シートの 外 部 参 照 ビュー のチェックをはずして [OK]ボタンをクリックします 2) addcad で 画 層 設 定 と 読 み 込 み addcad を 起 動 して Revit の 意 匠 モデルから 画 層 を 指 定 して 書 き 出 した 平 面 図 を 開 き [ 管 理 ]タブ [ 設 定 ]パネル [ 画 層 設 定 ]ボタンをクリックします 設 定 ファイル 欄 右 側 の[ ]ボタンで Revit 書 き 出 しレイヤファイル exportlayers-dwg-addcad.txt と 対 の 設 定 ファイル Layers_addCad.xml (HP からダウンロードできます)を 開 き [OK]ボタンで 画 層 設 定 を 読 み 込 みます この 操 作 で Revit から 書 き 出 した 図 面 上 にある 壁 画 層 の 線 分 を 壁 として 柱 画 層 の 線 分 を 柱 として 認 識 されることになります 6
II. Revit と 構 造 図 A. Revit モデルから 梁 断 面 リストを 作 成 Revit の 構 造 モデルから addcad で 梁 の 断 面 リストを 作 成 する 例 をとりあげます addcad では 下 左 図 のように 整 った 書 式 の 梁 断 面 リストをワンクリックで 作 成 するこ とができます Revit では 梁 は 構 造 フレーム ファミリとして 扱 われます 断 面 のリ ストも Revit だけで 作 成 することができますが その 書 式 は 下 右 図 に 示 したように 確 認 申 請 図 などで 使 うには 不 十 分 です addcad が 作 成 する 断 面 リスト Revit が 作 成 する 断 面 リスト 1) Revit の 構 造 モデル Revit では 鉄 筋 と 梁 はそれぞれが 独 立 したエレメントになります そのため 同 じ 3G1 という 符 号 の 梁 でも 異 なる 配 筋 が 可 能 という 妙 なことがおきてしまいます そのようなことを 防 ぐために 梁 や 柱 のプロパティとして 配 筋 データを 持 たせるという こともよくおこなわれます プロパティとして 設 定 された 配 筋 データは Revit の 図 とし て 表 示 されることはありませんが 1 つの 符 号 には 特 定 の 配 筋 という 条 件 を 実 現 するこ とができます 7
SS3 からインポートされたプロパティ Revit サンプルデータのプロパティ ここでは SS3 から Revit Structure Extension の SS3 インポート 機 能 を 使 って 作 成 し た 下 図 のような 構 造 モデルを 例 として 使 用 します 8
2) 構 造 フレームの 集 計 表 を 作 成 まず この 構 造 モデルの 梁 断 面 の 集 計 表 を Revit で 作 成 します [ 表 示 ]タブの 作 成 パネル 集 計 表 / 数 量 をクリックします 新 しい 集 計 表 ダイアログボックスで 構 造 フレーム を 選 び [OK]ボタンをクリ ックします 各 ダイアログボックスでプロパティを 図 のように 設 定 します 9
これで 下 図 のような 集 計 表 ができあがります Revit での 操 作 でモデルが 変 更 になれ ばただちに 集 計 表 も 変 わるダイナミックな 集 計 表 です 10
3) 集 計 表 を 書 き 出 し Revit からこの 集 計 表 を 書 きだして Excel シートとしてで 扱 えるようにします Revit のアプリケーションメニューから 書 き 出 し レポート 集 計 を 実 行 します 集 計 表 を 書 き 出 し ダイアログボックスでは 図 のような 設 定 にしておきます この 操 作 で 構 造 フレーム 集 計.txt ファイルができました このファイルは Excel で 開 くことのできるタブ 区 切 りのテキストファイルです 11
4) Excel で 梁 リストを 変 更 構 造 フレーム 集 計.txt を Excel で 開 きます addcad が 使 う Excel ファイル 梁 リ スト ss.xlsx も 開 いておきます この 二 つのファイルを 並 べて 表 示 したのが 下 の 図 です 右 の Revit が 書 きだしたデータを 左 の addcad 用 のシートに 移 す 必 要 があります アド 設 計 のホームページに 次 のような Excel VBA プログラムがありますので これを 使 えば 一 気 に 書 式 を 整 えることができます この Excel VBA プログラムを 次 に 示 します (HP からダウンロードできます) Sub SetBeamList() Set ListSheet = Workbooks(" 梁 リスト ss.xlsx").worksheets(" 梁 リスト") cfloor = 4 crow = 21 ccolumn = 2 Dim CellData(12) As String For Row = 2 To 44 Floor = ThisWorkbook.ActiveSheet.Cells(Row, 1).Value If cfloor <> Floor Then crow = crow + 20 ccolumn = 2 End If For Column = 1 To 13 CellData(Column - 1) = ThisWorkbook.ActiveSheet.Cells(Row, Column).Value 12
Next Column ListSheet.Cells(cRow, ccolumn).value = CellData(0) ' レベル ListSheet.Cells(cRow + 1, ccolumn).value = CellData(1) ' 梁 符 号 ListSheet.Cells(cRow + 2, ccolumn).value = " 左 端 " ListSheet.Cells(cRow + 2, ccolumn + 1).Value = " 中 央 " ListSheet.Cells(cRow + 2, ccolumn + 2).Value = " 右 端 " ListSheet.Cells(cRow + 3, ccolumn).value = CellData(3) ' W ListSheet.Cells(cRow + 3, ccolumn + 1).Value = CellData(3) ' W ListSheet.Cells(cRow + 3, ccolumn + 2).Value = CellData(3) ' W ListSheet.Cells(cRow + 4, ccolumn).value = CellData(4) ' H ListSheet.Cells(cRow + 4, ccolumn + 1).Value = CellData(4) ' H ListSheet.Cells(cRow + 4, ccolumn + 2).Value = CellData(4) ' H ListSheet.Cells(cRow + 5, ccolumn).value = 0 ListSheet.Cells(cRow + 5, ccolumn + 1).Value = 0 ListSheet.Cells(cRow + 5, ccolumn + 2).Value = 0 ListSheet.Cells(cRow + 6, ccolumn).value = 0 ListSheet.Cells(cRow + 6, ccolumn + 1).Value = 0 ListSheet.Cells(cRow + 6, ccolumn + 2).Value = 0 ListSheet.Cells(cRow + 8, ccolumn).value = Left(CellData(5), 1) ' 主 筋 左 上 ListSheet.Cells(cRow + 7, ccolumn).value = Mid(CellData(5), 2) ' 主 筋 左 上 ListSheet.Cells(cRow + 14, ccolumn).value = Left(CellData(6), 1) ' 主 筋 左 下 ListSheet.Cells(cRow + 13, ccolumn).value = Mid(CellData(6), 2) ' 主 筋 左 下 ListSheet.Cells(cRow + 8, ccolumn + 1).Value = Left(CellData(7), 1) ' 主 筋 中 央 上 ListSheet.Cells(cRow + 7, ccolumn + 1).Value = Mid(CellData(7), 2) ' 主 筋 中 央 上 ListSheet.Cells(cRow + 14, ccolumn + 1).Value = Left(CellData(8), 1) ' 主 筋 中 央 下 ListSheet.Cells(cRow + 13, ccolumn + 1).Value = Mid(CellData(8), 2) ' 主 筋 中 央 下 ListSheet.Cells(cRow + 8, ccolumn + 2).Value = Left(CellData(9), 1) ' 主 筋 右 上 ListSheet.Cells(cRow + 7, ccolumn + 2).Value = Mid(CellData(9), 2) ' 主 筋 右 上 ListSheet.Cells(cRow + 14, ccolumn + 2).Value = Left(CellData(10), 1) ' 主 筋 右 下 ListSheet.Cells(cRow + 13, ccolumn + 2).Value = Mid(CellData(10), 2) ' 主 筋 右 下 ListSheet.Cells(cRow + 16, ccolumn).value = Left(CellData(11), 1) ' ST 本 数 ListSheet.Cells(cRow + 16, ccolumn + 1).Value = Left(CellData(11), 1) ' ST 本 数 ListSheet.Cells(cRow + 16, ccolumn + 2).Value = Left(CellData(11), 1) ' ST 本 数 ListSheet.Cells(cRow + 15, ccolumn).value = Mid(CellData(11), 2) ' ST 本 数 ListSheet.Cells(cRow + 15, ccolumn + 1).Value = Mid(CellData(11), 2) ' ST 本 数 ListSheet.Cells(cRow + 15, ccolumn + 2).Value = Mid(CellData(11), 2) ' ST 本 数 ListSheet.Cells(cRow + 17, ccolumn).value = CellData(12) ' ST ピッチ ListSheet.Cells(cRow + 17, ccolumn + 1).Value = CellData(12) ' ST ピッチ ListSheet.Cells(cRow + 17, ccolumn + 2).Value = CellData(12) ' ST ピッチ ccolumn = ccolumn + 3 cfloor = Floor Next Row End Sub 13
腹 筋 の 設 定 や 幅 止 め 筋 など Revit で 持 っていなかった 情 報 をここで 追 加 することもで きます また 全 断 面 が 同 じ 部 材 もここで 調 整 することが 可 能 です 作 成 した Excel シートは 適 当 な 名 前 を 付 けて 保 存 しておきます 5) addcad で 梁 リスト 作 成 addcad では 梁 断 面 リスト 作 成 のコマンドを 使 います [ 構 造 ]タブの リスト パネル 梁 断 面 リスト 作 成 をクリックします リスト 作 成 ダイアログボックスでは 次 の 手 順 で 作 業 します 1 2 1 の ファイルを 開 く ボタンをクリックし リストファイルを 選 択 ダイアログ ボックスを 表 示 します リストファイルを 選 択 ダイアログボックスではファイルの 種 類 を Excel ファイル に 切 り 替 えて 目 的 のファイルを 選 択 します 14
2 の まとめて 作 図 をマークして [OK]ボタンで addcad の 作 図 ウィンドウに 梁 断 面 リストが 一 気 に 下 図 のように 作 図 されます 現 在 の 図 面 の 尺 度 が リストファイ ルを 選 択 ダイアログボックスで 指 定 した 尺 度 と 異 なる 場 合 は 警 告 が 表 示 されます 15
なにか 問 題 があれば Excel のシートを 修 正 し もう 一 度 addcad の 梁 断 面 リスト 作 成 コマンドを 実 行 します 部 分 拡 大 した 図 を 下 に 示 します この 梁 断 面 リストは 各 符 号 ごとにブロックになっており 文 字 の 情 報 は 属 性 値 として 表 示 されています 16