Hide Table of Contents

Render Model (VBA)

This example shows how to use PhotoView 360 to render a model and save the rendered image in BMP and HDR formats. You must have a SOLIDWORKS Premium license to run this example.

'----------------------------------------------------------------------------
' Preconditions:
' 1. Specified part exists.
' 2. c:\temp exists.
' 3. PhotoView 360 add-in is loaded in SOLIDWORKS.
' 4. Open the Immediate window.
' 5. Run macro. Execute time is 1-2 minutes.
'
' Postconditions:
' 1. Changes the specified rendering options.
' 2. Creates c:\temp\Filter_1.bmp and c:\temp\Filter_2.hdr containing rendered
'    images of the part.
'---------------------------------------------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swRayTraceRenderer As SldWorks.RayTraceRenderer
Dim swRayTraceRenderOptions As SldWorks.RayTraceRendererOptions
Dim errors As Long
Dim warnings As Long
Dim fileName As String
Dim status As Boolean


Sub main()


    Set swApp = Application.SldWorks
    fileName = "c:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\samples\tutorial\routing-pipes\fittings\filter.sldprt"
    Set swModel = swApp.OpenDoc6(fileName, swDocPART, swOpenDocOptions_Silent, "", errors, warnings)
   

    ' Access PhotoView 360
    Set swRayTraceRenderer = swApp.GetRayTraceRenderer(swPhotoView)
   

    ' Get and set rendering options
    Set swRayTraceRenderOptions = swRayTraceRenderer.RayTraceRendererOptions
   

    ' Get current rendering values
    Debug.Print "Current rendering values"
    Debug.Print "  Image height = " & swRayTraceRenderOptions.ImageHeight
    Debug.Print "  Image width = " & swRayTraceRenderOptions.ImageWidth
    Debug.Print "  Image format = " & swRayTraceRenderOptions.ImageFormat
    Debug.Print "  Preview render quality = " & swRayTraceRenderOptions.PreviewRenderQuality
    Debug.Print "  Final render quality = " & swRayTraceRenderOptions.FinalRenderQuality
    Debug.Print "  Bloom enabled? " & swRayTraceRenderOptions.BloomEnabled
    Debug.Print "  Bloom threshold = " & swRayTraceRenderOptions.BloomThreshold
    Debug.Print "  Bloom radius = " & swRayTraceRenderOptions.BloomRadius
    Debug.Print "  Contour enabled? " & swRayTraceRenderOptions.ContourEnabled
    Debug.Print "  Shaded contour? " & swRayTraceRenderOptions.ShadedContour
    Debug.Print "  Contour line thickness = " & swRayTraceRenderOptions.ContourLineThickness
    Debug.Print "  Contour line color = " & swRayTraceRenderOptions.ContourLineColor
    Debug.Print "  Use SOLIDWORKS view aspect ratio? " & swRayTraceRenderOptions.UseSolidWorksViewAspectRatio
    Debug.Print " "
   

    ' Change rendering values
    Debug.Print "New rendering values"
    swRayTraceRenderOptions.ImageHeight = 567
    Debug.Print "  Image height = " & swRayTraceRenderOptions.ImageHeight
    swRayTraceRenderOptions.ImageWidth = 678
    Debug.Print "  Image width = " & swRayTraceRenderOptions.ImageWidth
    swRayTraceRenderOptions.ImageFormat = swImageFormat_HDR
    Debug.Print "  Image format = " & swRayTraceRenderOptions.ImageFormat
    swRayTraceRenderOptions.PreviewRenderQuality = swRenderQuality_Better
    Debug.Print "  Preview render quality = " & swRayTraceRenderOptions.PreviewRenderQuality
    swRayTraceRenderOptions.FinalRenderQuality = swRenderQuality_Best
    Debug.Print "  Final render quality = " & swRayTraceRenderOptions.FinalRenderQuality
    swRayTraceRenderOptions.BloomEnabled = False
    Debug.Print "  Bloom enabled? " & swRayTraceRenderOptions.BloomEnabled
    swRayTraceRenderOptions.BloomThreshold = 70
    Debug.Print "  Bloom threshold = " & swRayTraceRenderOptions.BloomThreshold
    swRayTraceRenderOptions.BloomRadius = 4
    Debug.Print "  Bloom radius = " & swRayTraceRenderOptions.BloomRadius
    swRayTraceRenderOptions.ContourEnabled = True
    Debug.Print "  Contour enabled? " & swRayTraceRenderOptions.ContourEnabled
    swRayTraceRenderOptions.ShadedContour = False
    Debug.Print "  Shaded contour? " & swRayTraceRenderOptions.ShadedContour
    swRayTraceRenderOptions.ContourLineThickness = 3
    Debug.Print "  Contour line thickness = " & swRayTraceRenderOptions.ContourLineThickness
    swRayTraceRenderOptions.ContourLineColor = 255
    Debug.Print "  Contour line color = " & swRayTraceRenderOptions.ContourLineColor
    swRayTraceRenderOptions.UseSolidWorksViewAspectRatio = True
    Debug.Print "  Use SOLIDWORKS view aspect ratio? " & swRayTraceRenderOptions.UseSolidWorksViewAspectRatio
   

    ' Display the preview window
    'status = swRayTraceRenderer.DisplayPreviewWindow
    ' Display final render window
    'status = swRayTraceRenderer.InvokeFinalRender
   

    ' Render in HDR format
    status = swRayTraceRenderer.RenderToFile("c:\temp\Filter_2", 0, 0)
    ' Render in BMP format
    swRayTraceRenderOptions.ImageFormat = swImageFormat_WindowsBmp
    status = swRayTraceRenderer.RenderToFile("c:\temp\Filter_1", 0, 0)
   
    ' Abort final render
    'status = swRayTraceRenderer.AbortFinalRender
    ' Close preview and final render windows
    'status = swRayTraceRenderer.CloseRayTraceRender


End Sub



      
            

            

            

                

                    
  

                    
   

                

                

                    
   

                    

                

            

            
            
            
 

                
                    
                
 	    

	
	


    


        
    
  

    

	
    

        
Provide feedback on this topic

        

            
SOLIDWORKS welcomes your feedback concerning the presentation, accuracy, and thoroughness of the documentation. Use the form below to send your comments and suggestions about this topic directly to our documentation team. The documentation team cannot answer technical support questions. Click here for information about technical support.

            
* Required

            

                

                     
                

                

                    *Email:
                     
                    
                

                

                    Subject:
                     
                    Feedback on Help Topics
                

                

                    Page:
                     
                    Render Model (VBA)
                

                

                    *Comment:
                     
                    
                

                

                    *
                     
                    I acknowledge I have read and I hereby accept the privacy policy under which my Personal Data will be used by Dassault Systèmes
                


            

            
        

        
        
    

        
    

        
Print Topic

        

            
Select the scope of content to print:

            

		

			
		

			
		

			
		

			
		

	

        

        
    
  
        
    
                
    

        x
        

        
We have detected you are using a browser version older than Internet Explorer 7.  For optimized display, we suggest upgrading your browser to Internet Explorer 7 or newer.

         Never show this message again

    


    

        x
        

        
Web Help Content Version: API Help (English only) 2015 SP05



To disable Web help from within SOLIDWORKS and use local help instead, click Help > Use SOLIDWORKS Web Help.



To report problems encountered with the Web help interface and search, contact your local support representative. To provide feedback on individual help topics, use the “Feedback on this topic” link on the individual topic page.

    

    






        

        
        
        
0.20.21