sujet Re: Modification de bloc dynamique sous VBA dans AutoCAD – tous produits - Forum Français

Modification de bloc dynamique sous VBA

nelson.tambuzzo — Thu, 11 Mar 2021 10:22:46 GMT

Bonjour a tous,

Débutant le VBA sous autocad, je suis à la recherche d'une solution permettant de modifier un paramètre(inverser dans mon cas) d'un bloc dynamique en fonction d'un de ses attributs( inversé si attribut<0, pas inversé si attribut>0).

Pourriez vous m'indiquer si cela est possible. Si oui, comment dois-je faire appel à l'attribut ainsi qu'au paramètre dans mon projet VBA sachant que le bloc est présent plus de neuf cent fois sur le dessin avec une valeur d'attribut différente a chaque fois.

Merci d'avance.

Re: Modification de bloc dynamique sous VBA

reb_c2 — Sun, 14 Mar 2021 09:23:57 GMT

Bonjour,

Pourquoi vouloir absolument passer par le VBA ?!

Au vu du manque de réponse, tu auras plus de chance en partant sur un LISP ! Et sans doute plus d'aide de la part des membres...

Christian

Re: Modification de bloc dynamique sous VBA

_gile — Mon, 15 Mar 2021 06:53:59 GMT

Salut,

Je ne pratique pas le VBA, mais je vais essayer de donner le principe.

Pour les référence d'attribut :

On obtient la collection des références d'attribut d'une référence de bloc avec la méthode GetAttributes, collection qu'il faut parcourir et chercher pour chaque AttributeReference si la propriété TagString correspond à l'étiquette de l'attribut recherchée puis récupérer sa valeur avec la propriété TextString.

Pour les propriété dynamiques :

On obtient la collection des propriétés dynamiques d'une référence de bloc avec la méthode GetDynamicBlockProperties, collection qu'il faut parcourir et chercher pour chaque DynamicBlockReferenceProperty si la propriété PropertyName correspond au paramètre dynamique recherché et ensuite modifier la propriété Value (0 pour pas inversé, 1 pour inversé).

Re: Modification de bloc dynamique sous VBA

patrick.emin — Wed, 17 Mar 2021 14:44:39 GMT

Bonjour @nelson.tambuzzo

Votre problème a-t-il été résolu? Si oui, pouvez vous nous indiquer de quelle façon pour que cela profite à la communauté, si non, pouvez vous nous dire si vous avez pu essayer les suggestions qui vous ont été faites?

Si une des réponses à votre question résout votre problème, vous a permis de le comprendre ou contribue significativement à sa résolution, voulez vous avoir l'amabilité de cliquer sur le bouton "Accepter comme solution" en bas de la réponse? Merci.

Re: Modification de bloc dynamique sous VBA

nelson.tambuzzo — Thu, 18 Mar 2021 09:37:40 GMT

Bonjour a tous,

Tout d'abord merci pour l'intérêt porté a ma question.

Je suis actuellement entrain de d'essayer de programmer la fonction sous VBA, en suivant les conseils de gilles.

J'ai également entendu parler de la solution proposée par Christian , mais je n'ai malheureusement aucune notion de LISP.

Je vous tiendrai au courant de l'évolution des choses.

Je reste tout de même ouvert a d'autres solutions(si vous avez une idée je suis preneur).

Bonne journée.

Re: Modification de bloc dynamique sous VBA

-didier- — Thu, 18 Mar 2021 13:40:18 GMT

Bonjour @nelson.tambuzzo

Bien des années sont passées sur le clavier sans y avoir tapé de code VBA

Je m'y suis remis pour le coup et je propose ceci :

un bloc "zaza" qui est un rectangle avec deux propriétés dynamiques

LONGUEUR et LARGEUR Attention les paramètres sont sensibles à la casse

sélection du bloc
boite de saisie demande LONGUEUR
boite de saisie demande LARGEUR
et c'est fini, voir la vidéo

Sub BlocDynModifParam() Dim Prop_Dyn As Variant, i As Integer Dim Bloc_Obj As AcadEntity ThisDrawing.Utility.GetEntity Bloc_Obj, pt, "Choisir le bloc à traiter :" Dim Longueur As Double Dim Largeur As Double 'ouverture d'une baoite de saisie Longueur = InputBox("Entrez la LONGUEUR") Largeur = InputBox("Entrez la LARGEUR") If Bloc_Obj.ObjectName = "AcDbBlockReference" Then If Bloc_Obj.IsDynamicBlock Then If Bloc_Obj.EffectiveName = "zaza" Then Prop_Dyn = Bloc_Obj.GetDynamicBlockProperties For i = LBound(Prop_Dyn) To UBound(Prop_Dyn) If Prop_Dyn(i).PropertyName = "LONGUEUR" Then Prop_Dyn(i).Value = Longueur End If If Prop_Dyn(i).PropertyName = "LARGEUR" Then Prop_Dyn(i).Value = Largeur End If Next i End If End If End If End Sub

