Catiascript 或 VBA 宏以不同格式保存 body

Question

我不熟悉使用宏。我尝试制作一个简单的代码，其中一个宏会以不同的格式保存我的部分。 stp、igs 和 3dxml。

Sub CatMain()

pathInputBox = InputBox("Enter path")

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set oFolder = objFSO.GetFolder(pathInputBox)

CATIA.DisplayFileAlerts = False
For Each oFile In oFolder.Files
If Right(oFile.Name, 8) = ".CATPart" Then
Set oProdDoc = CATIA.Documents.Open(oFolder & "\" & oFile.Name)
newname = Replace(oFile.Name, ".CATPart", "")
oProdDoc.ExportData oFolder & "\" & newname, "stp"
oProdDoc.ExportData oFolder & "\" & newname, "igs"
oProdDoc.ExportData oFolder & "\" & newname, "3dxml"

End If
Next
End Sub

并且有效。但是如果我的部分有更多的身体怎么办。假设我也有一个展开的 body 并且我也想单独保存它？如果我想从 catpart 中保存 body，宏代码会是什么样子？有人可以帮我做这个简单的操作吗？

Answer 1

ExportData 仅导出可见的几何体。
最简单的方法是只显示一具尸体并隐藏所有其他尸体。
为此，select 主体并使用 VisProperties (setShow).

显示或隐藏它

Catiascript 或 VBA 宏以不同格式保存 body

Catiascript or VBA macro to save body in different format

vba

catia