Exporting Models - Printable Version

Code:
Private Function ExportViewport3D(ByVal fileName As String, ByVal exportFormatId As String, ByVal viewport3D As Viewport3D, ByVal namedObjects As Dictionary(Of String, Object)) As Boolean

        Dim assimpWpfExporter = New AssimpWpfExporter()

        Dim ModelPath As String = Path.GetDirectoryName(_fileName)

        If exportFormatId = "x" Then

            assimpWpfExporter.ExportFullTexturePaths = False

        End If



        assimpWpfExporter.NamedObjects = _namedObjects



        assimpWpfExporter.AddViewport3D(_viewport3D)



        Dim isExported As Boolean



        Try



            Dim MyFileName As String = Path.GetFileNameWithoutExtension(_fileName)

            Dim MyExt As String = MyFileName & "." & _selectedExportFormatId

            SFD_Export.Filter = "3D model file (*.*)|*.*"

            SFD_Export.FileName = MyExt

            If SFD_Export.ShowDialog = DialogResult.OK Then



                isExported = assimpWpfExporter.Export(SFD_Export.FileName, exportFormatId)

                ExportedFileName = SFD_Export.FileName

            Else



            End If

            If Not isExported Then MsgBox("Asset Not exported", vbOKOnly & vbCritical, "Export Error")



        Catch ex As Exception



            MsgBox("Error exporting:" & vbCrLf & ex.Message, vbOKOnly & vbCritical, "Export Error")

            isExported = False

            Me.Close()

        End Try

        If isExported = True Then

            MsgBox("Model exported : " + SFD_Export.FileName, vbOKOnly & vbInformation, "Export Completed")

        End If



        ContentVisual.Children.Remove(ContentWireframeVisual)





        Return isExported





    End Function