Page 1 sur 1
Erreur d\'appel de fonction
#1 Guest_CityHunter87_*
Posté 21 février 2011 - 16:37
Bonjour,
J'ai une procédure toute simple dans un module dont le code est le suivant pour selectionner un bloc :
Public Sub info()
Dim obj As AcadObject
Dim nombloc As String
Dim Bloc As AcadBlock
Dim pntRef As Double
'Sélection du bloc
ThisDrawing.Utility.GetEntity obj, pntRef, "Sélectionner un numéro de salle"
'Sortir de la procédure si l'entité sélectionnée n'est pas un bloc
If Not obj.ObjectName = "AcDbBlockReference" Then Exit Sub
nombloc = obj.Name
MsgBox nombloc
End Sub
Lorsque je lance cette procédure à partir du VBA, tout se passe bien.
Parcontre, j'ai crée un bouton dans ma barre d'outils qui appelle cette procédure, et je me retrouve avec un message d'erreur de ce type : " Erreur d'execution blablabla, La méthode 'GetInteger' de l'objet IAcadEntity a echoué. "
L'appel du bouton se faisant avec : ^C^C-vbarun;"C:/Users/Julien/Desktop/PROJET SIG/SIG_VB.dvb!commandes.info"
Une idée ??
Je vous remercie.
#2 Guest_CityHunter87_*
Posté 21 février 2011 - 20:25
Après avoir un peu cherché, j'ai trouvé ce qui n'allait pas.
Il en faut vraiment de peu !
Lorsque je faisais mon appel de macro, il y avait un retour a la ligne en fin d'instruction.
... !
Merci ceux qui ont lu :) Bonne soirée.
Il en faut vraiment de peu !
Lorsque je faisais mon appel de macro, il y avait un retour a la ligne en fin d'instruction.
... !
Merci ceux qui ont lu :) Bonne soirée.
Partager ce sujet :
Page 1 sur 1