Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Solid Edge
  SolidEdge und VBA

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SolidEdge
Autor Thema:  SolidEdge und VBA (3001 mal gelesen)
RayBan
Mitglied
CAD/PLM-Consultant


Sehen Sie sich das Profil von RayBan an!   Senden Sie eine Private Message an RayBan  Schreiben Sie einen Gästebucheintrag für RayBan

Beiträge: 649
Registriert: 04.02.2002

erstellt am: 04. Dez. 2012 13:56    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

RayBan
Mitglied
CAD/PLM-Consultant


Sehen Sie sich das Profil von RayBan an!   Senden Sie eine Private Message an RayBan  Schreiben Sie einen Gästebucheintrag für RayBan

Beiträge: 649
Registriert: 04.02.2002

SE2022 aktuelles MP
Win 10
EdgePLM COMPACT
EdgePLM Smart Variants

erstellt am: 10. Dez. 2012 09:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Wollte der Thread noch mal hochschubsen, da ich selbst noch keine Lösung gefunden habe.

------------------
Und er sagte noch: "noch nicht klicken".....

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

pablo
Mitglied
Techniker


Sehen Sie sich das Profil von pablo an!   Senden Sie eine Private Message an pablo  Schreiben Sie einen Gästebucheintrag für pablo

Beiträge: 453
Registriert: 23.01.2002

Win10
Office 365
SE 2019

erstellt am: 10. Dez. 2012 14:28    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für RayBan 10 Unities + Antwort hilfreich


SE_Preview.txt

 
Markus,

mit dem Code im beiliegenden Modul kannst du ein Bitmap aus einer SE-Datei extrahieren.

pablo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

RayBan
Mitglied
CAD/PLM-Consultant


Sehen Sie sich das Profil von RayBan an!   Senden Sie eine Private Message an RayBan  Schreiben Sie einen Gästebucheintrag für RayBan

Beiträge: 649
Registriert: 04.02.2002

erstellt am: 11. Dez. 2012 08:55    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Pablo,

danke erstmal für das Codesnippet...allerdings komm ich grad beim Aufruf dessen nicht weiter, ich bin auch kein VBA-Profi und erwerbe mein gefährliches Halbwissen über Try&Error.

Könntest Du mir evtl. eine Excel-Datei mit dem VBA-Code und dem beispielhaften Aufruf hier bereit stellen!??

Vielen Dank schon mal im Voraus

Markus

------------------
Und er sagte noch: "noch nicht klicken".....

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

pablo
Mitglied
Techniker


Sehen Sie sich das Profil von pablo an!   Senden Sie eine Private Message an pablo  Schreiben Sie einen Gästebucheintrag für pablo

Beiträge: 453
Registriert: 23.01.2002

Win10
Office 365
SE 2019

erstellt am: 11. Dez. 2012 10:28    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für RayBan 10 Unities + Antwort hilfreich


GetSEThumbnail.txt

 
Markus,

mit der beiliegenden Excel-Datei (.xlsm) werden aus den SE-Dateien eines festgelegten Ordners ($C$1) Bitmaps erzeugt und in einem Ordner ($C$2) gespeichert.

Excel-Objekte scheinen nicht dafür geeignet zu sein, Objekte vom Typ StdPicture direkt einzufügen. Sie als Bitmaps temporär zu speichern und mit LoadPicture einzufügen dürfte das einfachste sein.

pablo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

RayBan
Mitglied
CAD/PLM-Consultant


Sehen Sie sich das Profil von RayBan an!   Senden Sie eine Private Message an RayBan  Schreiben Sie einen Gästebucheintrag für RayBan

Beiträge: 649
Registriert: 04.02.2002

erstellt am: 11. Dez. 2012 11:58    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Super...vielen Dank

U's sind schon übergeben....

------------------
Und er sagte noch: "noch nicht klicken".....

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz