ludo07

Bonjour à tous, Merci (gile) tu es un dieu. Ou un 1/2 dieu, enfin bref c'est exacrement ce que je rechercher. Et je pense que Mr AUTODESK devrait incorporer ce genre de programme pour completer la commande "_QSELECT". Merci (gile) A+

Tu à r^pondu trop vite , je suis un peu lent. Donc cela signifie qu'on ne peu pas selectionner et faire un tri sur un bloc dynamic en fonction d'un paramêtre de consultation. AIE, AIE. Est ce que AUTODESK à prévu quelque chose pour cela, car pour moi cela annonce la fin des blocs dynamic. A+

Salut Patrick_35, en effet quand j'essaye ton lisp il agit pas sur le paramêtre de consultation du bloc dynamic. A+

Bonjour à tous, Avant de me lancer dans la création d'un bloc dynamic pour mes différents section de poteau, j'ai quand même voulu savoir si un bloc dynamic était séléctionnable soit par la commande "filter" soit par "_qselect". Bin moi j'y suis pas arrivé. SNIF :casstet: Explication: Dans mon bloc dynamic j'ai un paramêtre de consultation qui affiche les différents section de poteau:20x20,30x30,40x40.............. J'insers mon bloc dynamic dans un plan j'en ai 20 avec le paramêtre de consulatation 20x20 et 10 avec le paramêtre de consultation 40x40. Comment je fais pour selectionner en une fois tous mes poteaux 40x40 pour les passer en 30x30? Quelqu'un à une idée? MERCI Car là j'ai un gros problème et cela pourrait me faire arréter l'usage des blocs dynamics. A+

Ci-dessous le code de mon bouton qui me permet de ré-injecter les valeurs de s attributs dans les TextBox de ma Userform. Private Sub CommandButton2_Click() UserForm2.Hide 'permet de récuperer des données Dim re(0 To 10) As Variant r = UserForm2.TextBox1.Value Dim objJeuSel As AcadSelectionSet Dim entbloc As AcadEntity Dim codegroup(0 To 1) As Integer Dim valgroup(0 To 1) As Variant Dim vntattrib As Variant Dim i, inttotal As Integer Set objJeuSel = ThisDrawing.SelectionSets.Add("jeu27") 'creer un jeu de selection codegroup(0) = 0 valgroup(0) = "INSERT" 'permet de dire à la recherche que l'on recherche un bloc codegroup(1) = 2 valgroup(1) = "blocdo" 'et que le bloc rechercher à pour nom rep... objJeuSel.Select acSelectionSetAll, , , codegroup, valgroup 'la selection est fait For Each entbloc In objJeuSel 'pour tous les blocs rep... dans le jeu de selection If entbloc.HasAttributes Then 'si le bloc a des attributs vntattrib = entbloc.GetAttributes 'vntattrib prend la valeur d'attribut If vntattrib(0).TextString = r Then For i = LBound(vntattrib) To UBound(vntattrib) 'boucle fait avec un compteut qui dépend du nombre d'attributs If vntattrib(i).TagString = "info1" Then re(0) = CVar(vntattrib(i).TextString) ElseIf vntattrib(i).TagString = "info2" Then re(1) = CVar(vntattrib(i).TextString) ElseIf vntattrib(i).TagString = "info3" Then re(2) = CVar(vntattrib(i).TextString) ElseIf vntattrib(i).TagString = "info4" Then re(3) = CVar(vntattrib(i).TextString) ElseIf vntattrib(i).TagString = "info5" Then re(4) = CVar(vntattrib(i).TextString) ElseIf vntattrib(i).TagString = "info6" Then re(5) = CVar(vntattrib(i).TextString) ElseIf vntattrib(i).TagString = "info7" Then re(6) = CVar(vntattrib(i).TextString) ElseIf vntattrib(i).TagString = "info8" Then re(7) = CVar(vntattrib(i).TextString) ElseIf vntattrib(i).TagString = "info9" Then re(8) = CVar(vntattrib(i).TextString) ElseIf vntattrib(i).TagString = "info10" Then re(9) = CVar(vntattrib(i).TextString) ElseIf vntattrib(i).TagString = "info11" Then re(10) = CVar(vntattrib(i).TextString) End If Next i Else: inut2 = 0 End If End If Next UserForm1.TextBox7.Value = re(0) UserForm1.TextBox8.Value = re(1) UserForm1.TextBox1.Value = re(2) UserForm1.TextBox2.Value = re(3) UserForm1.TextBox3.Value = re(4) UserForm1.TextBox4.Value = re(5) UserForm1.TextBox5.Value = re(6) UserForm1.TextBox6.Value = re(7) If re(8) = 1 Then UserForm1.OptionButton1.Value = True Else UserForm1.OptionButton2.Value = True End If If re(9) = 1 Then UserForm1.OptionButton3.Value = True Else UserForm1.OptionButton4.Value = True End If If re(9) = 0 Then If re(10) = 1 Then UserForm1.ComboBox1.BackColor = 128 intretour = MsgBox("Vérifiez que la catégorie des ancres dans la liste déroulante est :" & vbLf _ & " ARTEON 1T3", 64, "VERIFICATION") ElseIf re(10) = 2 Then UserForm1.ComboBox1.BackColor = 128 intretour = MsgBox("Vérifiez que la catégorie des ancres dans la liste déroulante est :" & vbLf _ & " ARTEON 2T5", 64, "VERIFICATION") Else UserForm1.ComboBox1.BackColor = 128 intretour = MsgBox("Vérifiez que la catégorie des ancres dans la liste déroulante est :" & vbLf _ & " ARTEON 5T", 64, "VERIFICATION") End If End If objJeuSel.Delete 'permet d'effacer les éléments du jeu de selection 'c'est important pour pouvoir relancer le programme. End Sub Si mon code ne t'inspire pas tu peux me transmettre ton programme et je veux bien y jeter un oeil ou le sdeux. A+

