'
' This example demonstrates how to use the XSIFileService object's
' import and export methods
'
dim oFileService, mdl, output, input
NewScene , false
set oFileService = CreateObject( "XSI.XSIFileService" )
set mdl = Application.ActiveSceneRoot
' Export scene root
output = Application.InstallationPath( siUserPath ) & "\MyModel.xsi"
oFileService.ExportDotXSI mdl, output
' Import the exported root into new scene
NewScene , false
set mdl = Application.ActiveSceneRoot
input = Application.InstallationPath( siUserPath ) & "\MyModel.xsi"
oFileService.ImportDotXSI input, mdl
' Expected results:
'INFO : 4004 - Begin: Export .xsi file
'INFO : 4005 - End: Export .xsi file
'INFO : 4002 - Begin: Import .xsi file
'INFO : 4003 - End: Import .xsi file |