Bonjour à tous
Je rencontre un soucis pour récupérer une valeur qui devrait être stockée.
J'utilise ce code pour récupérer les valeurs d'un objet dans un dessin :
Et un bouton pour actualiser les nouvelles données :
Mais quand je clique sur le bouton j'ai un méssage d'erreur :
Erreur de compilation Sub ou function non définie
Auriez-vous une idée.
Merci d'avance
Je rencontre un soucis pour récupérer une valeur qui devrait être stockée.
J'utilise ce code pour récupérer les valeurs d'un objet dans un dessin :
VB:
Private Sub BP_Bloc_Destination_Click()
' *****************************************
' * Choix du bloc destination
' *****************************************
Dim BlocDestination As AcadEntity
Dim attributsdestination As Variant
On Error Resume Next
If Lbl_Onglet_Source_Actif = "" Then
MsgBox "Veuilliez activer une présentation !"
Else
USR_BlocsATT.Hide
ThisDrawing.Utility.GetEntity BlocDestination, "pick Label stn block : "
attributsdestination = BlocDestination.GetAttributes
End If
' * Remplir les TextBox destination
LblD_att1 = attributsdestination(0).TagString ' Etiquette attribut
TbD_att1 = attributsdestination(0).TextString ' Valeur attribut
LblD_att2 = attributsdestination(1).TagString ' Etiquette attribut
TbD_att2 = attributsdestination(1).TextString ' Valeur attribut
LblD_att3 = attributsdestination(2).TagString ' Etiquette attribut
TbD_att3 = attributsdestination(2).TextString ' Valeur attribut
USR_BlocsATT.show
End Sub
Et un bouton pour actualiser les nouvelles données :
Code:
Private Sub Bp_Save_Nouveau_Attributs_Click()
attributsdestination(0).Update
End Sub
Erreur de compilation Sub ou function non définie
Auriez-vous une idée.
Merci d'avance