Pour ma part, j'ai réaliser un programme qui liste les données d'un bloc en particulier et il permet de ré-injecter les valeurs des attributs du bloc dans les TextBox de ma USERFORM. Est ce que tu peux être plus précis (SVP) sur l'usage que tu souhaite en faire. A+

Bonjour Bred, Tu peux mettre ton code en ligne? A+

Bonjour à tous, J'ai réalisé le test en 20 minutes sans forcé. Effectivement à la fin je discute avec les futurs embauchés pour savoir comment ils ont fait ou pour u'ils m'expliquent comment ils autaient fait pour faire ce dont ils n'ont pas eu le temps. Mais je leurs dit bien que ce n'est pas grave si la présentation et les cotations ni sont pas, même si je leurs montre ou est ce fichier test et que je leur parle trés discrètement de AUTOCAD DESIGN CENTER. A+

Salut mdsv31, Tu es embauché. Comme vous pouvez le constater c'est pas trés compliquer je ne suis pas là pour pieger les futurs candidats. A+

Voici mon test. http://cjoint.com/?hhvz3n8QMB n'hésiter pas à me donner vos avis. A+

Bonjour à tous, je re-pointe le bout de mon nez, finalement je ne pensais pas que ce sujet aller mené à temps de discussion. Pour information j'ai parcourrus rapidement les différentes reponses, dan sl'ensemble et si je me place du côté des futurs candidat j'admet que c'est pas évident de démontrer ces connaissance sur un test de 30 minutes, entre le stress, la configuration qui ne correspond pas à celle qu'on peu utiliser.... Cependant quand on est dirigeant et que cele fait le 3ème dessinateur qu'on passe en 4 semaines on est en droit de faire passer un test afin de ne pas se faire trops l'aisé par ce qui s'annonce comme des utilisateurs d'autocad et qui en réalité n'arrive même pas à aligner 2 commandes. Ayant moi même passé un test il y quelques 'années j'ai réaliser un test plutôt simple (il me semble...) je souhaité juste vérifiier les points suivants: 1) Utilisation d'un fichier bloc existant. 2) Savoir réaliser un bloc avec un attribut. 3) Utilisation de l'espace papier avec 2 fenêtres à des echelles différentes. Bref au finale le futur embauché qui c'était présenté comme un utilisateur confirmé d'autocad devait reproduire mon plan (avec les indications que j'avais mises) une coupe d'un bâtiment sur 3 files avec une symétrie sur la file centrale. Au final et après 30 minutes de test il a réalisé 2 rectangles dont un avec des hachures et 6 lignes. A votre avis dois je le conseiller à mon patron? A+

Bonjour à tous, Mon patron m'a demander de réaliser un dessin test de 30 minutes afin qu'il s'en serve pour tester les futur dessinateur qu'il va embaucher. Quelqu'un aurait déjà ça dans ses documents? A+

Merci à tous les 2, lili2006: non je n'ai pas essayé increment de "gile", mais avant de prendre un programme déjà existant je souhaite le plus possible essayé par moi même il n'y a que comme ça que je peux apprendre. Mais merci. mdsv31: je te remerci c'est exactement ce que j'ai trouvé quelque temps après avoir posté mon message. A+ et bonne fin de WEEK END

Bonjour, Je cherche à incrémenter des valeurs d'attributs pour automatiser ma création des trames de bâtiment. Quand les files sont chiffrés (1,2,3,4......) pas de problème. Par contre quand les files sont lettrées (A,B,C,D....) bin la j'ai un problème. Quelqu'un à la solution. MERCI

Merci à vous 2. Je vais faire des essais, mais d'aprés ce que j'ai entraperçu, il faudrait que mes variables soient: ECHLTP=3 CELTSCALE=1 PSLTSCALE=1 Avec ECHLTP=3 j'ai un rendu acceptable dans l'espace papier par contre quand je me met dans l'espace objet pour travailler sur des petites longueurs de ligne les types de ligne discontinue, cache... sont en continue. Je me demande si je ne devrait pas me faire un bouton me permettant de changer ECHLTP qund je passe d'un espace à l'autre afin d'avoir plus de claretée lors de l'utilisation de mon fichier. A+

Bonjour à tous, Je viens vers vous pour une re-mise à niveau concernant les echelles des types de ligne. 1) Qui peut me donner l'echelle de type global appliquer pour un plan dessiné en metre dans l'espace objet et une sortie papier au 100éme, type de ligne utilisées: cache, axe..... Afin que quand je trace une ligne dans l'espace objet la représentation de ces lignes soit agréable à l'oeil et en sortie papier que ce soit conforme à mon dessin de l'espace objet. 2) Est ce qu'il y a une norme pour les echelles en fonction des echelles? 3) Est ce que c'est possible d'avoir dans 1 seul espace papier une echelle au 10ème puis une au 100ème et obtenir le même rendus (repartition des espaces entre les traits pour un type de ligne) dans ces 2 fenêtres. Merci

