'---------------------------------------------------------

' VBScript example : Importing and exporting a dotXSI file.

' This example uses the SIImportDotXSIFile and SIExportDotXSIFile

' commands, which do not prompt for the user for validation of 

' import/export parameters like ImportDotXSI and ExportDotXSI.

'---------------------------------------------------------

' Create a model, with some primitives.

dim ExportRoot

SICreateModel , "ExportRoot", , ExportRoot

CreatePrim "Torus", "MeshSurface", "Torus", ExportRoot

CreatePrim "Cube", "NurbsSurface", "Cube", ExportRoot

' Since we are not getting a dialog to modify dotXSIExport options,

' We can specify them here, if we wish. To see what each parameter corresponds to,

' goto the .spdl file, <InstallationPath>\Application\spdl\C3DdotXSIExportOpt.spdl.

SetValue "dotXSIExportOptions.project_name", ActiveProject.Name

SetValue "dotXSIExportOptions.output_file_format", 1 ' 0 = Binary, 1 = Ascii

SetValue "dotXSIExportOptions.output_file_format_version", 360 ' "3.0" = 300, "3.5" = 350, "3.6" = 360

SetValue "dotXSIExportOptions.sceneroot", False

SetValue "dotXSIExportOptions.polymesh", True

SetValue "dotXSIExportOptions.tesselation", False

SetValue "dotXSIExportOptions.nrbssrf", True

SetValue "dotXSIExportOptions.nrbscrv", True

SetValue "dotXSIExportOptions.animall", True

SetValue "dotXSIExportOptions.constraint", True

SetValue "dotXSIExportOptions.custompset", True

' Now specify to export the model to a dotXSI file

dotXSIFile = Application.InstallationPath( siUserPath ) & "\MyModel.xsi"

SIExportDotXSIFile ExportRoot, dotXSIFile

' Now delete the primitives and model, and re-import them.

DeleteObj "ExportRoot.Torus"

DeleteObj "ExportRoot.Cube"

DeleteObj "ExportRoot"

' Again, since we do not get a dialog box to change import options, change them

' now programmatically. To see what each parameter corresponds to, goto the

' .spdl file, <InstallationPath>\Application\spdl\C3DdotXSIImportOpt.spdl.

SetValue "dotXSIImportOptions.anim_import", True

SetValue "dotXSIImportOptions.classical_scaling", True

SetValue "dotXSIImportOptions.mat_import", True

SetValue "dotXSIImportOptions.txt_import", True

' Now import the same model that was just exported.

SIImportDotXSIFile dotXSIFile

'---------------------------------------------------------

' Output from this script (user specifies ok on both dialogs):

'INFO : "4004 - Begin: Export .xsi file"

'INFO : "4005 - End: Export .xsi file"

'INFO : "4002 - Begin: Import .xsi file"

'INFO : "4003 - End: Import .xsi file"

' Object: ExportRoot.Torus

' Object: ExportRoot.Cube

'---------------------------------------------------------