Amicalement

Re: Modification de bloc dynamique sous VBA

nelson.tambuzzo — Fri, 19 Mar 2021 12:32:23 GMT

Bonjour à tous,

J'ai réussi a compiler le code que Didier m'a fait parvenir(merci à toi Didier pour le code et la vidéo) avec un autre code afin de pouvoir faire varier mes propriétés dynamiques en fonction des attributs des blocs.

Veuillez trouver ci-joint le code qui m'a servi avec celui de Didier dans l'espoir que cela puisse aider quelqu'un .

Public Sub ExtractAtt()
  Dim i, j As Integer
  Dim Entity As AcadEntity
  Dim BlocRef As AcadBlockReference
  Dim Attributes As Variant
  Dim S As String
  
  ' On parcourt tous les objets de l'espace objet  For i = 0 To ThisDrawing.ModelSpace.Count - 1
    Set Entity = ThisDrawing.ModelSpace.Item(i)
    
    ' Si l'objet est une insertion de bloc
    If Entity.ObjectName = "AcDbBlockReference" Then
      ' On précise le type de l'objet pour pouvoir accéder à ses propriétés et
      ' ses méthodes spécifiques      Set BlocRef = Entity
      
      ' Si il a des attributs      If BlocRef.HasAttributes Then
        ' On les récupére        Attributes = BlocRef.GetAttributes
        
        S = "Bloc : " & BlocRef.Name
        
        ' On parcourt le tableau        For j = LBound(Attributes) To UBound(Attributes)
          S = S & Chr(13) & _
          "Attribut : " & Attributes(j).TagString & " = " & Attributes(j).TextString
        Next
        
        ' On affiche        MsgBox S
        
      End If      
    End If  Next

Je remercie également Christian et Gilles pour leur réactivité.

Bonne journée à tous et bonne fin de semaine.

Re: Modification de bloc dynamique sous VBA

-didier- — Fri, 19 Mar 2021 14:11:03 GMT

Bonjour @nelson.tambuzzo

J'ai quelque peu du mal à suivre ta logique

En effet tu nous poses une question sur la gestion des "paramètres" de blocs dynamiques et tu nous renvoies un code traitant les valeurs textuelles présentes dans les attributs

Encore une fois c'est un problème de vocabulaire, paramètres et attributs ne sont pas la même chose, sinon il n'y aurait pas deux mots pour les décrire.

Toutefois tu as l'air content et c'est le but des ces forums, partager pour aider (donc contenter).

Amicalement

Re: Modification de bloc dynamique sous VBA

nelson.tambuzzo — Wed, 24 Mar 2021 12:11:08 GMT

Bonjour @-didier- ,

Comme dit plus haut, j'ai compilé le code que tu m'as fourni(pour faire varier les propriétés dynamiques) et un autre code servant à récupérer les valeurs textuelles des attributs. En effet mon besoin était de faire varier un état d'inversion en fonction de la valeur textuelle d'un des attributs du bloc. Dans mon cas, j'importe un bloc 1900 fois avec à chaque fois un attribut nommé DESAXEMENT qui prend une valeur différente selon le bloc sur le dessin(les valeurs sont récupérées dans un fichier Excel). Il me fallait donc être capable de faire appel aux attributs ainsi qu'aux propriétés dynamiques via l'éditeur VBA de mon fichier Excel.

Amicalement.

Re: Modification de bloc dynamique sous VBA

-didier- — Wed, 24 Mar 2021 13:46:44 GMT

Bonjour @nelson.tambuzzo

Bon d'accord.

Je me permets de te demander de valider la réponse obtenue

(si elle te convient bien entendu pas question de te forcer la main).

Ceci étant fait cela permettra aux autres utilisateurs de se diriger dans les recherches

grâce à la mention "question résolue"

Amicalement

Re: Modification de bloc dynamique sous VBA

patrick.emin — Wed, 31 Mar 2021 13:55:52 GMT

Bonjour @nelson.tambuzzo

Si une des réponses résout votre problème ou vous a permis de mieux le comprendre, voulez vous avoir l'amabilité de cliquer sur le bouton APPROUVER LA SOLUTION en bas de la réponse qui apporte une solution?
Merci de ne pas accepter comme solution le message que vous êtes en train de lire.