zebulon_

ne pas oublier le joker (ssget "_x" '((0 . "*TEXT"))) qui évite souvent de se compliquer la vie avec une liste de filtres trop longue Amicalement Vincent

ma contribution, sans copier... (defun vl-position-multi (key alist / i x nlist) (setq i -1 alist (mapcar '(lambda (x) (setq i (1+ i)) (cons x i)) alist) ) (foreach x alist (if (eq key (car x)) (setq nlist (cons (cdr x) nlist)) ) ) (reverse nlist) ) Maintenant, je peux regarder. Je constate que ça ressemble à mpos, sauf que la liste est indexée avant de faire le foreach. Je voulais aussi voir si on pouvait mettre un compteur dans un mapcar. A priori, oui ! Amicalement Vincent

on est 2 à dire la même chose à 5m d’intervalle. Le diagnostic doit donc être le bon ! Amicalement Vincent

ça doit venir de la (command "ordretrace" Select "" "ar" "") où le dernier "" doit être en trop. Et, lorsqu'une commande est terminée, le fait d'appuyer sur barre d'espace (ce que simule "" en lisp) relance la dernière commande. Du coup, ça relance ordretrace une 2ème fois, mais avec des paramètres manquants ou incomplets. C'est vrai que c'est inhabituel, car en général, les commandes demandent d'abord comment on veut faire et, après, avec quoi on veut faire (choix des objets, qu'on termine par un ""). Là, il semblerait que ce soit le contraire. Amicalement Vincent

ce qui explique pourquoi c'est précisément le Ministre du Tourisme qui a fait cette annonce et non son collègue Ministre des Antiquités Égyptiennes ! D'un autre côté, dans les 10% qu'évoque Bonuscad, il y en a certainement plus qui vont simplement se dorer la pilule à Charm el-Cheikh ou une autre station balnéaire, sans s'intéresser aux antiquités ou alors vaguement. Mais si cette trouvaille est à la mesure de ce qu'on nous promet, ce ne sera tout de même pas négligeable en terme d'image pour l’Égypte. A suivre, donc ! Amicalement Vincent

Bonjour, il me semble que la plupart des logiciels de calcul savent lire du dwg. dxf, je ne sais pas, mais sans aucun doute. Comme l'a dit Didier, le X de DXF signifie, eXchange. Donc, ce format a été conçu au départ pour échanger des informations entre plateformes différentes. Donc, dxf devrait être plus facilement accessible par un logiciel tiers que dwg. Au pire, pourquoi ne pas ouvrir le dxf avec un viewer autocad gratuit et exploiter ce qui est dessiné ? Amicalement Vincent

Ce n'était pas moi, mais je vais me le faire offrir pour Noël. Autrement, j'ai vu dans les actualités qu'il y avait du nouveau et que le landerneau de l'égyptologie était en ébullition ! On annonce rien de moins qu'un big-bang ! Enfin, pour l'instant, on ne sait pas si c'est du lard ou du cochon... On verra dans quelques semaines. Amicalement Vincent

Merci pour la précision Amicalement Vincent

La boite à sable est une technique efficace et pas chère, il n'y a pas de raison de l'abandonner pour la seule raison qu'elle a été inventée dans l'antiquité ! Pour revenir à la pyramide, j'ai une question au sujet de la chambre de la reine. Si j'ai bien compris, elle aurait été utilisée pour faire un test et voir si tout fonctionne comme prévu et c'est ce qui expliquerait le fait que le plancher de cette salle présente un décaissé, puisque ce plancher aurait été enfoncé par un vérin hydraulique. Si cette chambre a subi les mêmes contraintes (même hauteur d'eau) que celles prévues pour la chambre du roi, pourquoi n'a-t-elle pas la même structure ? Plus particulièrement au niveau de son plafond (pas de contrepoids, pas de soupape de sécurité) ? En principe, si on fait un test, il doit reproduire dans les grandes lignes les mêmes conditions que la réalité, sinon cela n'a pas beaucoup de sens... à mon sens. Mais sans doute que je fais fausse route, n'étant pas hydraulicien et encore moins égyptologue (qualité non requise, de toute manière, pour répondre à cette question technique) Merci Amicalement Vincent

Si j'ai bien compris, il s'agirait plus précisément d'un verrou hydraulique qui fonctionnerait sur le même principe qu'un vérin et qui permettrait d'ouvrir les "vraies" portes de la pyramide. Il y a quelques videos sur Youtube . Je ne sais pas si c'est la plus pertinente, l'auteur nous précisera, mais elle permet de se faire une idée de la théorie. Ce qui est séduisant, dans cette réflexion, c'est qu'elle est basée essentiellement sur des analyses de la structure interne. On se pose des questions du genre : pourquoi cela semble surdimensionné ici ? Est-ce vraiment surdimensionné ? Pourquoi est-ce en forme de caniveau là ? Pourquoi est-ce étanche par ici et pas par là ? Pourquoi la finition de la soit-disant chambre du roi est déplorable et indigne d'un pharaon ? etc... Ce genre de questions très "terre à terre". On ne s'intéresse pas à l'envol de l'âme du Pharaon qui vise je ne sais quelle étoile de la constellation d'Orion... ou d'autres explications teintées d'ésotérisme. La boite à sable est un outil qui sert toujours en construction d'ouvrages d'art, notamment lorsqu'on réalise des tabliers en poutrelles enrobées pour faire descendre ces tabliers sur leurs appuis définitifs. Certaines techniques de "décintrement" de tabliers se servent également de boites à sable. On parle de décintrement car le cintre est le nom donné abusivement à l’échafaudage qui permet de coffrer la sous-face du tablier. Autrefois les tabliers étaient cintrés, aujourd'hui ils ne le sont plus que rarement - l'intrados est le plus souvent plan - mais la terminologie est restée. Amicalement Vincent

Mais il semblerait qu'il y ait des spécialistes de la question qui jettent cette théorie aux orties, disant que seule la leur est la seule vraie de vraie. Une théorie reste une théorie et tant qu'on n'a pas prouvé qu'elle était fausse, elle a la même valeur que les autres... qui ne sont pas prouvées non plus ! L'honnêteté intellectuelle de certains détracteurs de notre ami ne semble pas être au niveau des espérances qu'on pense pouvoir mettre au crédit de gens qui se présentent comme des scientifiques ! Le futur nous dira, peut-être, ce qui était juste ou faux, et sans le concours de Daesh, enfin j'espère ! Amicalement Vincent

Pas sûr, mais c'est ce qui me semblait compte tenu de la formulation de la question. On verra ce que nous dira Groudoudou ! Parce que sinon, je ne vois pas à quoi ça sert de connaitre les codes dxf ni la structure du fichier dxf si on veut juste l'ouvrir avec Autocad et afficher le dessin qu'il contient. C'est transparent, c'est autocad qui gère ! Pas besoin de se palucher les codes dxf qui sont dedans. C'est aussi pour cette raison que j'ai dit que j'ai sans doute mal compris la question :huh: Il m'est déjà arrivé d'ouvrir un dxf avec un éditeur pour supprimer une ligne qui provoquait une erreur. Mais c'était il y a très longtemps Amicalement Vincent

Bonjour, on a rarement besoin d'éplucher un fichier dxf avec un éditeur de texte, compte tenu qu'on peut ouvrir un fichier dxf avec... autocad. Cela donne un joli dessin qui est plus facilement exploitable qu'une suite aride de codes. Mais je n'ai sans doute pas compris la demande Amicalement Vincent

Ma proposition du zeste ésotérique était bien sûr ironique... et j'ai lu la rubrique "droit de réponse" qui m'a inspirée. Il y a aussi la possibilité qu'un jour les pyramides aient le même destin que le bouddha de Bâmiyân ou la cité antique de Palmyre. Quand daech ou ses acolytes feront des recherches archéologiques sur la grande pyramide à la dynamite, on pourra enfin voir, grâce à eux, ce qu'elle renfermait ! Si, si, vous verrez ! Les iconoclastes se sont déjà attaqués au Sphinx de Guizeh pour essayer de détruire une idole païenne. C'était au moyen-âge, mais on sait que l'histoire bégaie... Cela s'est répété lors des guerres de religions pendant lesquelles les iconoclastes protestants ont mutilé des cathédrales (Bâle, Utrecht ...), lors de la Révolution Française où les iconoclastes révolutionnaires ont mis à bas les édifices religieux (Cluny etc...) et les symboles royaux (château royal d'Amboise etc...). On voit bien que les fureurs iconoclastes des talibans et de daech sont un énième épisode du même feuilleton funeste, dont la France porte malheureusement beaucoup de cicatrices. Amicalement Vincent

Bonjour, voilà une théorie séduisante. Elle est cependant trop technique et donc pas assez ésotérique pour plaire à une certaine élite. Forcément, quand on dit à des techniciens que nous sommes que la grande pyramide a été conçue par des ingénieurs hydrauliciens, cela ne peut que nous plaire ! Il faudrait donc que tu introduises un coté mystique dans ta théorie pour qu'elle ait l'heur de plaire aux brasseurs de nuages... Je te propose l'eau du Nil, dont tu supposes qu'elle aurait été utilisée pour faire fonctionner le système hydraulique. Le Nil, n'est-il pas l'artère de l'Egypte ? Et son eau, le sang qui y coule et qui, associé au Dieu Râ, nourrit le pays d'Egypte et ses habitants, grâce à la renaissance que provoque son inondation annuelle. Si tu dis que le système hydraulique fonctionne avec du sang divin, ça aurait tout de suite une autre gueule :D Plus un zeste de Pi et de nombre d'or et tu mets tout le monde dans ta poche... En plus, Nil en lisp, c'est le rien à partir duquel tout se crée : une référence à ne négliger d'aucune manière ! Plus sérieusement, je croyais que la communauté scientifique avait appris les leçons de son histoire. Sans revenir à Galilée, je viens de lire une biographie du Professeur Semmelweiss, un médecin qui a été rejeté par l'institution, malgré les résultats spectaculaires de ses théories. L'institution médicale ne pouvait simplement pas admettre que se sont ses pratiques qui ont causé la mort de milliers d'enfants et de mères. Les médecins de l'époque ont donc préféré continuer dans leur erreur plutôt que de la reconnaitre et la corriger ! Pour la petite histoire, le destin de ce professeur d'avant garde a été le sujet de thèse d'un certain Docteur Louis Destouches, plus connu sous son nom de plume Louis-Ferdinand Céline. Et des histoires comme ça, on peut en trouver par dizaines... Amicalement Vincent

Bonjour, c'est toujours remarquable de voir qu'un même problème peut donner une multitude de solutions. Personnellement, j'ai eu plus de mal à résoudre la conversion numérique->minéralogique. La conversion dans l'autre sens a été plus simple et, d'ailleurs, nos deux solutions sont très semblables à part que chez moi c'est une itération et chez toi une récursion. Amicalement Vincent

Bonjour, le but du jeu est de faire une fonction qui fait correspondre à un nombre un texte de type plaque minéralogique (exemples : 1-> "A", 26-> "Z", 31-> "AE" etc...) et une autre fonction qui fait l'inverse. Le problème principal vient du fait que la numération minéralogique ne contient pas de 0 (le 0 est une invention géniale, on s'en rend compte ici :P) et on passe directement de "Z" à "AA", sans passer par un "Azéro". Un peu comme si on passait directement de 1..9 à 11..19 etc... en décimal ! Un handicap majeur ! (defun itoa26 (X / RES RESTE) ;; en entrée ;; X >= 1 ;; en sortie ;; numéro minéralogique correspondant ;; exemple : ;; (itoa26 28) -> "AB" ;; (setq RES "") (while (>= X 26) (setq RESTE (REM X 26) X (fix (/ X 26)) ) (and (zerop RESTE) (setq RESTE 26 X (- X 1) ) ) (setq RES (strcat (chr (+ RESTE 64)) RES)) ) (or (zerop X) (setq RES (strcat (chr (+ X 64)) RES)) ) RES ) (defun atoi26 (X / lst I RES) ;; en entrée ;; un numéro minéralogique "AB" ;; en sortie ;; numéro décimal correspondant ;; exemple : ;; (atoi26 "AB") -> 28 ;; (setq lst (reverse (vl-string->list (strcase X))) I 0 RES 0 ) (repeat (length lst) (setq RES (+ RES (* (- (nth I lst) 64) (expt 26 I))) I (1+ I) ) ) RES ) (defun c:test (/ I N) (vl-load-com) (setq I 1) (repeat 800 (print (strcat (itoa I) " " (setq N (itoa26 I)) " " (itoa (atoi26 N)) ;; pour voir si on retombe sur nos pieds ) ) (setq I (1+ I)) ) (princ) ) Amicalement Vincent

Bonjour, (length nil) renvoie 0, puisque nil est considéré comme une liste vide. (sslength nil) renvoie une erreur, nil n'est pas un jeu de sélection. Il faut donc se méfier quand on fait quelque chose du genre : (repeat (sslength js) ... ) et vérifier en amont que le ssget qui a créé js a bien donné autre chose que nil. Amicalement Vincent

Bonjour, j'ai aussi testé le ferraillage en 3D... Cela donne des fichiers énormes et ça prend du temps, mais ça fait son effet auprès de l'entreprise. Amicalement Vincent C1024-B-File3FerraillageSemelle.pdf

et avec autocad de base, pour terminer la réponse qui était incomplète. Ci-joint le coffrage d'une pile, pour illustrer mon propos. C'est une affaire un peu ancienne, pas encore tombée dans le domaine public, mais on ne m'en voudra pas si je publie ce plan. Il est vrai que, même si c'est moi qui l'ai dessiné, il ne m'appartient pas, mais aux sociétés qui figurent sur le cartouche. On va dire que ça leur fera de la pub... pour autant qu'ils en ont besoin ! Le coffrage de la culée est du même tonneau. Le reste (plan d'implantation, coffrage du tablier et tous les ferraillages) sont en 2D. Veux-tu aussi savoir ce que j'utilise pour ferrailler ? Amicalement Vincent PS196-PILcof124-D.pdf

en 2D avec des détails 3D (géométrie des piles et des culées). Pour la géométrie des tabliers, la 3D apporte peu... Amicalement Vincent

tant pis, il faudra sans doute que j'attende un peu pour les réparer... Des ouvrages neufs, ce sera pour une prochaine fois. Tiens moi au courant le cas échéant. Amicalement Vincent

(defun c:laysel (/ SS FILTRE I E LAY) (setq SS (ssget)) (if SS (progn (setq FILTRE '((-4 . "OR>")) ) (setq I 0) (while (< I (sslength SS)) (setq E (entget (ssname SS I))) (setq LAY (assoc 8 E)) (setq FILTRE (cons LAY FILTRE)) (setq I (+ I 1)) ) (setq FILTRE (cons '(-4 . "<OR") FILTRE)) (setq SS (ssget "_X" FILTRE)) (sssetfirst SS SS) ) ) (princ) ) un lisp tout simple qui permet de sélectionner par désignation. L'idée est de pouvoir désigner plusieurs objets (avec ssget) sur différents calques et que cela sélectionne tous les éléments de tous les calques désignés par un de leur représentant. Amicalement Vincent

