Aller au contenu

Visibilité d un bloc dynamic


Messages recommandés

Posté(e)
  Le 14/07/2015 à 15:08, Goldorak44 a dit :

Salut,

a quel endroit tu coince dans ton programme ?

post ton code, ce sera plus facile pour t'aider.

;)

je sais retrouver dans mon dessin mon blocK dynamic "agences" et je voudrais afficher état de visibilité pour le changer

 

 

Private Sub ToggleButton1_Click()

   Dim objBloc As AcadBlock
   Dim strNomDuBloc As String
   strNomDuBloc = "Agences"
   If strNomDuBloc = "" Then Exit Sub

   On Error Resume Next

   Set objBloc = ThisDrawing.Blocks(strNomDuBloc)
   If objBloc Is Nothing Then
           MsgBox "Le bloc '" & strNomDuBloc & "' n'existe pas."
   Else
       MsgBox "Le bloc '" & strNomDuBloc & "' existe."
   End If

End Sub

Posté(e)

Salut

 

  Le 15/07/2015 à 17:33, FRED350 a dit :

Merci

je regarde, mais c'est du lisp et je voulais en VBA.

  Le 13/07/2015 à 20:20, FRED350 a dit :

et changer l'état de visibilité du bloc Agences en vba ou lisp

Merci d'avoir précisé, mais tu auras beaucoup plus de chance en lisp que tu pourras ensuite traduire en vba

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité