Discussion :

[Xavier-D]

Bonjour

Je travail sur une application permettant de générer des schémas dans Autocad à partir de données lues dans Excel et/ou Access.
Lien avec Autocad, Access et Excel créé avec les lignes suivantes :

Code :

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

1
2
3
4
App_Access = GetObject(, "Access.Application")
BDD = App_Access.CurrentDb
oapp = CreateObject("Excel.Application")
MonAutocad = CreateObject("AutoCAD.Application")

J’ai un souci avec des appels vers Autocad qui renvoi souvent, mais pas tout le temps, le message d’erreur :

System.Runtime.InteropServices.COMException: 'L’appel a été rejeté par l’appelé. (Exception de HRESULT : 0x80010001 (RPC_E_CALL_REJECTED))'

Exemples de lignes renvoyant ce message :

Code :

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

1
2
3
4
5
MonAutocad.ActiveDocument.Close
MonAutocad.Documents.Close
MonAutocad.ActiveDocument.SaveAs(Name)
MonAutocad.ActiveDocument.Save
If MonAutocad.ActiveDocument.ModelSpace.count() = 0 Then

A noter que lors de l’exécution en pas à pas si je relance l’exécution à la ligne précédente sa repart sans erreur, c’est comme si Autocad avait besoin de temps pour répondre à l’appel, ou que les objet liés à Autocad mettait parfois trop longtemps pour se mettre à jour.
Le problème est presque résolu en ajoutant des pauses avant les commandes posant problème, mais du coup j’augmente le temps de traitement

Cela se produit également dans des boucles, exemple dans la boucle ci-dessous il arrive que d’avoir l’erreur sur le « For Each elem … » ou sur le « Next elem » :

Code :

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

1
2
3
4
5
For Each elem In MonAutocad.ActiveDocument.ModelSpace
	With elem 
             ….
	End With
Next elem

A noter également que ce programme a déjà fonctionné il y’a un an mais depuis j’ai changé de pc, avec un passage de Windows7 à Windows10.
Pas de changement de version pour Autocad (toujours la 2018)
Pour Visual Studio j’ai actuellement la version Professionnal2019, je pense que sur le pc précédent c’était la version 2017, mais comme je n’ai plus le pc je n’en suis pas sûre.
Je n’ai pas de soucis pour les fonctions liées à Acces ou Excel.

Merci d’avance pour votre aide

[Xavier-D]

Sur un autre forum j'ai trouvé une solution, qui consiste a créer une classe OleMessageFilter afin de gérer les message d'erreur.
lien vers cette solution :
http://support.industrysoftware.auto...lterUsage.html
Il y'a apparemment une solution similaire sur le site suivant :
https://social.msdn.microsoft.com/Fo...forum=winforms