Bonjour, content que cela t'aie rendu service. Un cmdecho à 0 rendrait peut être le déroulement des commandes xref plus fluide, compte tenu du nombre ! 300 xref dans un fichier, cela me laisse rêveur... moi qui n'en ai jamais plus que 2 ou 3, et encore... On ne fait pas le même métier, même si j'utilise aussi des données de tracé routier. Mais pour faire des projets d'ouvrages d'art. Cela reste de ce fait très local et ne mobilise le plus souvent qu'un seul fond de plan topo, le fichier de projet et le fichier du rétablissement. J'ai fait pas mal d'ouvrages, notamment pour la LGV Est, la LGV Rhin-Rhône et la LGV BPL. En ce moment, je travaille sur des réparations d'ouvrages (précontrainte additionnelle) ainsi que sur la sécurisation et la restructuration de la Grande Forme des Chantiers Navals de La Ciotat. Les ouvrages neufs se font rares. Donc, si sur tes 30km de projet, il y a quelques ouvrages à dessiner, je suis preneur ! Amicalement Vincent

(defun massoc (key alist / x nlist) (setq nlist nil) (foreach x alist (if (eq key (car x)) (setq nlist (cons (cdr x) nlist)) ) ) (reverse nlist) ) (defun c:detxref (/ EPOLY PTLIST SS I NOM selxref lxref bl) (command "_.undo" "_group") ;; sélectionner un polyligne fermée ou non (while (not (and (setq EPOLY (car (entsel "\nSelectionner une polyligne : "))) (= (cdr (assoc 0 (entget EPOLY))) "LWPOLYLINE") ) ) ) ;; extraire les sommets de la polyligne (setq PTLIST (massoc 10 (entget EPOLY))) ;; faire un ssget avec ces points (setq ss (ssget "_CP" ;; capture polygone (mapcar '(lambda (x) (trans x 0 1)) PTLIST) ;; en coordonnées locales '((0 . "INSERT")) ;; uniquement les blocs ) ) (setq I 0) (if ss (repeat (sslength ss) (setq NOM (cdr (assoc 2 (entget (ssname ss I))))) (setq I (+ I 1)) (if (= (logand (cdr (assoc 70 (tblsearch "BLOCK" NOM))) 4) 4) ;; on ne garde que les xrefs (setq selxref (cons NOM selxref)) ) ) ) ;; obtenir la liste des xrefs présents dans le fichier (setq Bl (tblnext "BLOCK" T)) (while bl (setq NOM (cdr (assoc 2 BL))) (if (= (logand (cdr (assoc 70 bl)) 4) 4) ;; on ne garde que les xrefs (setq lxref (cons NOM lxref)) ) (setq BL (tblnext "BLOCK")) ) ;; détacher les xref qui ne sont pas dans selxref (foreach nom lxref (if (not (member nom selxref)) (command "_.-XREF" "_d" nom) ) ) (command "_.undo" "_end") (princ) ) je n'ai pas regardé ce que ça donne avec des xrefs imbriqués. Par ailleurs, la sélection se fait par une lwpoly. Si ça doit être autre chose, il faut voir d'utiliser la fonction selobj développée par (gile) Amicalement Vincent