didier

Bonjour Pas mal mais... ça reste un MSI et du coup, il prend un coefficient minorant ses qualités sur le papier...

Bonjour @Curlygoth Je ne comprends malheureusement pas ce que tu écris. Est-il possible de faire des messages un peu moins sibyllins ? Il n'y pas de taxes sur l'utilisation des touches du clavier. Une explication, un développement de la remarque facilite la lecture et la compréhension. En reprenant ton dernier message je lis : Fausse alerte, de quelle alerte parles-tu ? Et ensuite : ne prends pas en compte certaines exceptions de quelles exceptions est-il question ? Je ne dis pas que tes remarques sont infondées, je dis qu'elles sont obscures. Amicalement

Coucou Ah bien sûr... si vous allez chercher les solutions dans l'aide d'AutoCAD... vous serez toujours les plus forts. Étape 1 : aller voir l'aide Si on ne trouve pas passer à l'Étape 2 : Retourner dans l'aide... Si on ne trouve toujours pas passer à l'Étape 3 : Aller sur des forums... Amicalement

Bonjour Il me semblait portant avoir été explicite dans mes "définitions" du mot "macro". J'en parle dans la description du VBA... Le souci de vocabulaire vient des "macros" Excel en opposition aux Macros DIESEL je pense. C'est comme le mot "routine" qui est utilisé pour "programme", quand est-ce une routine ? quand devient-elle programme?. Je dirais que la routine est une suite de commande genre traitement par lot pour ceux qui se souviennent des fichiers batch, et elle devient programme quand on fait appel à des "calculs", mais je ne suis pas dépositaire su savoir absolu. Amicalement

Bonjour @rrobert J'ai pris en compte la remarque émise par Steven concernant la lisibilité de mes messages. Par coquetterie, je me plaisais à me "différencier" par une couleur différente et mes messages, se voulant plus lisibles sont au contraire devenus illisibles (quasiment). Je n'utilise plus cette couleur pour écrire mes messages ne sachant pas dans quelle configuration de fond, clair ou foncé, ils seront lus. Si c'est vraiment rédhibitoire je les éditerai, faites-le-moi savoir. Amicalement

Bonjour @rrobert Content que ça corresponde à la demande. Toutefois, ce jeu de sélection en tant que tel n'est pas forcément utile. Il est possible de lancer une action sur les bons blocs depuis le premier jeu de sélection en lançant l'action pendant le premier filtrage, ça évite une boucle plus ou moins longue suivant le nombre de blocs. Que ce soit une copie ou une intervention sur les attributs. Amicalement

Bonjour @bechamel93 La commande est _XEDGES ou XARETES en français. Je me permets de conseiller de créer un nouveau calque vierge avant de lancer cette commande, car en cliquant sur un solide des lignes vont se créer dans le calque courant qu'il sera facile d'isoler plus tard pour créer les délimitations des faces supérieures, le solide restant intact sur son calque d'origine. Je me permets d'attirer votre attention sur les faces verticales, Covadis ne les gère pas et s’il y a un ressaut dans la dalle, il va falloir créer une "fausse" verticale en décalant la base de quelques centimètres pour que le MNT soit représentatif. Si la dalle est simple (un seul plan) il est facile de dessiner deux faces 3d de trois points en s'accrochant sur les sommets, et ensuite faire un MNT objet avec ces deux faces. Amicalement

