Hallo zusammen,
ich beschäftige mich mal wieder ein wenig mit der API von Solid Edge und zwar möchte ich das Vorschaubild einer SE-Datei als JPG-Datei abspeichern.
Mit einem C#-Programm hatte ich das schon mal mit Hilfe aus dem Forum von Jason Newell hinbekommen, aber ich möchte das nun mit Excel-VBA machen um das extrahierte Bildchen gleich in eine Excel-Tabelle einzufügen.
Irgendwie komme ich dabei aber nicht voran, vielleicht kann mir hier jemand einen Tip geben!?
Hier mal der C#-Code:
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Drawing;
namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
int hImageSE;
Image imagePic;
SeThumbnailLib.SeThumbnailExtractor SEThumb = new SeThumbnailLib.SeThumbnailExtractor();
SEThumb.GetThumbnail("D:\\CAD\\01 - SE\\Asm6.asm", out hImageSE);
IntPtr iPImage = new IntPtr(hImageSE);
imagePic = Image.FromHbitmap(iPImage);
imagePic.Save( "C:\\Test.jpg", System.Drawing.Imaging.ImageFormat.Png);
imagePic = null;
if (SEThumb != null)
{
System.Runtime.InteropServices.Marshal.ReleaseComObject(SEThumb);
SEThumb = null;
}
}
}
}
und mein bisheriger VBA-Code bei dem ich nicht voran komme:
Dim objSEApp As SolidEdgeFramework.Application
Dim SEThumb As SeThumbnailLib.SeThumbnailExtractor
Dim hImageSE As Integer
Dim imagePic As Image
Sub ExtractPreview()
SEThumb.GetThumbnail("D:\CAD\01 - SE\Asm6.asm",hImageSE)
End Sub
Vielen Dank schon mal
Markus
------------------
Und er sagte noch: "noch nicht klicken".....
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP