Function InsertScene( _
   ByVal SceneDefinitionFile As String _
) As Boolean

Dim instance As IModelDocExtension
Dim SceneDefinitionFile As String
Dim value As Boolean
 
value = instance.InsertScene(SceneDefinitionFile)

bool InsertScene( 
   string SceneDefinitionFile
)

bool InsertScene( 
&   String^ SceneDefinitionFile
) 

Parameters

SceneDefinitionFile

Fully qualified path and filename for the scene

Return Value

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swModelView As SldWorks.ModelView

Dim swModelDocExt As SldWorks.ModelDocExtension

Dim vRect As Variant

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set swModelView = swModel.ActiveView

Set swModelDocExt = swModel.Extension

' Insert the specified scene

swModelDocExt.InsertScene "C:\Program Files\SolidWorks\SolidWorks\data\graphics\Scenes\03 presentation scenes\11 courtyard_background.p2s"

' Repaint the graphics area

swModelView.GraphicsRedraw (vRect)

End Sub

RealView graphics must be enabled to apply and view scenes.

Call IModelView::GraphicsRedraw or IModelView::IGraphicsRedraw to repaint the graphics area.