DAOConceptElec

Bonjour, Une réponse s'approchant du probleme a été faite sur le forum VBA. "Pour info: Le problème venait du faite que le bloc est dynamique et que lorsque qu'on utilise une variante du bloc, Autocad le renomme en *U22 ou quuch comme ca. Il faut donc utiliser si je veux selectionner tout les blocs portant le nom "borne" la propriété "EFFECTIVENAME" et non "NAME". Je ne sais pas si tu peux passer par la programmation pour ton probleme.

Bonjour, Une méthode parmi d'autre: 1)Parcourir l'ensemble des entités afin d'identifier les blocs 2)Parcourir chaque bloc afin d'en extraire les attributs Dim acadob As AcadObject Dim ObjRefBlock As AcadBlockReference Dim RecupInfo As Variant For Each acadob In ThisDrawing.ModelSpace 'Je parcours les objets du dessin If acadob.ObjectName = "AcDbBlockReference" Then 'Je vérifie qu'il sagissent d'un bloc Set ObjRefBlock = acadob RecupInfo = ObjRefBlock.GetAttributes For index = LBound(RecupInfo) To UBound(RecupInfo) 'Je parcours mes attributs 'Mettre ici les instructions à réaliser sur chaque attributs 'Exemple: Variable = RecupInfo(index).TextString Next End If Next acadob Je n'ai pas testé le code mais l'idée est là. Bonne suite.

Bonjour, Le message date un peu mais la réponse pourra peut-etre servir pour d'autre. Le probleme peut être vaste et varié. Voici ce que vous pouvait toujours vérifier: Le champ de désignation du formulaire est-il toujours le bon? Important: la langue de la base article, du projet ou du fomulaire sont-ils bien paramétrés? Faire un essai avec un autre formulaire. Certains calques ne sont-ils pas en invisibles? [Edité le 6/11/2009 par DAOConceptElec]