CATIA中导出参数值到excel或者txt文本的两种方法

2023年2月7日 浏览：1633 收藏：3

01

方法一




第一种方法：利用设计表导出CATIA文件参数。

我们想要导出如下结构树中的参数:length,width,height,radius,density。


CATIA中导出参数值到excel或者txt文本的两种方法的图1


采用设计表方法，基于现有参数创建设计表。

CATIA中导出参数值到excel或者txt文本的两种方法的图2


选定想要导出的所有参数，必要的时候使用过滤器进行过滤，此处我们只导出用户参数，所以进行了用户参数过滤。

CATIA中导出参数值到excel或者txt文本的两种方法的图3


选择导出txt文本到本地，打开txt文本便可以看见我们导出的参数。

CATIA中导出参数值到excel或者txt文本的两种方法的图4


关于设计表的具体操作方法可以参考我们以前的讲解，如下链接，点击跳转：

如何在CATIA中建立一个标准零件库？----- 200个CATIA小技巧持续更新中~~



CATIA中导出参数值到excel或者txt文本的两种方法的图5

01

方法二




第二种方法就是：采用CATIA 宏代码批量导出参数值到excel文件当中，下面直接给出相关代码，大家可以自行研究，并进行改编。

Sub ExportParametersToCSV()

 Dim sPath As String

 sPath = CATIA.FileSelectionBox("Export Parameters to .csv", "*.csv", CatFileSelectionModeSave)

 Dim oSelection

 Set oSelection = CATIA.ActiveDocument.Selection

 CATIA.Interactive = False

 oSelection.Clear

 oSelection.Search "Knowledgeware.Parameter,all"

 Open sPath For Output As #1

 Dim i As Integer

 For i = 1 To oSelection.Count

 Dim oSelectedElement As SelectedElement

 Set oSelectedElement = oSelection.Item(i)

 Dim sElementName As String

 sElementName = oSelectedElement.Value.Name

 Dim sElementPath As String

 sElementPath = oSelectedElement.Value.Value

 sLine = sElementName + "," + sElementPath

 Print #1, sLine

 Next

 oSelection.Clear

 CATIA.Interactive = True

 Close #1

 MsgBox "Done"

End Sub

vba代码操作视频演示效果

文章来源：CATIA小蚂蚁

默认 最新
当前暂无评论，小编等你评论哦！
点赞 评论 收藏 3
关注