CadXP: Erreur d\'appel de fonction - CadXP

Aller au contenu

Page 1 sur 1
  • Vous ne pouvez pas commencer un sujet
  • Vous ne pouvez pas répondre à ce sujet

Erreur d\'appel de fonction

#1 Guest_CityHunter87_*

  • Groupe : Invités

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.




0

#2 Guest_CityHunter87_*

  • Groupe : Invités

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.
0

Partager ce sujet :


Page 1 sur 1
  • Vous ne pouvez pas commencer un sujet
  • Vous ne pouvez pas répondre à ce sujet

1 utilisateur(s) en train de lire ce sujet
0 membre(s), 1 invité(s), 0 utilisateur(s) anonyme(s)