Get Render References (VBA)

This example shows how to get the render stock (SOLIDWORKS-supplied) references for a model.

'-------------------------------------------------
' Preconditions:
' 1. Verify that the specified part to open and
'    kitchen background scene files exist.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. Inserts the kitchen background scene in the part.
' 2. Gets the names of the render references.
' 3. Examine the Immediate window.
'
' NOTE: Because the part is used elsewhere, do
' not save changes.
'--------------------------------------------------
Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim modelName As String
Dim renderReferences As Variant
Dim status As Boolean
Dim errors As Long, warnings As Long
Dim i As Long

Sub main()

Set swApp = Application.SldWorks
modelName = "C:\Users\Public\Documents\SOLIDWORKS\SOLIDWORKS 2018\samples\tutorial\api\toaster.sldprt"
Set swModel = swApp.OpenDoc6(modelName, swDocPART, swOpenDocOptions_Silent, "", errors, warnings)
Set swModelDocExt = swModel.Extension

' Insert kitchen background scene
' and rebuild the model to see it
status = swModelDocExt.InsertScene("C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\data\graphics\scenes\03 presentation scenes\00 kitchen_background.p2s")
status = swModel.ForceRebuild3(True)

' Get the render stock references for the
' kitchen background scene and print
' them to the Immediate window
renderReferences = swModelDocExt.GetRenderStockReferences
For i = 0 To UBound(renderReferences)
    Debug.Print "Render reference: " & renderReferences(i)
Next i

End Sub