Curlygoth

POur ça rendez vous dans Outils => personnalisation Menus... et dans l'onglet en haut transférer ! Ensuite enresgistrer sous ! ca va te creer un .cuix que vas pouvoir cerer dans le meme enu mais pas dans transferer cette fois

echelle du bloc / Echelle de la hachure Vérifie toutes tes unités des dessin / Bloc et echelle de ta hacvhure quand tu decomposes tes objets de ton blocs se mettent à jour avec les unités dessin !

Oui mais ton pc tournera quand emem pour l'ouverture / Carger les xref et compresser... ça change rien ! @didier XD = 😆

comment ça tu ne peux pas faire de Polyligne ? Tes points rouge c'est les endroits ou tu n'es pas "fermé"

Soit tranquille tu ne le mangeras pas XD Je suis plus dans cette optique là ^^ (enfin pour les challenges)

un truc comme ça ? : attention c'est du VBA

(je vais me faire insulter mais c'est pas grave je vais le dire quand meme : ) Le F# Me fait pensé un peu au VBA / VB.NET c'est rigolo ^^ Si la démo de didier sur ces 10.000 points est rapide comme ça... le vba ne fera pâs mieux ! par contre je vais aller au bout de ce challenge et vous donnez du coup le temps nécessaire au code VBA pour traiter 10.000 point voir plus ! parce que la effectivement je pense qu'on pourra comparer "l'efficience de deux code" J'ai des entetiens a préparer, un véhicule à retaper donc je le ferais pas de suite mais je le ferais !

Wow ! c'est vrai tu as totalement raison ! (je suis en demi droite) donc plus partie droite de ta ligne rouge et de ta ligne verte et partie gauche de ta ligne jaune ! mais oui je vois bien la problématique ! et bien écoute je te remercie de ton retour je vais trouver effectivement une alternative à cette problématique... Vérifier si un point d'intersection est aussi un point de la polyligne ? et si c'est le cas je l'ignore .. attend dans le cas de la ligne jaune ça marche pas XD Allez je vais reflechir à ça 😉

Moi je me prend pas la tête je demande ce que veux le client certain préfère gerer des blocs d'autres des x-ref, d'autres rien de tout ça... enfin bon, c'est pour ça que je fais en sortes d'avoir des "moteurs de génération" pour avoir calques, les chargement de type de ligne perosnnalisé, les blocs a insérer etc etc... Comme dit Fraid il n'y a pas de règle, donc je fais ce que le client me demande ^^

Verifier si un point est dans une polyligne : Function Point_dans_Polyligne(PolyLigne, PT_TEST) As Boolean Dim Pt1(0 To 2) As Double Dim Pt2(0 To 2) As Double Dim Droite As AcadRay Dim Points As Variant Pt2(0) = PT_TEST(0) + 1 Pt2(1) = PT_TEST(1) Pt2(2) = PT_TEST(2) Set Droite = ThisDrawing.ModelSpace.AddRay(PT_TEST, Pt2) Droite.Update PointsINT = PolyLigne.IntersectWith(Droite, acExtendNone) Droite.Delete Dim NbrePoints As Integer NbrePoints = UBound(PointsINT) / 3 Point_dans_Polyligne = False If NbrePoints Mod 2 = 0 Then Point_dans_Polyligne = False Else Point_dans_Polyligne = True End If End Function

je pensais réfléchir par moi même mais effectivement s'il y a des exemples ça ira plus vite XD

a donc si je comprends bien on parle d'un nuage de point dans le plan et il faut définir quels sont les points qui délimite l'extérieur ? pour ensuite les comparer a d'autres ? MMmm... donc je prends les 3 premiers points dasn le nuages et je tests s'il y a des points plus excentré ? C'est faisable en VBA... mais à ma connaissance je vais partir de zéro ^^ il n'y a pas de date limite ? xD

je demande rien ^^ juste des pistes ! moi ça me va ! mais du coup tu prends des deltas Z pour checker et voir si ton point est dedans ou non ^^ enfin c'est ce que je comprends dans ton message ^^ moi je pensais relié les point pour faire une triangulation de tous les points pour faire un mappage et tester le point via la solution que j'ai mis plus haut en calculant le nombre dintersection entre les face 3D (en union pour pas faire autant de boucle que de faces XD) et compter le nombre de point d'intersection

en 2D je saurais le faire en testant si le point est dans la polyligne ou non si en parle de 3D je passe mon tour XD (j'utilise la technique du nombre d'intersection d'une demi droite a partir d'un point si le nombre de point est impair on est dedans sinon on est dehors ^^) Je donne la source pour les curieux : http://maxence.delannoy.pagesperso-orange.fr/pt_poly.htm En 3D avec un nuage de points il faudrait relié les points en eux pour creer des face 3D et ensuite meme systeme tester les point a l'interieur et "compter le nombre d'intersection" je suis d'accord ! moi je dis : je pense que se serait réalisable pour moi ^^ en VBA mais je le ferais pas demain XD

je ne contredit pas fraid... (même si j'avoue avoir un moteur de génération de calque, je trouve ça plus dynamique mais bon c'est que mon point vu sur les calques) pour revenir a ton "coup de gueule" je pense qu'on a (chacun d'entre nous) et surtout que les meilleurs (que je me permets de cité haut et fort ! ( @didier, @Fraid, @(gile),@Olivier Eckmann ) ont répondu pour te répondre avec chacun une solution ! Prend celle qui te convient 😉 PS : Je rejoins (Gile) sur la réponse d'Olivier Eckmann... pour écrire du sendcommand ou du lisp en vba autant faire du lisp XD

reste zen. Regarde l'explorateur que je t'ai envoyé, il est pas tres sexy mais il fait le taf et pourra en plus selctionner plusieurs fichiers qui ne sont pas dans le même dossier !

j'ai jamais dit l'inverse ^^ mais je fais avec ce que je connais

a par rapport à l'efficience ? j'en sais rien du tout je connais pas le lisp... je connais le VBA .. quand je connaitrais les deux et surtiout quand j'aurais votre excellent niveau je jugerais... pour l'instant je connais le vba je fais avec ^^ Je cherche un gagner des heures de travail pas des secondes... mais je vous rejoins totalement le vba est peut etre pas le plus rapide mais pour moi le plus abordable pour l'instant ^^

Didier je t'invite a regarder mes video qui sont sur mon site ^^ et si tu es encore sceptique : lien supprimé

Laisse moi te prouver (justement) le contraire 😉

Salut, alors tu as plusieurs solution : 1°) tu connais par coeur les chemins complets de tes fichiers et tu peux entrer le chemin dans un inputbox (je blague) 2°) Tu utilise le filedialogue de ms-office ! Dans les références tu coches Micorsoft Excel XX.0 Object librairy Tu crée ta collection : Dim xlApp As Excel.Application Set xlApp = CreateObject("Excel.Application") MonFichier = xlApp.GetOpenFilename("Tous les fichiers (*.*),*.*") 'l'emplacement et le nom du fichier texte et tu remplace "*.*" par l'extrension que tu veux sélectionner "*.csv" pour ne voir que les fichiers csv ... 3°) Tu télécharges mon explorateur a tes risque et péril ^^ (mais un retour sur erreur serait cool)

ou peu utiliser les opérations : Union Intersection et Soustraction qui devrais t'aider a faire ta réservation 😉

A d'accord ! tu as un bloc 1x1 que tu gères suivant l’échelle X Y ! Alors effectivement c'est une solution ! J'en est une autre pour toi = fait un bloc dynamique avec 2 valeurs une X et Une Y tu pose ton bloc et déroule tes poignés et c'est fini ! tu ne te prendrais plus la tete avec ces facteurs d'echelle ^^ tu auras une longueurs de X unité et une hauteurs de Y unités

A ok... ben c'est possible... Mais a ce moment là pourquoi faire un etransmit XD

ben mon systeme c'est pareil... tu ouvres un dessin vierge et tu cliques sur le dossier et ça cherche tous les dwg dans les dossiers et sous dossiers... mais je vois pas l'interet sauf pour comparer autant dezipper et ouvrir le fichier principal non ?