Bonjour @rrobert Bon ça y est, je me suis libéré de mes autres tâches et j'ai enfin pu regarder ce qui nous tracassait. Je n'ai pas réussi à retirer des items d'un array, aussi je me suis rabattu sur la création d'un nouveau de sélection depuis un filtre fait dans le premier jeu de sélection. Je demande une sélection de bloc "exemple", ce sera celui qui sera filtré in fine. Je fais un premier jeu de sélection avec filtre qui localise en fonction de l'étage tous les blocs dynamiques, ensuite je boucle à l'intérieur de cet array pour trouver les blocs qui correspondent à l'exemple, je crée un nouveau filtre en fonction de la valeur "U" trouvée, et avec ce filtre je crée finalement le jeu de sélection qui est demandé par rrobert. Je pense être dans le vrai, je me suis un peu enquiquiné avec les valeurs de U, en effet le bloc prend une nouvelle valeur de U quand un paramètre est modifié, si une copie du bloc est réalisée sans qu'on change de paramètre dans la copie, on aura deux blocs avec le même EffectiveName et le même Name (U*). Suis-je clair ? Ne disposant pas du savoir universel (surtout en VBA) je suis friand de voir les autres réponses pour améliorer mon niveau bien bas. Je pense qu'il est temps de savoir ce qu'il faut faire de ce jeu de sélection, car si ça se trouve on peut se passer de toutes ces pirouettes... Amicalement Sub Test2_rrobert() Dim jsFiltre1 As AcadSelectionSet Dim jsFiltre2 As AcadSelectionSet Dim SelRef As AcadEntity Dim FilterType(1) As Integer Dim FilterData(1) As Variant Dim ptSel As Variant Dim Pt1(0 To 2) As Double Dim Pt2(0 To 2) As Double Dim nomBlocDyn As String Dim i As Integer Dim filtreU As String Dim blocRef As AcadBlockReference Dim etage As Integer etage = ThisDrawing.GetVariable("useri1") '--------------------------------- ThisDrawing.Utility.GetEntity SelRef, ptSel, vbCr & "Sélectionnez le bloc de référence" nomBlocDyn = SelRef.EffectiveName & ",`*U*" Set jsFiltre1 = ThisDrawing.SelectionSets.Add("JS1") Set jsFiltre2 = ThisDrawing.SelectionSets.Add("JS2") FilterType(0) = 0 FilterData(0) = "INSERT" FilterType(1) = 2 FilterData(1) = nomBlocDyn Pt1(0) = 0#: Pt1(1) = etage: Pt1(2) = 0# Pt2(0) = etage: Pt2(1) = etage + 49.99: Pt2(2) = 0# jsFiltre1.Select acSelectionSetWindow, Pt1, Pt2, FilterType, FilterData nomBlocDyn = SelRef.EffectiveName For Each blocRef In jsFiltre1 If blocRef.IsDynamicBlock Then If blocRef.EffectiveName = nomBlocDyn Then filtreU = filtreU & ",`" & blocRef.name End If End If Next filtreU = nomBlocDyn & filtreU FilterData(1) = filtreU jsFiltre2.Select acSelectionSetWindow, Pt1, Pt2, FilterType, FilterData jsFiltre2.Highlight (True) Select Case jsFiltre2.Count Case 0 MsgBox "Aucun bloc trouvé" Case 1 MsgBox jsFiltre2.Count & " bloc trouvé" Case Is > 1 MsgBox jsFiltre2.Count & " blocs trouvés" End Select jsFiltre1.Delete jsFiltre2.Delete End Sub

Bonjour Super ! Le forum a parfaitement joué son rôle d'entraide. J'en profite pour remercier @Luna pour les efforts qu'elle fait. Des réponses explicites, développées, argumentées, avec les mots clés mis en évidence, c'est tout à fait l'esprit du site. Un grand MERCI à toi, de ma part et sans doute d'autres lecteurs... Amicalement

Bonjour @dfbiagio Non je n'ai pas testé avec le lsp mais comme ce n'est pas un "programme", c'est juste un lancement de la commande comme "à la main" je ne vois pas en quoi ça peut intervenir. Amicalement

Bonjour @dfbiagio Merci. Plusieurs ouvertures/fermetures plus tard je ne constate rien de particulier au niveau de ces hachures. Ne pouvant reproduire le souci, il m'est impossible de donner une piste de recherche. Désolé. Amicalement

Bonjour @yubari Ce n'était pas une réponse, mais une question Maintenant qu'on sait qu'il est question de Civil 3D on va laisser les spécialistes s'exprimer. Ce n'est pas mon cas, ils sont peu nombreux en fait sur CadXP. Poser la question dans un autre forum me semble une bonne idée. Amicalement

Bonjour @Curlygoth Est-ce que tu peux donner un code fonctionnel pour le souci exprimé par @rrobert? L'aide AutoCAD, on a tous la même... Mais l'aide à la question posée n'est pas concernée par ces extraits. Pour l'instant la solution n'a pas été exprimée sur le site. Je ne suis pas dans ma zone de confort avec le VBA, je me suis mis à m'en servir seulement pour mon site et pour répondre aux questions. Merci d'avance. Amicalement

Bonjour @dfbiagio est-il possible de déposer le fichier sur le site pour vérifier le comportement dans un autre environnement ? Amicalement

Bonjour @rrobert Effectivement je n'ai pas vérifié avec d'autres blocs dynamiques... (en fait ce sont les blocs dynamiques dont on a modifié un paramètre car ils deviennent anonymes à ce moment-là) Je ne vois pas tout de suite comment faire étant sur autre chose, Tu peux te documenter et trouver toi-même la solution d'itérer le jeu de sélection et utiliser (je pense) RemoveItem. Je te réponds dès que je peux m'y mettre À bientôt

