vindaro

merci Gile c'est sympa de ta part de répondre aussi rapidement... La procédure au-dessus tu ne l'aurais pas en VBA par hasard? J'essaie de sélectionner des polylignes qui ont une couleur 255,204,51 et une épaisseur de ligne de 2.11mm en faisant de cette manière: Dim Objet As AcadSelectionSet Dim intCodes(0 To 1) As Integer Dim varCodeValues(0 To 1) As variant Set objet = ThisDrawing.SelectionSets.Add("26") 'intCodes(0) = 0 'varCodeValues(0) = "LWpolyline" intCodes(1) = 62 varCodeValues(1) = RGB (255, 204, 251) 'intCodes(1) = 70 'varCodeValues(1) = "211" objSS.Select acSelectionSetAll, , , intCodes, varCodeValues Mais je n'arrive ni à sélectionner ni suivant la couleur, ni suivant l'épaisseur de ligne: il m'ouvre une fenêtre: " Erreur d'éxécution: 6 Dépassement de capacité" J'ai composé que cela aurait pu être lié au type de variable défini pour "varCodeValues" mais si je le change il n'accepte plus ma désignation "LWpolyline"... Aurais-tu une réponse? N.B.: Fraid Si tu arrives à tes fins je suis preneur.... :D :D

Bonjour et encore merci le projet avance mais j'ai enccore un souci: Losque j'essaie de sélectionner des polylignes dans le dessin pour les supprimer, changer de couleur, etc,... je n'y arrive pas. Je me suis rendu compte qu'en fait mes polylignes sont des polylignes 2D...J'ai trouvé un message de votre part le 14/03/2009 (lien: http://cadxp.cadmag.info/XForum+print-fid-93-tid-23093.html) qui explique cette différence. Mon problème c'est comment traduire en vba : sélectionner toutes les polylignes 2D du dessin et les changer en polylignes ("allégées") via la commande "convert" (ou autre méthode)... J'ai également je ne trouve pas le code DXF corresondant à l'épaisseur de lignes. Comment met-on la valeur correspondante: 0.13, 13, 0.13mm ? Merci d'avance pour vos réponses. [Edité le 6/8/2010 par vindaro]

Pourtant j'ai pas mal cherché durant toute la journée d'hier... et en fait je bute sur la première étape: comment sélectionner une polyligne, une hachure avec des propriétés définies pour ensuite les supprimer ou changer de couleur... comment sélectionner tout un dessin et exploser les blocs qui sont présents... en fait je bloque sur la sélection (en tout cas pour le début).... Merci pour l'aide.

Bonjour, je vais essayer d'expliquer mon problème le plus clairement possible (c'est pas gagné)... Voilà j'effectue avec des plans du cadastre récupérés sur internet et transformés en .dwg grâce à Adobe illustrator des manipulations qui se répètent d'un plan à un autre (explosion de blocs, transformation des couleurs de batiment, suppression de certaines lignes qui se superposent,....). Enfin voilà la base... J'ai essayé alors d'automatiser ces manip en vba sous autocad 2008 (j'ai utilisé ce language car je le connaissais un peu sous excel) mais j'avoue que je rame voir je coule.... Mais nous avons également Autocad 2010 qui permet apperemment d'enregistrer des actions (Outils->Enregistreur d'actions...) et cela fonctionne pas trop mal mais il n'enregistre que des actions faites au clavier...or j'utilise la commande "sélection rapide" ou SELECTRAP, je filtre alors mes différents paramètres avec la SOURIS et là cet enregistreur d'actions n'enregistre pas ces actions....lorsque je lance la lecture il m'ouvre la fenêtre de délection rapide et attend mes différents filtres... J'espère que j'ai été + ou - claire. Mes questions sont les suivantes: Existes-t-il un moyen d'utliser SELECTRAP en indiquant nos filtres que par le clavier (qu'il n'ouvre pas la fenêtre "sélection rapide") du genre "Selctectrap->Dessin entier ->pline->epaisseur de ligne = 0"? Existes-t-il une autre méthode pour arriver à mes fins? Merci d'avance pour vos réponses....et longue vie à ce forum