欢迎来到尧图网

客户服务 关于我们

您的位置:首页 > 文旅 > 明星 > 【Post-process】【VBA】ETABS VBA FrameObj.GetNameList and write to EXCEL

【Post-process】【VBA】ETABS VBA FrameObj.GetNameList and write to EXCEL

2025/6/13 14:15:39 来源:https://blog.csdn.net/hmywillstronger/article/details/148521336  浏览:    关键词:【Post-process】【VBA】ETABS VBA FrameObj.GetNameList and write to EXCEL

在这里插入图片描述

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

版权声明:

本网仅为发布的内容提供存储空间,不对发表、转载的内容提供任何形式的保证。凡本网注明“来源:XXX网络”的作品,均转载自其它媒体,著作权归作者所有,商业转载请联系作者获得授权,非商业转载请注明出处。

我们尊重并感谢每一位作者,均已注明文章来源和作者。如因作品内容、版权或其它问题,请及时与我们联系,联系邮箱:809451989@qq.com,投稿邮箱:809451989@qq.com

热搜词