Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Thumbnail in Inventor

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 Autodesk Produkte
Autor Thema:  Thumbnail in Inventor (2809 mal gelesen)
LBN
Mitglied



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

Beiträge: 14
Registriert: 17.05.2004

Inventor VBA-Problem AddOffset-Methode

erstellt am: 24. Apr. 2007 16:59    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 CAD-Gemeinde,
in einem Userform unter Inventor existiert ein Image.
In diesem Image soll die Miniaturansicht (Thumbnail) einer Inventordatei (nicht geöffnet) angezeigt werden.
Habe zwar im Forum eine Menge an Beispielcode dazu gefunden, wenn ich diesen in Visual Basic eingebe, kriege ich aber schon in den ersten Zeilen Fehlermeldungen.
(Z.B. Dim oPD As stdole.IPicture = oDoc.Thumbnail)

Hat jemand vielleicht einen Hinweis oder sogar den erforderlichen Code um das Problem zu lösen? Für Hinweise vielen Dank.

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

PaulSchuepbach
Moderator
Programmierer




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

Beiträge: 1005
Registriert: 01.10.2003

erstellt am: 24. Apr. 2007 18:54    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 LBN 10 Unities + Antwort hilfreich

rtend12
Mitglied
Dipl.-Ing. (FH) Maschinenbau / Konstrukteur


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

Beiträge: 436
Registriert: 21.07.2004

Catia V5 (R16SP5, B18SP5)
VB.Net 2003

erstellt am: 25. Apr. 2007 07:22    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 LBN 10 Unities + Antwort hilfreich

Ich hab das in VBA so gelöst:

Function thumbview(oFile As String)

Dim odoc As Document
If VBA.Right(oFile, 3) <> "idw" Then
    For Each odoc In ThisApplication.Documents
        If odoc.FullFileName = oFile Then
            On Error GoTo nothumb
            Thumb.Picture = odoc.Thumbnail
        End If
    Next
Else
    Thumb.Picture = Nothing
End If
Exit Function

nothumb:
Thumb.Picture = Nothing

End Function

Thumb ist ein image-Steuerelement. Es hat damit noch keine Probleme gegeben.

Gruß
Reinhard

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

Andreas01
Mitglied
Dipl.-Ing.(FH) Konstrukteur


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

Beiträge: 227
Registriert: 05.08.2004

Inventor 2020
i7
32 GB RAM
Quatro FX 4000
WIN10-64bit

erstellt am: 07. Mai. 2007 13: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 Nur für LBN 10 Unities + Antwort hilfreich

Hallo Reinhard,

das funktioniert ja gut, habe aber ein anderes Problem vielleicht kannst du mir dabei helfen.

Und zwar wie bekomme ich das Vorschaubild eines nicht im Inventor geöffneten idw, den Pfad der idw kenne ich jedoch, ich möchte die idw auch vorerst nicht öffnen jedoch nur das Vorschaubild Anzeigen lassen.

Gruß

Andreas

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

daywa1k3r
Moderator
Softwareentwickler




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

Beiträge: 3497
Registriert: 01.08.2002

Alienware m17x, Win7, Inventor2012

erstellt am: 07. Mai. 2007 13:22    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 LBN 10 Unities + Antwort hilfreich

Der Paul hat es doch gelinkt (Apprentice).

------------------
Grüße Igor

FX64 Software Solutions

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

rtend12
Mitglied
Dipl.-Ing. (FH) Maschinenbau / Konstrukteur


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

Beiträge: 436
Registriert: 21.07.2004

Catia V5 (R16SP5, B18SP5)
VB.Net 2003

erstellt am: 07. Mai. 2007 21:37    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 LBN 10 Unities + Antwort hilfreich

mit VBA wird das etwas schwieriger, bzw. gar nicht gehen.
Du kannst den ApprenticeServer nicht mit VBA innerhalb Inventor nutzen.
Man könnte natürlich, wenn man unbedingt in VBA bleiben will/muß, auf Excel ausweichen.
Oder man befolgt:
http://ww3.cad.de/foren/ubb/Forum465/HTML/000062.shtml
Gruß
Reinhard

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

Andreas01
Mitglied
Dipl.-Ing.(FH) Konstrukteur


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

Beiträge: 227
Registriert: 05.08.2004

Inventor 2020
i7
32 GB RAM
Quatro FX 4000
WIN10-64bit

erstellt am: 07. Mai. 2007 22:19    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 LBN 10 Unities + Antwort hilfreich

Hallo Reinhard,

danke für die Aufklärung, schade dass es mit vba nicht zu machen ist.
Mit dem Link kann ich leider nicht viel anfangen, das ist ein wenig zu hoch für mich.

Gruß

Andreas

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

daywa1k3r
Moderator
Softwareentwickler




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

Beiträge: 3497
Registriert: 01.08.2002

Alienware m17x, Win7, Inventor2012

erstellt am: 07. Mai. 2007 23: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 Nur für LBN 10 Unities + Antwort hilfreich

 
Zitat:
Original erstellt von rtend12:
mit VBA wird das etwas schwieriger, bzw. gar nicht gehen.
Du kannst den ApprenticeServer nicht mit VBA innerhalb Inventor nutzen....
Gruß
Reinhard

Ich habe es zwar noch nie benutzt, aber warum sollte das nicht funktionieren?

Extras / Verweise -> Autodesk Inventor's Apprentice Object Library einbinden, und weiter z.B.:

Code:

Sub TestApprentice()
    Dim oApprenticeServerComponent As New ApprenticeServerComponent
    Dim oApprenticeServerDocument As ApprenticeServerDocument
    Set oApprenticeServerDocuemnt = oApprenticeServerComponent.Open("C:\test.ipt")
    'usw...
