rlapt

Bonjour, Comment en VBA modifier le tagstring d'un attribut d'un bloc et/ou ajouter un attribut sur la référence extérieure de ce bloc. J'ai une liste de blocs dans un répertoire et sur chacun de ces blocs je souhaite soit modifier le label d'un des attibuts soit rajouter un attribut. Merci d'avance

Bonjour, Ma question était mal posée. Je souhaite récupérer dans un selectionSet tous les blocs de mon dessin. J'ai trouvé comment filtrer les blocs en fonction de leur nom SelectionSet.Select acSelectionSetAll, , , 2, "Nom du bloc" mais pas la totalité des blocs. Merci pour votre aide.

Bonjour, Mon problème est le suivant : Comment faire une sélection filtrée sur les blocks Je pense que le groupe à utiliser est 0 par contre la valeur je ne trouve pas "Blocks" ne fonctionne pas Est-ce possible et si oui comment parmétrer le filtre ? Merci d'avance

Pour ceux que cela intéresse, j'ai fini par trouver. L'instruction est la suivante : Set MonSousMenu = MonMenu.AddSubMenu("", "Mon sousMenu") Merci

Bonjour, Je souhaite réaliser un menu déroulant en VBA constitué de comme suit : MonMenu 'dans la barre standard MonSousMenu 1 Monsous-sousMenu 11 Monsous-sousMenu 12 Monsous-sousMenu 13 MonSousMenu 2 Monsous-sousMenu 21 Monsous-sousMenu 22 Monsous-sousMenu 23 etc... Pour créer MonMenu et MonSousMenu 1/2/3 etc pas de problème. Par contre je n'arrive pas à trouver la commande ou l'astuce pour créer Monsous-sousMenu XX Pouvez-vous m'aider ? Merci d'avance.

La macro fonctionne. Peut être un problème de remise à zéro de l'lobjet SelectionSets ? Sinon lorsque l'on lance la macro un prompt apparaît dans la ligne de commande "Sélectionner un objet". Cliquez sur le ou les objets souhaité, puis tapez sur la touche "enter" Public Sub liste_Blocs() Dim objBloc As AcadBlock Dim strListe As String 'On Error Resume Next strListe = "Liste des blocs dans ce dessin:" For Each objBloc In ThisDrawing.Blocks strListe = strListe & vbCr & objBloc.Name Next Dim ssetObj As AcadSelectionSet ThisDrawing.SelectionSets("TEST_SSET").Delete g = H Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET") ' Add objects to a selection set by prompting user to select on the screen ssetObj.SelectOnScreen End Sub

Bonsoir, Vous êtes super ! MErci à tous les deux

Rebonjour, En fait je n'ai pas été assez clair. a) mon application utilise le VBA comme langage. b)Je souhaite demander par un message d'indiquer par un clic de la souris l'endroit où se trouve le centre du cercle à tracer. Sitôt le clic effectué, je souhaite reprendre la main. Merci d'avance

Bonjour, Je cherche à placer, à partir d'une macro VBA, un cercle sur un dessin dont le centre est déterminé par un clic de souris. Placer le cercle ne me pose aucune difficulté, mais mon problème est de récupérer les coordonnées X et Y voir Z du clic de souris. Merci de votre aide.