Salut Griff, Voila ce que tu cherches, bien entendu il faut que tu adaptes certaines valeur car c'est une partie de code que j'utilise pour extraire les attributs d'un de mes bloc et j'envois les valeurs de attributs vers Excell. ____________________________________________________________ Public Sub TestExcel(a, b) Dim objExcel As Excel.Application Dim Classeur As Excel.Workbook Dim Feuille As Excel.Worksheet Dim Selection As AcadSelectionSet Dim varAttributs As Variant Dim intIndex As Integer Dim intRangee As Integer Dim objBloc As AcadBlockReference r = UserForm1.TextBox1.Value ' Démarrage de Excel On Error Resume Next Set objExcel = GetObject(, "excel.application") If Err <> 0 Then Err.Clear Set objExcel = CreateObject("excel.application") If Err <> 0 Then MsgBox "La macro n'a pas pu ouvrir Excel!", vbExclamation End End If End If ' Amener Excel à l'écran objExcel.WindowState = xlMaximized objExcel.Visible = True objExcel.Workbooks.Add Set Classeur = objExcel.ActiveWorkbook Set Feuille = Classeur.ActiveSheet Feuille.Name = UserForm1.TextBox1.Value ' Création de la sélection On Error Resume Next Set Selection = ThisDrawing.SelectionSets("temp") If Err <> 0 Then Set Selection = ThisDrawing.SelectionSets.Add("temp") End If Selection.Clear ' Sélection des blocs etrieriv Dim Codes(1) As Integer Dim Valeurs(1) As Variant Codes(0) = 0: Valeurs(0) = "INSERT" Codes(1) = 2: Valeurs(1) = "etrieriv" Selection.Select acSelectionSetAll, , , Codes, Valeurs ' En-tête varAttributs = Selection(0).GetAttributes For intIndex = LBound(varAttributs) To UBound(varAttributs) 'If pour ACAD14 If StrComp(varAttributs(intIndex).EntityName, "acdbattribute", 1) = 0 Then 'est-ce que l'objet est un attribut Feuille.Cells(1, intIndex + 1).Value = varAttributs(intIndex).TagString 'on met son TAG dans la cellule (ligne 1, colonne index+1) End If Next intIndex Feuille.Range("a1:" & Chr(64 + intIndex) & "1").Font.Bold = True ' Pour chaque bloc intRangee = 1 For Each objBloc In Selection varAttributs = objBloc.GetAttributes If varAttributs(0).TextString = r Then intRangee = intRangee + 1 For intIndex = LBound(varAttributs) To UBound(varAttributs) Feuille.Cells(intRangee, intIndex + 1).Value = varAttributs(intIndex).TextString 'on met les valeurs attributs dans excel Next intIndex End If Next Erreur: Selection.Delete End Sub ____________________________________________________ Si tu t'en sort pas je te mettrais mon programme à disposition et tu piochera. A+

