---

Moin moin Helferinnen und Helfer

auch wenn die Frage bereits mit VB - Tools abgedeckt ist, so würde ich doch gern wissen, ob einer von euch weiß, wie ich ein Preview von SWX - Objekten mittels einem VBA - Makro hinbekomme.
Ich denke da an die Befehle: PreviewDoc oder GetPreviewBitmap

Das Beispiel in der API-Hilfe von SWX funzt irgendwie nicht, da ich nicht weiß, was mit "stdole.StdPicture" gemeint ist, bzw. wie ich an MSDN herankomme, bzw. einbinden kann.

-------
Option Explicit
Dim swApp As SldWorks.SldWorks
Sub main()
Set swApp = Application.SldWorks
Dim p As stdole.StdPicture  'See MSDN for details about the StdPicture object
Set p = swApp.GetPreviewBitmap("C:\calls5\block.sldprt", "Default")
Debug.Print p.Handle
Debug.Print p.Height
Debug.Print p.Width
Debug.Print p.Type 
End Sub
-------

------------------
Carsten 

Wenn die Klügeren immer nachgeben, regieren die Dummen die Welt. 

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

---

SldWorks_GetPreviewBitmap.zip

Hi Carsten,
ein abgespecktes Beispiel aus der SWX Bibliothek.

HTH & bis demnäx,
Ralf

------------------

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

---

Hallo Ralf,

vielen Dank, genau das habe ich gesucht.

------------------
Carsten 

Wenn die Klügeren immer nachgeben, regieren die Dummen die Welt. 

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

---

Hallo,
Danke für die prompte und prima Unterstützung des VBA - Makro, ... aaaaber ....
Dieses PREVIEW funktioniert nur bei Parts, Baugruppen, aber leider nicht bei Blöcken.
Aber genau dafür brauch ich dieses PREVIEW und es gibt ja dort auch ein solches.
Weiß einer von euch noch Rat, wie ich diese Vorschau per VBA (.swp) hinbekomme?

------------------
Carsten 

Wenn die Klügeren immer nachgeben, regieren die Dummen die Welt. 

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

---

Hallo Carsten,

ich hab gerade mal versucht, mein PAC4SWX kann auch die Vorschau aus den Blöcken anzeigen, infolgedessen muss der "inoffizielle" Trick über die sdm.dll auch bei Blöcken funktionieren.

Schau dir mal die Seite SolidWorks API Hilfe - Vorschaubild in VB anzeigen  an, da hab ich eine Beschreibung und auch ein Beispielcode in VB, dass kannst du aber so auch in VBA nutzen; du kannst ja einfach die Userform Form1 in ein SolidWorks-Makro einbinden oder in einem normalen Editor wie Notepad öffnen, dann kommst du an den Code.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de

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

---

Danke Stefan, jetzt funzt es.

------------------
Carsten 

Wenn die Klügeren immer nachgeben, regieren die Dummen die Welt. 

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