Hi,

I've tried to create a simple render macro but It has some bug, please help me.

here is the code what I've recorded with SWX:

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Dim pwPhotoWorks As PhotoWorks.PhotoWorks
Set pwPhotoWorks = swApp.GetAddInObject("PhotoWorks.PhotoWorks")
Dim pwOpt As PhotoWorks.PwOptions
Set pwOpt = pwPhotoWorks.PwOptions

pwPhotoWorks.RenderFilename = "D:\Norbert\picture_001.tif"
pwPhotoWorks.RenderFileHeight = 960
pwPhotoWorks.RenderFileWidth = 1280
pwPhotoWorks.RenderFileFormat = PW_RenderFileFormat.pwFileFormatTIF
pwPhotoWorks.RenderFileUnits = PW_RenderFileUnits.pwPixels
pwPhotoWorks.RenderFileDotsPerUnit = 100
pwPhotoWorks.RenderToFile (True)
End Sub

--------------------------------------------------------------------------------------------------------------------

...and when I try to run it stops with an error: "User-defined type not defined" at this line:

Dim pwPhotoWorks As PhotoWorks.PhotoWorks

What is wrong with the code?