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