ETABS API实战:导出框架元素数据到Excel
在结构工程师的日常工作中,经常需要从ETABS模型中提取框架元素信息进行后续分析。手动复制粘贴不仅耗时,还容易出错。今天我们来用简单的VBA代码实现自动化导出。
🎯 我们要实现什么?
一键点击,就能将ETABS中所有框架元素的基本信息自动导出到Excel表格中。包括:
- 框架元素名称
- 起点节点
- 终点节点
这对于检查模型连接性、生成构件清单、或进行进一步的数据分析都非常有用。
📋 完整代码
Sub Simple_Frame_Export()'简化版框架信息导出 - 用于测试Dim myETABSObject As ETABSv1.cOAPIDim mySapModel As ETABSv1.cSapModelDim ret As LongOn Error GoTo ErrHandler'连接到ETABSSet myETABSObject = GetObject(, "CSI.ETABS.API.ETABSObject")Set mySapModel = myETABSObject.SapModel'获取框架数量Dim NumberFrames As LongDim FrameNames() As Stringret = mySapModel.FrameObj.GetNameList(NumberFrames, FrameNames)MsgBox "找到 " & NumberFrames & " 个框架元素"'简单导出到ExcelWorksheets(1).Cells(1, 1).Value = "框架名称"Worksheets(1).Cells(1, 2).Value = "起点"Worksheets(1).Cells(1, 3).Value = "终点"Dim i As LongFor i = 0 To NumberFr