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