Bonjour @rrobert Je ne comprends plus les questions, j'ai répondu à la demande : sélectionner les blocs dynamiques dont le nom correspond à celui montré en exemple. Ce que j'ai écrit le fait, pourquoi vouloir en retirer de la sélection ? Elle est filtrée. Sauf erreur (toujours possible le dessin fourni étant tellement simpliste) il me semble que le filtre est efficace. Autre chose : Attention aux unités de dessin et aux blocs insérés en échelles 0.001, ça fait désordre Amicalement

Bonjour @yubari Quelquefois les questions sont posées sur Civil et d'autres fois sur Covadis En l'occurrence la réponse doit être sur quel environnement ? Amicalement

Bonjour @rrobert Je n'ai pas lu ta prose, mais elle me semble quelque peu verbeuse Je te propose ceci : Il va falloir montrer le bloc à sélectionner, puis une sélection de ce bloc va se lancer sur l'emprise de l'étage. C'est améliorable à l'infini, mais je reste simple pour que tu comprennes bien, pas à pas. Amicalement Sub Test_rrobert() Dim ssFiltre As AcadSelectionSet Dim SelRef As AcadEntity Dim FilterType(1) As Integer Dim FilterData(1) As Variant Dim ptSel As Variant Dim Pt1(0 To 2) As Double Dim Pt2(0 To 2) As Double Dim nomBlocDyn As String ThisDrawing.Utility.GetEntity SelRef, ptSel, vbCr & "Sélectionnez le bloc de référence" nomBlocDyn = SelRef.EffectiveName & ",`*U*" Set ssFiltre = ThisDrawing.SelectionSets.Add("SS") FilterType(0) = 0 FilterData(0) = "INSERT" FilterType(1) = 2 FilterData(1) = nomBlocDyn Pt1(0) = 0#: Pt1(1) = 50#: Pt1(2) = 0# Pt2(0) = 99#: Pt2(1) = 99#: Pt2(2) = 0# ssFiltre.Select acSelectionSetWindow, Pt1, Pt2, FilterType, FilterData ssFiltre.Highlight (True) MsgBox ssFiltre.Count & " blocs sélectionnés." ssFiltre.Delete End Sub

Bonjour @Fruity Une idée, oui... Je te propose ça qui est plus du traitement par lot que de la programmation, mais qui devrait faire le travail demandé Pas de test, une simple ébauche pour voir si je suis dans la demande. Amicalement (setq ss (ssget)) (setq valray (getreal "\nValeur du rayon ?\n")) (setq n -1) (repeat (sslength ss) (command "_fillet" "p" "ra" valray (ssname ss (setq n (1+ n))) ) )

Bonjour @dfbiagio La question est mal posée, car je n'avais pas compris que les hachures changeaient avec le temps. Si je comprends bien le dernier message il semble que la hachure est correcte à la création et qu'elle ne l'est plus lors d'une session différente d'AutoCAD ? Ai-je compris ? Si oui je n'ai pas de réponse, car je n'ai JAMAIS, au grand JAMAIS, constaté ce dysfonctionnement. Que les hachures se dessinent mal, que le contour soit imparfait, OUI, qu'elles varient avec le temps NON. Amicalement

Bonjour @rrobert C'est OK, le sujet est clos ou faut-il proposer une solution ? Amicalement

Bonjour @Luna Merci beaucoup. Amicalement

Bonjour @rrobert Pour le coup, c'est vraiment minimaliste ! Trop d'ailleurs, j'aurais aimé un fichier avec des entités, je vais les rajouter pour tester les filtres... Je vais voir ce que je peux te proposer, mais pas dans les minutes ni dans la journée qui vient, je suis over full sur autre chose. Amicalement

Bonjour @Luna Bien vu pour le Français, @Cadmin travaille en arrière-plan et c'est une très bonne chose. Toutefois, je me suis permis de lui chanter ma petite chanson : le mieux est l'ennemi du bien, ce qui signifie que sauf alerte de dysfonctionnement avéré je suis d'avis de laisser en l'état. On est tous confrontés au syndrome de "je peux faire mieux" et à la fin, c'est le diable bug qui gagne... Question : Comment on change de fond ? Clair ou foncé ? Car je suis coquet et j'aime écrire lisiblement en couleur, donc j'aimerais changer pour trouver la mise en page aussi lisible en foncé qu'en clair. Amicalement *

Bonjour @Steven Je te remercie de cette précision et vais en tenir compte Amicalement