使用SOLIDWORKS API将装配体或零件导出为IFC 2x3或4
本示例演示了如何使用SOLIDWORKS API将活动装配体或零件文档导出为IFC格式。
{ width=450 }
目前,SOLIDWORKS支持IFC格式的2个模式:
- IFC 2x3
- IFC 4
在文本编辑器中打开输出的IFC文件时,可以验证模式。
{ width=450 }
此VBA宏演示了如何将文件导出到两个IFC模式。更改IfcFormat_e枚举的值以更改格式:
ExportIfc swModel, OUT_FILE_PATH, IfcFormat_e.Ifc4 '导出到IFC 4
ExportIfc swModel, OUT_FILE_PATH, IfcFormat_e.Ifc2x3 '导出到IFC 2x3
更改OUT_FILE_PATH常量的值以指定输出文件位置:
Const OUT_FILE_PATH As String = "C:\Output\Building.ifc"
Enum IfcFormat_e
Ifc2x3 = 23
Ifc4 = 4
End Enum
Const OUT_FILE_PATH As String = "C:\Engine.ifc"
Dim swApp As SldWorks.SldWorks
Sub main()
Set swApp = Application.SldWorks
Dim swModel As SldWorks.ModelDoc2
Set swModel = swApp.ActiveDoc
If Not swModel Is Nothing Then
ExportIfc swModel, OUT_FILE_PATH, IfcFormat_e.Ifc4
Else
MsgBox "请打开模型"
End If
End Sub
Sub ExportIfc(model As SldWorks.ModelDoc2, path As String, format As IfcFormat_e)
Dim curIfcFormat As Integer
curIfcFormat = swApp.GetUserPreferenceIntegerValue(swUserPreferenceIntegerValue_e.swSaveIFCFormat)
swApp.SetUserPreferenceIntegerValue swUserPreferenceIntegerValue_e.swSaveIFCFormat, format
Dim errors As Long
Dim warnings As Long
If False = model.Extension.SaveAs(path, swSaveAsVersion_e.swSaveAsCurrentVersion, swSaveAsOptions_e.swSaveAsOptions_Silent, Nothing, errors, warnings) Then
Err.Raise vbError, "", "导出文件失败。错误代码:" & errors
End If
swApp.SetUserPreferenceIntegerValue swUserPreferenceIntegerValue_e.swSaveIFCFormat, curIfcFormat
End Sub