| |
| 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 (2813 mal gelesen)
|
LBN Mitglied
Beiträge: 14 Registriert: 17.05.2004 Inventor VBA-Problem AddOffset-Methode
|
erstellt am: 24. Apr. 2007 16:59 <-- editieren / zitieren --> Unities abgeben:
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
Beiträge: 1005 Registriert: 01.10.2003
|
erstellt am: 24. Apr. 2007 18:54 <-- editieren / zitieren --> Unities abgeben: Nur für LBN
|
rtend12 Mitglied Dipl.-Ing. (FH) Maschinenbau / Konstrukteur
Beiträge: 436 Registriert: 21.07.2004 Catia V5 (R16SP5, B18SP5) VB.Net 2003
|
erstellt am: 25. Apr. 2007 07:22 <-- editieren / zitieren --> Unities abgeben: Nur für LBN
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
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 / zitieren --> Unities abgeben: Nur für LBN
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
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 07. Mai. 2007 13:22 <-- editieren / zitieren --> Unities abgeben: Nur für LBN
|
rtend12 Mitglied Dipl.-Ing. (FH) Maschinenbau / Konstrukteur
Beiträge: 436 Registriert: 21.07.2004 Catia V5 (R16SP5, B18SP5) VB.Net 2003
|
erstellt am: 07. Mai. 2007 21:37 <-- editieren / zitieren --> Unities abgeben: Nur für LBN
|
Andreas01 Mitglied Dipl.-Ing.(FH) Konstrukteur
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 / zitieren --> Unities abgeben: Nur für LBN
|
daywa1k3r Moderator Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 07. Mai. 2007 23:16 <-- editieren / zitieren --> Unities abgeben: Nur für LBN
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
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 / zitieren --> Unities abgeben: Nur für LBN
|
daywa1k3r Moderator Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 08. Mai. 2007 10:01 <-- editieren / zitieren --> Unities abgeben: Nur für LBN
|
rtend12 Mitglied Dipl.-Ing. (FH) Maschinenbau / Konstrukteur
Beiträge: 436 Registriert: 21.07.2004 Catia V5 (R16SP5, B18SP5) VB.Net 2003
|
erstellt am: 08. Mai. 2007 10:14 <-- editieren / zitieren --> Unities abgeben: Nur für LBN
- 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
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 08. Mai. 2007 10:25 <-- editieren / zitieren --> Unities abgeben: Nur für LBN
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
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 / zitieren --> Unities abgeben: Nur für LBN
|
LBN Mitglied
Beiträge: 14 Registriert: 17.05.2004 Inventor VBA-Problem AddOffset-Methode
|
erstellt am: 08. Mai. 2007 13:07 <-- editieren / zitieren --> Unities abgeben:
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
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 / zitieren --> Unities abgeben: Nur für LBN
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 |