Ouvrir un fichier AutoCAD DWG via VB6Résolu

Question

Bonjour,

Préambule environnement utilisé:
            XP Pro
            AutoCAD 14-2004-2007-2009
            VB6 (SP6) ver: 6.0.9782
 
Je souhaite ouvrir un/ou des fichiers Dwg
AutoCAD via une application VB6.
J'utilise pour se faire la procédure suivante:
 
================================
'Chemin de l'éxecutable
  Const CheExe = """C:\Program Files\AutoCAD 2004\acad.exe"""
'Chemin des fichiers AutoCAD
  Const CheDwg = """C:\Documents and Settings\Administrateur\Bureau\En cours\R_D_M\CAO_RDM"""
'Nom du fichier AutoCAD à ouvrir
Dim FicDWG As String

Private Sub CmdExecute_Click()
    FicDWG = "Surfaces_Quadratiques.dwg"
    Call Shell(CheExe & CheDwg & FicDWG, 1)
End Sub
================================

Après avoir cliqué sur le bouton de commande,
AutoCAD s'ouvre mais sans charger le fichier DWG souhaité.
Seul le fichier standard d'AutoCAD s'ouvre.

Alors si quelqu'un  a la solution pourrait-il m'aider?

Cordialement,

Renfield · Accepted Answer

à déclarer :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long



le code :

ShellExecute 0, "open", "...\Surfaces_Quadratiques.dwg", vbnullstring, vbnullstring, 1


Renfield - Admin CodeS-SourceS - MVP Visual Basic

Renfield · Answer

si les fichiers dwg sont associés à Autocad ; et donc qu'un double click sur un fichier dwg lance autocad...

il est preferable d'utiliser ShellExecute en utilisant directement le chemin vers le dwg.
Autocad se lancera alors tout seul.

Renfield - Admin CodeS-SourceS - MVP Visual Basic

artgile · Answer

Io = Ixx + Iyy 
C'est hyper limpide pour un novice.
Mais quand il faut ....je vais appliquer bêtement pour l'instant.
Et si dieu me touche du doigt j'aurai la lumière.
C'est pas gagné....... 
A tout de suite

artgile · Answer

Rien que de rien pas de message d'erreur,pas de
blocage, mais rien de rien.

 Io = Ixx + Iyy

Renfield · Answer

et quand tu double clique su un fichier dwg, AutoCad s'ouvre bien ?

Renfield - Admin CodeS-SourceS - MVP Visual Basic

artgile · Answer

ouich

 Io = Ixx + Iyy

artgile · Answer

Bon voilà la base :

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, _
                ByVal lpOperation As String, _
                ByVal lpFile As String, _
                ByVal lpParameters As String, _
                ByVal lpDirectory As String, _
                ByVal nShowCmd As Long) As Long

Const CheDwg = "C:\Documents and Settings\Administrateur\Bureau\Surfaces_Quadratiques.dwg"

Private Sub CmdExecute_Click()
   
    ShellExecute 0, "open", CheDwg, vbNullString, vbNullString, 1
End Sub



 Io = Ixx + Iyy

artgile · Answer

Mille excuses, je viens de me rendre compte
que le nom de l'objet sur lequel je clique
a changé de nom.Donc je peu toujours essayer
il ne reconnait pas la procédure.

ça fonctionne

Renfield · Answer

cool, j'avoue que je me demandais d'où cela pouvait venir ^^

Renfield - Admin CodeS-SourceS - MVP Visual Basic

artgile · Answer

Est-ce trop demander?
Peux-tu me donner ou m'indiquer l'explication
de cette commande shellExecute avec la  relation
avec la librairie?!?!
Si je fait F1 dans le code je n'est pas d'aide sur cette fonction, de façon intuitive cela me semble normale car il semble que cela soit une déclaration particulière.
Encore merci, et désolé pour le désagrément,

Cordialement,

Renfield · Answer

Doc des APIs => MSDN

[msdn.microsoft.com/en-us/library/bb762153(VS.85).aspx msdn.microsoft.com/en-us/library/bb762153(VS.85).aspx]

Renfield - Admin CodeS-SourceS - MVP Visual Basic

artgile · Answer

Ok Merci,

 Io = Ixx + Iyy

Ouvrir un fichier AutoCAD DWG via VB6

12 réponses

Votre réponse

Discussions similaires