Inventor API调用缩略图Thumbnail

 方法一：iproperty中获取

Dim invPartDoc As Document = _invApp.ActiveDocument
        Dim ifilename As String = invPartDoc.FullDocumentName
        Dim apprentice As New ApprenticeServerComponent
         Dim doc As ApprenticeServerDocument
        doc = apprentice.Open(ifilename)
        Dim summaryInfo As PropertySet
        summaryInfo = doc.PropertySets.Item(
        Dim thumbProp As Inventor.Property
        thumbProp = summaryInfo.Item("Thumbnail")
        Dim thumbnail As stdole.IPictureDisp
        thumbnail = thumbProp.Value
        Dim img As Image = VB6.IPictureDispToImage(thumbnail)
        PictureBox1.Image = img

方法二：文档成员中获取

  Dim invPartDoc As Document = _invApp.ActiveDocument
        Dim ifilename As String = invPartDoc.FullDocumentName
        Dim apprentice As New ApprenticeServerComponent
        Dim doc As ApprenticeServerDocument
        doc = apprentice.Open(ifilename)
        Dim thumbnail As stdole.IPictureDisp
        thumbnail = doc.Thumbnail
        Dim img As Image = VB6.IPictureDispToImage(thumbnail)
        PictureBox1.Image = img

这两货都能实现对缩略图的调用。可能在某些环境下会有限制，暂未发现其他限制条件。不过，都得使用ApprenticeServer才能获取。