Discussion :

[Mut]

Bonjour,

Je souhaiterais faire une manip avec Autocad mais par le biais d'Excel. Je souhaite en fait ouvrir autocad, executer une commande (par exemple "save",puis refermer autocad.

J'ai chercher et j'ai fait ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Set AcadApp = New AutoCAD.AcadApplication
AcadApp.Visible = True
AcadApp.Documents.Open "c:\test.dwg"
Set AcadDoc = GetObject(, "Autocad.Application").ActiveDocument
AcadDoc.SendCommand ("save")

Mais malheureusement rien ne fonctionne....j'ai ajouté comme librairie "Autocad 2009 type library"

Si quelqu'un peut m'aider...

Merci

[fring]

Bonjour,

Ceci fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Test_Autocad()
'Nécessite la référence Autocad xxx Type Library
Dim AcadApp As AcadApplication, AcadPlan As AcadDocument
 
Set AcadApp = New AcadApplication
AcadApp.Visible = True
 
Set AcadPlan = AcadApp.Documents.Open("D:\Temp\test.dwg")
 
AcadPlan.Save
AcadPlan.Close
AcadApp.Quit
 
Set AcadApp = Nothing
Set AcadPlan = Nothing
 
End Sub

[Mut]

Impeccable ça fonctionne bien !

J'essais maintenant d'insérer une commande "importdgn" avec ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
AcadPlan.SendCommand "importdgn"

La commande s'insère bien mais se se valide pas....

Une fois validée, Je souhaiterais par la suite pouvoir spécifier un nom de fichier sans l'intervention de l'utilisateur...



Merci

Bon j'arrive à valider par le biais de "vbcr" mais ensuite il m'ouvre une fenetre où je dois sélectionner le fichier à importer....mais je souhaiterais l'indiquer automatiquement si c'est possible.

Merci

EDIT : C'est bon c'est résolu, il y avait une variable systeme autocad qui permettait de supprimer l'affichage des boites de dialogues !!


Merci beaucoup pour ton aide

[fring]

J'ai essayer de manipuler

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Acadplan.Import("...") mais sans résultat

Tu peux me tuyauter sur cette variable système ? ça m'intéresse

[Mut]

Oui pardon désolé.

La variable système est filedia qu'il faut passer à 0 mais en fait je suis confronté à un problème similaire car après quelques manip, il fait apparaitre de nouveau une fenetre pour spécifier des paramètres de conversion que j'aimerais rentrer automatiquement.....mais je bloque. Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
Sub Bouton1_Clic()
 
Dim AcadApp As AcadApplication, AcadPlan As AcadDocument
 
Set AcadApp = New AcadApplication
AcadApp.Visible = True
 
Set AcadPlan = AcadApp.Documents.Open("c:\test.dwg")
 
AcadPlan.SendCommand "filedia" & vbCr & "0" & vbCr
AcadPlan.SendCommand "importdgn" & vbCr & "c:\test.dgn" & vbCr 
MsgBox "test"
AcadPlan.SaveAs "c:\dgnconverti.dwg"
AcadPlan.Close
AcadApp.Quit
 
Set AcadApp = Nothing
Set AcadPlan = Nothing
 
End Sub

En fait il faudrait que je puisse entrer les paramètres directement après le nom du fichier...mais il m'ouvre une fenetre à la place pour que je les saisisse manuellement meme avec la variable filedia à 0....

[Mut]

bon j'ai un peu avancé...non sans mal, il me reste à trouver comment changer le focus du dessin dans l'application.

J'ai essayé ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 
ActiveDocument = AcadApp.Documents("dessin2.dwg").Activate
ou 
ActiveDocument = AcadApp.Documents(1).Activate

mais sans résultat...