Update Graphics Area After Changing Render Options Example (VB.NET)
This example shows how to update the graphics area after changing the ray-trace
render engine's options.
'----------------------------------------------------------------------------
' Preconditions:
' 1. Verify that:
' * specified part exists.
' * PhotoView 360 add-in is loaded in SOLIDWORKS.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. If prompted to use perspective views in rendering, click
' Continue without camera or perspective and OK.
' 2. Changes the specified render options and updates the graphics area.
' 3. Examine the graphics area and Immediate window.
'
' NOTE: Because the part is used elsewhere, do not save changes.
'---------------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System
Imports System.Diagnostics
Partial Class SolidWorksMacro
Public Sub main()
Dim swModel As ModelDoc2
Dim swRayTraceRenderer As RayTraceRenderer
Dim swRayTraceRenderOptions As RayTraceRendererOptions
Dim errors As Integer
Dim warnings As Integer
Dim fileName As String
fileName = "C:\Users\Public\Documents\SOLIDWORKS\SOLIDWORKS 2018\samples\tutorial\routing-pipes\fittings\filter.sldprt"
swModel = swApp.OpenDoc6(fileName, swDocumentTypes_e.swDocPART, swOpenDocOptions_e.swOpenDocOptions_Silent, "", errors, warnings)
' Access PhotoView 360
swRayTraceRenderer = swApp.GetRayTraceRenderer(swRayTraceRenderType_e.swPhotoView)
' Get and set render options
swRayTraceRenderOptions = swRayTraceRenderer.RayTraceRendererOptions
' Get current render values
Debug.Print("Current render values")
Debug.Print(" Contour/cartoon enabled? " & swRayTraceRenderOptions.ContourCartoonRenderingEnabled)
Debug.Print(" Render type (0 = cartoon; 1 = contour) = " & swRayTraceRenderOptions.RenderType)
Debug.Print(" ")
' Change render values and update graphics area
Debug.Print("Changed render values")
swRayTraceRenderOptions.ContourCartoonRenderingEnabled = True
Debug.Print(" Contour/cartoon enabled? " & swRayTraceRenderOptions.ContourCartoonRenderingEnabled)
swRayTraceRenderOptions.RenderType = swRayTraceRenderingType_e.swRayTraceCartoon
Debug.Print(" Render type (0 = cartoon; 1 = contour) = " & swRayTraceRenderOptions.RenderType)
swRayTraceRenderOptions.HasCartoonEdges = True
Debug.Print(" Has cartoon edges? " & swRayTraceRenderOptions.HasCartoonEdges)
swRayTraceRenderOptions.UpdateGraphics()
End Sub
''' <summary>
''' The SldWorks swApp variable is pre-assigned for you.
''' </summary>
Public swApp As SldWorks
End Class