Dwgthumbnail sous visual basic 2008

[PhilBat]

Bonjour à tous

je désire avoir un apercu d'un fichier dwg

grâce au fichier dwgthumbnail.ocx (version 1.3)

situer dans le répertoire windows\system32

Cela marche bien sous VBA mais pas en VB NET.

(j'ai bien utilisé la commande "regsvr32 c:\windows\system32\dwgthumbnail.ocx"

pour le cas du VBA)

 

Il est bien présent dans la boite à d'outils

mais provoque un message d'erreur lors de l'insertion

dans une "form" --> "Echec de l'importation du contrôle ActiveX,

Assurer vous qu'il est correctement inscrit..."

 

Apres recherche dans les propriétés du projet,

il y a deux lignes de références (autocad dwgthumbnail control module)

non référencées.

Comment faire ?

 

Phil

[bazoul]

Bonjour,je me fais détéreur de topic ...

Ton problème est toujours d'actualité?

Si oui,ton autocad est lancé? Interop? Managé?

 

Tu parles de vba,en conclusion je suppose que ton autocad est lancé,et fichier non ouvert.

Je te propose donc le code suivant en managé(non testé mais normalement sa ne devrait pas trop mal marché^^) :

 

        Dim db As Autodesk.AutoCAD.DatabaseServices.Database
       Dim lFile As String = ""
       Dim lPassword As String = ""
       Dim lThmb As System.Drawing.Bitmap

       'Création d'une nouvelle DataBase
       db = New Database(False, True)
       'Lecture du fichier Dwg
       db.ReadDwgFile(lFile, FileOpenMode.OpenForReadAndReadShare, False, lPassword)
       'Récupération de l'aperçu enregistré
       lThmb = db.ThumbnailBitmap
       'Libération de la DataBase
       db.Dispose() : db = Nothing

[PhilBat]

Merci pour votre réponse

j'ai depuis avancé dans mon problème

et je me suis apercu que la version 1.3

n'était pas "compatible".

La version 2.0 marche mieux dans VB 2008.

Bref c'est la galère car très peu d'info

sur internet concernant ce problème

a+

Phil