Setting thumbnail image via ilogic

[ust25238]

I am trying to write some iLogic that process' a library directory and sets the thumbnail to a custom image. I have searched the web and have only found VBA (32 bit) answers. When I tried to use the converted  VBA code from https://modthemachine.typepad.com/my_weblog/2010/06/accessing-thumbnail-images.html.

Sub WriteThumbnail(ByVal FileName As String)
	' Get the Summary Information property set.
    ' Get the thumbnail property.  When using VBA, this will
    'dsPSet is = "Inventor Summary Information"
    Dim thumbProp As Inventor.Property
    thumbProp = dsPSet.Item("Thumbnail")

    ' Get the thumbnail image.
    Dim thumbnail As stdole.IPictureDisp
    thumbnail = thumbProp.Value

    ' Check that an image was returned.  It's possible for a
    ' file to not have a thumbnail.
	    If Not thumbnail Is Nothing Then
	        ' Write the thumbnail to disk.
	        SavePicture(thumbnail, FileName)
		End If
	End Sub

I get a 'SavePicture' is not declared. It may be inaccessible due to its protection level.". I have stdole referenced and Imported. Any help would be appreciated.

Thanks.

[a.majewski83MYF]

Hi, maybe the link below will solve your problem.

https://modthemachine.typepad.com/my_weblog/2012/05/thumbnail-viewer-component-on-a-64-bit-system.ht...

[ust25238]

I found this code that works well for me

If IO.File.Exists(ThumbNailPath) Then
PartDoc.SetThumbnailSaveOption(ThumbnailSaveOptionEnum.kImportFromFile, ThumbNailPath)
Else
Debug.Print(ThumbNailPath)
End If