Dartsu

Problème résolu !! :(rires forts): En fait il faut que le résultat soit du texte donc il faut définir une variable texte qui va prendre la valeur qui m’intéresse If JHEprops.PropertyName = Feuil9.Cells(83, 4) Then Dim t As String t = Feuil9.Cells(84, 4).Value JHEprops.Value = t 'Feuil9.Cells(84, 4).Value End If Merci quand même d'avoir regardé

Salut, En effet les paramètres se gèrent presque pareil que les propriétés par contre mon problème c'est que je pense que le paramètre de visibilité se gère autrement ... et la je suis perdu :huh:

Bonjour à tous, je fais appel à votre aide pour un problème de gestion de paramètre de visibilité dans un bloc dynamique à partir d'un code VBA sou Excel. Ci-joint mon bout de code : Dim Chemin_block As String Dim insert_point(0 To 2) As Double Dim JHEbloc As AcadBlockReference Chemin_block = Feuil9.Cells(84, 7) & Feuil9.Cells(84, 1) & ".dwg" insert_point(0) = Feuil9.Cells(84, 5): insert_point(1) = Feuil9.Cells(84, 6): insert_point(2) = 0: 'initialisation du bloc avec le point d'insertion et chemin d'accès Set JHEbloc = AutoCAD.AcadApplication.ActiveDocument.ModelSpace.InsertBlock(insert_point, Chemin_block, 1#, 1#, 1#, 0) 'Modification des attributs Dim JHEprops As AcadDynamicBlockReferenceProperty Dim Attrbuts As Variant Dim inc As Integer Attrbuts = JHEbloc.GetDynamicBlockProperties For inc = 0 To UBound(Attrbuts) Set JHEprops = Attrbuts(inc) If JHEprops.PropertyName = Feuil9.Cells(83, 4) Then JHEprops.Value = Feuil9.Cells(84, 4).Value End If If JHEprops.PropertyName = Feuil9.Cells(83, 2) Then JHEprops.Value = Feuil9.Cells(84, 2).Value End If If JHEprops.PropertyName = Feuil9.Cells(83, 3) Then JHEprops.Value = Feuil9.Cells(84, 3).Value End If Next inc Mon problème se situe sur la ligne en rouge, les autres paramètres sont des propriétés dynamique mais celui ci est le paramètre de Visibilité, je pense que celui ci ne se gère pas comme je l'ai fait mais je trouve pas la solution ... Merci d'avance !

Merci à tous

Du coup en bidouillant un peu ta solution j'arrive a mon résultat ! Un grand merci ! Ci-joint le bloc solution : Le Bloc

Bonjour, Merci pour ta réponse, effectivement il fonctionne sauf qu'il est vers le haut :D Je travail dans le sens du bas normalement avec des valeur de Y négative et mon X peut etre positif ou negatif mais normalement j'ai un bloc droit ou gauche. La tige à oeil viens se positionner avec un décalage de 350 mm d'un point accroche.

En effet oui, En fait quand on fait propriété sur le bloc, dans la section "Personnaliser" Il y a donc (pour le bloc crée récemment), -Position1 X ( correspond a la coordonnée X du point d'insertion) -Position1 Y ( correspond a la coordonnée y du point d'insertion) -Angle1 ( L'angle de l'objet par rapport à l'horizontale) -Distance1 ( La longueur de l'attribut "Disctance1" en mm) Et je voudrais en finalité arriver à créer un point2 qui gérerais l'Angle 1 et la Disctance 1 qui ajouterais : -Position2 X ( Qui correspondrais a la coordonnée X du point dynamique du bloc ) -Position2 Y (Qui correspondrais a la coordoonée Y du point dynamique du bloc ) Du coup dans ce Bloc , le point 2 est bien crée, on vois les Position 2 X,y (Grisé) dans l'onglet "Personnaliser". Mais je n'arrive pas à définir une bonne action pour que se point puisse gérer mon étirement polaire. Un peu comme déplacer la poignée de l’étirement polaire mais c'est pas si facile et c'est la que je sèche. Ci quelqu'un à déjà réussi je suit tout Ouïe :huh: Merci d'avance !

Ca me semble un bon début mais le problème c'est que on ne peut pas faire d’étirement polaire sur des points Et un étirement classique + rotation fait faire n'importe quoi au bloc

Bonjour, Merci pour ta réponse, je pense également la même chose mais après avoir tester pleins d'actions je ne sais pas la quel mettre pour que sa fonctionne. Je pense que se doit être un paramètre dans "Jeu de paramètres" mais je ne sait pas trop comment sa fonctionne. Je vais continuer a chercher Merci d'avance !

Le problème de mon bloc n’était pas vrai le fait qu'il crash ou pas ou que celui ci ne fonctionnait pas, il fonctionnait très bien mais je cherche une solution pour que l'action déplacer et étirement polaire Coïncide. j'ai un peu de mal a formuler ma demande désolé ... Je voudrais faire coïncider les actions "point2" et le "Distance1", afin de pouvoir modifier les coordonnées du "point2" et que l'action "Distance1" suive.

Mon lien Merci pour l'info ! Du coup ci-joint le bloc

Re, J'ai essayé cette solution et ça fait planté le bloc .. ci-joint le bloc dynamique pour exemple, En gros j'aimerais que le point "Position2" gère l’étirement polaire. Pour que l'action "Déplacer" du point maîtrise l’étirement polaire. Comme ça je gère l’étirement par des coordonnées. Merci d'avance

Bonjour à tous, Après avoir bidouillé mainte fois mon bloc dynamique et n'ayant aucun résultat je me tourne vers vous. J'aimerais gérer une contrainte étirement polaire avec un déplacer (pour obtenir des coordonnées X et Y plutôt que de jouer sur l'attribut distance et angle). Je m'explique, si je prend une droite dynamique, elle aurait d'un coté un point d'insertion et de l'autre cotés l'attribut d’étirement polaire. Je voudrais donc associer un paramètre "point" au niveau de mon action étirement qui jouerais sur l'action d'étirement polaire. Je sais pas si j'ai était vraiment claire ... Merci d'avance !

Bonjour à tous, le forum, L'insertion de bloc se fait assez bien avec ce code : Dim insert_point(0 To 2) As Double Chemin_massif = "Chemin du bloc" insert_point(0) = 0#: insert_point(1) = 0#: insert_point(2) = 0: 'initialisation du bloc avec le point d'insertion et chemin d'accès Set massif = Autocad.AcadApplication.ActiveDocument.ModelSpace.InsertBlock(insert_point, Chemin_massif, 1#, 1#, 1#, 0) Mais je n'arrive pas à trouver comment gérer l'onglet "Personnaliser" du bloc dynamique puisque le boup de code plus haut gère seulement l'onglet "Géométrie du bloc". Il gère donc la Position X; Position Y; les Echelles Mais pas la Position1X; Position1Y ; Position2X ; Position2Y Si quelqu'un à une idée ... Codialement,

Bonjour a toutes et a tous, Un grand merci Christian !