didier: Je viens d'essayer ton code de programme, c'est exactement ce que je recherche, la boite de dialogue qui s'ouvre pour la recherche d'un repertoire est parfaite. Elle est différente de celle que moi j'obtiens qui est moin pratique que celle obtenu avec ton code. Par contre (et j'esperes ne pas être penible) je souhaites selectionner un repertoire, or dans ton code on peut selectionner que un fichier , comment je peux faire? Merci http://cjoint.com/?gjuKBoeBj7 A+

Bonjour à Tous, EXCUSE Patrick_35 mais je te remercis pour tes liens bien evidemment et pour ta réponse. J'ai mis le lien en favoris. je ferais plus attention la prochaine fois quand je remercierais de n'oublier personne. Sans rancunes j'espere? Pour didier: je vais essayer tous de suite. Merci. A+

Bonjour à tous, Merci lovecraft pour ton programme, je vais l'essayer et vérifier ce que j'ai déjà fait pour adaptation voir correction. A+

Re lili2006, en effet je viens de relire mon post j'ai oublié le PAS dans la dernière phrase. »Mais j'hésiterais PAS à poser des questions plus précise à l'avenir si j'ai un problème. A+

Salut à tous, Je vous remerci pour vos réponse mais de rage hier soir j'ai tous recommencé en partant des bases et surtout de ce que je connaissait (c'est à dire pas grand chose ...peut être). Mais je suis arrivé à faire un bout de code qui fonctionne maintenant il ne me reste plus qu'a faire une belle USERFORM et dévellopé d'autre options et je le mettrais en ligne. Comme quoi j'ai voulu gagner du temps en prenant un programme déjà fait mais finalement j'en ai perdu. Et puis c'est plus enrichissant de faire sois même. Mais j'hésiterais à poser des questions plus précise à l'avenir si j'ai un problème. MERCI A+

Bonjour à tous, Voilà 3 jours que j'essai et je n'y arrive pas. Je souhaite réaliser un programme qui parcours un répertoire que je choisirais dans lequel il y a des blocs .dwg. Ce programme ouvre tous les fichiers du repertoire execute une commande dans chaque fichiers puis les referment. Ayant en ma possession (que j'ai acheté) le bouquin de programmation VBA 2006 de Albert Thalheim, j'ai trouvé exactement ce que je voulais à la fin. Seulement quand je charge son programme (pour essayer) j'ai le message suivant http://cjoint.com/?ghr6HZjaoR Bref windows prépare autocad pour installer quelque chose????????????????????? Mais comme autocad est ouvert ça ne marche pas. Donc j'ai pris le bouquin puis j'ai fait du copiage et quand je lance mon programme il bug sur CommonDialog............ Quelqu'un à une idée LUMINEUSE. Merci A+

Bonjour vincnet14, Curieux car chez moi ça marche bien, J'ai fait un cercle, J'ai crée un attribut puis dans la valeur j'ai clicé à droite et inséré un champs (Spécificité du champ: objet»selection du cercle»position). Nota: l'attribut et prédefini et vérifié. Puis j'ai inseré ce bloc et dans mon nouveau fichier aucun problème. A+

Bonjour PIEROKA, Je suis comme toi je commence à me mettre aux objets annotatif, je trouves ça géant. A+