End Sub

Funktioniert doch. Oder geht dann später was nicht? Bin zu müde weiter zu testen.  


NACHTRAG
Allerdings habe ich jetzt noch einen Blick in den Debugger geworfen, und das Document Object sieht gar nicht gesund aus  Also bei der Instanzierung gibt es keine Fehlermeldung, doch mit dem Objekt ist anscheinend nicht viel anzufangen.

------------------
Grüße Igor

FX64 Software Solutions

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

Andreas01
Mitglied
Dipl.-Ing.(FH) Konstrukteur


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

Beiträge: 227
Registriert: 05.08.2004

Inventor 2020
i7
32 GB RAM
Quatro FX 4000
WIN10-64bit

erstellt am: 08. Mai. 2007 09:40    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 LBN 10 Unities + Antwort hilfreich


Verweise1.jpg

 
Hallo daywa1k3r,

würde es auch gerne versuchen, jedoch finde den Eintrag

"Autodesk Inventor's Apprentice Object Library" unter Verweisen nicht (s.Bild).

Gruß

Andreas

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

daywa1k3r
Moderator
Softwareentwickler




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

Beiträge: 3497
Registriert: 01.08.2002

Alienware m17x, Win7, Inventor2012

erstellt am: 08. Mai. 2007 10:01    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 LBN 10 Unities + Antwort hilfreich

Also bei mir wird der Verweis aus

C:\Programme\Autodesk\Inventor 11\Bin\RxApprentice.tlb

geladen. Vielleicht über "Durchsuchen" probieren. Jedoch wie gesagt, hat bei mir unter anderen auch die Thumbnail Eigenschaft des Objekts einen Fehler gehabt.

------------------
Grüße Igor

FX64 Software Solutions

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

rtend12
Mitglied
Dipl.-Ing. (FH) Maschinenbau / Konstrukteur


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

Beiträge: 436
Registriert: 21.07.2004

Catia V5 (R16SP5, B18SP5)
VB.Net 2003

erstellt am: 08. Mai. 2007 10:14    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 LBN 10 Unities + Antwort hilfreich


Thumb.pdf

 
- UserForm einfügen
- nach pdf vorgehen
- Thumbview.displayfile(hier die Datei angeben, z.B C:\test.idw)

Wieso hast du kein ApprenticeObject? Hast du auf deinem PC den DesignAssistent drauf, kann man den überhaupt weglassen?

Gruß
Reinhard

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

daywa1k3r
Moderator
Softwareentwickler




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

Beiträge: 3497
Registriert: 01.08.2002

Alienware m17x, Win7, Inventor2012

erstellt am: 08. Mai. 2007 10:25    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 LBN 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von rtend12:
Wieso hast du kein ApprenticeObject? Hast du auf deinem PC den DesignAssistent drauf, kann man den überhaupt weglassen?

Du meinst Design Tracking? Soweit ich weiß kann man das bei der Installation nicht weglassen (oder doch wenn der Viewer nicht installiert wird ?!). Aber es ist mir auch erst vor ein paar Tagen passiert, dass Apprentice als Verweis nicht aufgelistet war. In .NET ist aber so, dass man einen zusätzlichen Reiter „Aktuell“ hat, wo sich die aktuell benutzte Verweise befinden. Da war der Verweis aber aufgelistet und ich konnte darüber den ApprenticeServer hinzufügen.

------------------
Grüße Igor

FX64 Software Solutions

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

Andreas01
Mitglied
Dipl.-Ing.(FH) Konstrukteur


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

Beiträge: 227
Registriert: 05.08.2004

Inventor 2020
i7
32 GB RAM
Quatro FX 4000
WIN10-64bit

erstellt am: 08. Mai. 2007 12:29    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 LBN 10 Unities + Antwort hilfreich

Hallo Reinhard,

danke es hat wunderbar geklappt.

Gruß

Andreas

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

LBN
Mitglied



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

Beiträge: 14
Registriert: 17.05.2004

Inventor VBA-Problem AddOffset-Methode

erstellt am: 08. Mai. 2007 13:07    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

Zitat:
Original erstellt von rtend12:
- UserForm einfügen
- nach pdf vorgehen
- Thumbview.displayfile(hier die Datei angeben, z.B C:\test.idw)

Wieso hast du kein ApprenticeObject? Hast du auf deinem PC den DesignAssistent drauf, kann man den überhaupt weglassen?

Gruß
Reinhard



Vielen Dank!
Das war ein echt hilfreicher Tipp!
So funktioniert es auch unter VBA.

Gruß
LBN

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

Manfred Zirk
Mitglied



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

Beiträge: 513
Registriert: 01.11.2002

IV2008 SP1 MDT2008 WIN XP SP2, Vista x64
Asus A8N-SLI, AMD Opteron 180 , 4GB,
Quadro FX 3400

erstellt am: 09. Apr. 2008 23:31    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 LBN 10 Unities + Antwort hilfreich

Hallo Igor,

man kann Apprentice ohne jeden zusätzlichen Verweis innerhalb eines Addins, das in Inventor ausgeführt wird,verwenden.
Apprentice wird wie ein normales Inventor-Objekt behandelt.
Also quasi Inventor in Inventor...

Man kann auch auf ein Apprentice-Dokumentobjekt ein natives Assembly-oder Partobjekt aufpfropfen und so die Einschränkungen eines Dokumentobjekts umgehen (Z.B auf die Componentdefinitions zugreifen)

Grüße

Manfred


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