Discussion :

[alienor2]

Bonjour,
J'envoie une commande vers l'application Autocad active en utilisant le code suivant:

Code :

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

1
2
3
AcadHwnd = AutoCAD.Application.hwnd
SetActiveWindow (AcadHwnd)
SendKeys "_plot ", True

Ca fonctionne mais le soucis est que mon code reste en attente tant qu'Autocad n'a pas totalement achevé la commande.
Ce que je veux est envoyer une commande et que le code continue indépendamment de la commande qui a été envoyée.
J'ai bien essayé de mettre "false", mais dans ce cas, Autocad ne reçoit plus la commande (trop rapide pour lui?)
Merci d'avance pour votre aide

[aalex_38]

Bonjour,

As-tu essayé

Code :

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

DoEvents

[alienor2]

Bonjour,
Oui j'avais pensé à DoEvents mais ça n'a rien changé.
Cela dit, j'ai trouvé la solution à mon problème et ce fut fastidieux, d'ailleurs je ne comprends toujours pas pourquoi il y avait ce blocage.
Voici un extrait du code qui fonctionne avec en commentaire la ligne de l'ancien code qui provoquait le blocage. Si quelqu'un a une explication, ça m'intéresse.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
AcadHwnd = AutoCAD.Application.hwnd
NbreLayout = AcadApp.ActiveDocument.Layouts.Count
For i = 0 To NbreLayout - 1 'Each objLayout In AcadApp.ActiveDocument.Layouts
  AcadApp.ActiveDocument.ActiveLayout = AcadApp.ActiveDocument.Layouts(i)
  Do While ImprimeAuto = False
    hWnd1 = 0: hWnd2 = 0
    ImpDansFichier = False
    ImpDansPDFCreator = False
    SetForegroundWindow (AcadHwnd)
    SendKeys "_plot ", True
  Loop
Next i