Community
Solved! Go to Solution.
Solved by Vladimir.Ananyev. Go to Solution.
Dear maxstels,
In your particular case images are used by DecalFeature.
So these images could be easily get as iPictureDisp objects and saved into file on disk.
Here is the VBA sample code:
Sub Test_DECAL() Dim oDoc As PartDocument Set oDoc = ThisApplication.ActiveDocument Dim oDef As PartComponentDefinition Set oDef = oDoc.ComponentDefinition Dim oDecal As DecalFeature Set oDecal = oDef.features.DecalFeatures.Item(1) Dim oSketchImage As SketchImage Set oSketchImage = oDecal.Image Dim oImage As IPictureDisp Set oImage = oSketchImage.Image Dim Filename As String Filename = "c:\temp\AAA.bmp" Call SavePicture(oImage, Filename) Beep End Sub
You may find useful the following post as well:
Cheers,