DenisHen

Je pense que tu n'utilise pas l'éditeur de Lisp intégré à AutoCAD... Tape 'VLIDE en ligne de commande (avec l'apostrophe). Si non, il faudra régler le code de caractères qu'utilise l'utilisateur dont tu te sert (ce qui n'est pas conseillé).

Ok. je ne comprend pas cette erreur "clayer"... ? ? ?

Je pense que c'est le style de texte qui ne doit pas avoir de hauteur dans les paramètre de la commande "style".

Merci pour ton aide. Mais c'est curieux, l'entité garde la couleur fixée et ne passe pas à ByLayer... mais la couleur "DuCalque" n'est pas -1 ou 256 ? PS : je confirme, 256 est la couleur "DuCalque". Encore merci.

Que te propose t'il en ligne de commande ? Quelle style de texte est le courant ?

Bon, j'ai réussi un truc, je ne sais pas si ça te conviendra... Mais je pense être arrivé à mes limites... Voici la totalité des codes (attention à replacer ce que tu as écris que je n'ai pas) : ;;; *********************************************************** ;;; Dessine un contour, puis place un texte incrémenté et la ;;; surface dans un multitexte et dans des Xdata ;;; Pour Hydro8 de CadXP.com ;;; *********************************************************** (defun c:Hydro8_Poly (/ old_osmd PrefixIncrement ValIncrement Option1 Option2 MText EcritText) (princ "\nDéveloppé par Denis H. (v:1.7)") (defun EcritText (/ xSurf xMatri Pt_Deb_Fle) ;; (setq xMatri (strcat PrefixIncrement (itoa ValIncrement))) (SetXdataForApplication (entlast) "Matri" (list (cons 1000 xMatri))) (setq xSurf (rtos (getpropertyvalue (entlast) "Area") 2 1)) (SetXdataForApplication (entlast) "Surf" (list (cons 1000 xSurf))) ;; ;;(setq Pt_Deb_Fle (getpoint "\nCliquer l'emplacement du texte :")) ;_ Fin de setq (setq Pt_Deb_Fle (getpoint "\nPointe de la flèche : ")) (setvar "osmode" 0) (setq Pt_Fin_Fle (getpoint Pt_Deb_Fle "\nPied de la flèche : ")) ;; ;; ;; ;; ;; (initget "Altitudes sansProfondeur sansHauteur sansLimite") (setq Option3 (getkword (strcat "\nChoix des textes [Altitudes/sansProfondeur/sansHauteur/sansLimite] <Altitudes> : ") ;_ Fin de strcat ) ;_ Fin de getkword ) ;_ Fin de setq (cond ((= Option3 "Altitudes") (setq Opt3 "Altitudes")) ((= Option3 "sansProfondeur") (setq Opt3 "sans profondeur")) ((= Option3 "sansHauteur") (setq Opt3 "sans hauteur")) ((= Option3 "sansLimite") (setq Opt3 "sans limite")) (T (setq Opt3 "Altitudes")) ) ;_ Fin de cond (setq MText (strcat "\\H1.2\\L" PrefixIncrement (itoa ValIncrement) "\\l\\P\\H1S=" xSurf "m²\\P" Opt3)) (command "_.-MTEXT" Pt_Fin_Fle "J" OptionIns "H" 1.0 Pt_Fin_Fle MText "") ;; ;; ;;;Défini les quatre coins du MText de (gile) (princ "\nDéfini les quatre coins du MText de (gile)") (setq MTxt (entlast)) (setq elst (entget (entlast))) (if (= "MTEXT" (cdr (assoc 0 (entget (entlast))))) (setq nor (cdr (assoc 210 elst)) ref (trans (cdr (assoc 10 elst)) 0 nor) rot (angle '(0 0 0) (trans (cdr (assoc 11 elst)) 0 nor)) wid (cdr (assoc 42 elst)) hgt (cdr (assoc 43 elst)) jus (cdr (assoc 71 elst)) org (list (cond ((member jus '(2 5 8)) (/ wid -2)) ((member jus '(3 6 9)) (- wid)) (T 0.0) ) ;_ Fin de cond (cond ((member jus '(1 2 3)) (- hgt)) ((member jus '(4 5 6)) (/ hgt -2)) (T 0.0) ) ;_ Fin de cond ) ;_ Fin de list plst (mapcar (function (lambda (p) (mapcar '+ org p))) (list (list (- 0.1) (- 0.1)) (list (+ wid 0.1) (- 0.1)) (list (+ wid 0.1) (+ hgt 0.1)) (list (- 0.1) (+ hgt 0.1)) ) ;_ Fin de list ) ;_ Fin de mapcar ) ;_ Fin de setq (setq box (textbox elst) ref (cdr (assoc 10 elst)) rot (cdr (assoc 50 elst)) plst (list (list (- (caar box) 0.1) (- (cadar box) 0.1)) (list (+ (caadr box) 0.1) (- (cadar box) 0.1)) (list (+ (caadr box) 0.1) (+ (cadadr box) 0.1)) (list (- (caar box) 0.1) (+ (cadadr box) 0.1)) ) ;_ Fin de list ) ;_ Fin de setq ) ;_ Fin de if (setq mat (list (list (cos rot) (- (sin rot)) 0) (list (sin rot) (cos rot) 0) '(0 0 1)) ;_ Fin de list plst (mapcar (function (lambda (p) (mapcar '+ (mxv mat p) (list (car ref) (cadr ref)))) ;_ Fin de lambda ) ;_ Fin de function plst ) ;_ Fin de mapcar ) ;_ Fin de setq (setq Pt1 (list (car (nth 0 plst)) (cadr (nth 0 plst)))) (setq Pt2 (list (car (nth 1 plst)) (cadr (nth 1 plst)))) (setq Pt3 (list (car (nth 2 plst)) (cadr (nth 2 plst)))) (setq Pt4 (list (car (nth 3 plst)) (cadr (nth 3 plst)))) (setvar "osmode" 0) ;; ;; ;;;Calcul du gisement de la flèche selon son sens (princ "\nGisGrd") (setq GisGrd (gisement Pt_Deb_Fle Pt_Fin_Fle)) ;;(setq Angl_Txt pi ) (setq GisGrdSnapAng GisGrd) ;;(+ Angl_Txt GisGrd)) (if (>= GisGrdSnapAng 400) (setq GisGrdSnapAng (- GisGrdSnapAng 400) ;_ Fin de - ) ;_ Fin de setq ) ;_ Fin de if (cond ((and (>= GisGrdSnapAng 0) (< GisGrdSnapAng 100)) (setq OptionIns "BG")) ((and (>= GisGrdSnapAng 100) (< GisGrdSnapAng 200)) (setq OptionIns "HG")) ((and (>= GisGrdSnapAng 200) (< GisGrdSnapAng 300)) (setq OptionIns "HD")) ((and (>= GisGrdSnapAng 300) (<= GisGrdSnapAng 400)) (setq OptionIns "BD")) ) ;_ Fin de cond ;; ;; (princ "\nDébut Long/Larg") (setq Long 2) ;largeur de la tête de la flèche (setq Larg 1) ;largeur du pied de la flèche ;; (princ "\nOptionIns") (cond ((= OptionIns "BG") (setq p3 (polar Pt_Deb_Fle (angle Pt_Deb_Fle Pt1) Long)) (setq PtA1 (polar Pt4 (angle Pt4 Pt1) (/ (distance Pt4 Pt1) 2))) ;_ Fin de setq (setq PtB1 Pt1) (setq PtC1 (polar Pt1 (angle Pt1 Pt2) (/ (distance Pt1 Pt2) 2))) ;_ Fin de setq ;; (setq PtA2 (polar Pt3 (angle Pt3 Pt2) (/ (distance Pt2 Pt3) 2))) ;_ Fin de setq (setq PtB2 Pt3) (setq PtC2 (polar Pt3 (angle Pt3 Pt4) (/ (distance Pt3 Pt4) 2))) ;_ Fin de setq ) ((= OptionIns "HG") (setq p3 (polar Pt_Deb_Fle (angle Pt_Deb_Fle Pt4) Long)) (setq PtA1 (polar Pt4 (angle Pt4 Pt1) (/ (distance Pt4 Pt1) 2))) ;_ Fin de setq (setq PtB1 Pt4) (setq PtC1 (polar Pt4 (angle Pt4 Pt3) (/ (distance Pt4 Pt3) 2))) ;_ Fin de setq ;; (setq PtA2 (polar Pt2 (angle Pt2 Pt1) (/ (distance Pt2 Pt1) 2))) ;_ Fin de setq (setq PtB2 Pt2) (setq PtC2 (polar Pt2 (angle Pt2 Pt3) (/ (distance Pt2 Pt3) 2))) ;_ Fin de setq ) ((= OptionIns "HD") (setq p3 (polar Pt_Deb_Fle (angle Pt_Deb_Fle Pt3) Long)) (setq PtA1 (polar Pt3 (angle Pt3 Pt4) (/ (distance Pt3 Pt4) 2))) ;_ Fin de setq (setq PtB1 Pt3) (setq PtC1 (polar Pt3 (angle Pt3 Pt2) (/ (distance Pt3 Pt2) 2))) ;_ Fin de setq ;; (setq PtA2 (polar Pt1 (angle Pt1 Pt2) (/ (distance Pt2 Pt1) 2))) ;_ Fin de setq (setq PtB2 Pt1) (setq PtC2 (polar Pt1 (angle Pt1 Pt4) (/ (distance Pt1 Pt4) 2))) ;_ Fin de setq ) ((= OptionIns "BD") (setq p3 (polar Pt_Deb_Fle (angle Pt_Deb_Fle Pt2) Long)) (setq PtA1 (polar Pt2 (angle Pt2 Pt1) (/ (distance Pt1 Pt2) 2))) ;_ Fin de setq (setq PtB1 Pt2) (setq PtC1 (polar Pt2 (angle Pt2 Pt3) (/ (distance Pt2 Pt3) 2))) ;_ Fin de setq ;; (setq PtA2 (polar Pt4 (angle Pt4 Pt1) (/ (distance Pt4 Pt1) 2))) ;_ Fin de setq (setq PtB2 Pt4) (setq PtC2 (polar Pt4 (angle Pt4 Pt3) (/ (distance Pt4 Pt3) 2))) ;_ Fin de setq ) ) ;_ Fin de cond ;; ;; ;; (princ "\nDébut calcul flèche") (setq p3 (polar Pt_Deb_Fle (angle Pt_Deb_Fle Pt1) Long)) (princ "\nDébut Flèche") (command "_.pline" Pt_Deb_Fle "_w" 0 Larg p3 "_w" 0 0 Pt_Fin_Fle "") (princ "\nDébut Cadre") (command "_.pline" PtA1 PtB1 PtC1 "" "_.pline" PtA2 PtB2 PtC2 "") ;_ Fin de command (vlax-ldata-put "DenisH" "ValIncrement" (+ ValIncrement 1)) (setq ValIncrement (vlax-ldata-get "DenisH" "ValIncrement")) ) ;_ Fin de defun ;;; Active le début de l'undo (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (setq old_cmdecho (getvar "cmdecho") old_osmode (getvar "osmode") ) ;_ Fin de setq (command "-calque" "e" "MARTY-SURFACES_FRACTIONS" "co" "u" "255,0,255" "MARTY-SURFACES_FRACTIONS" "") ;_ Fin de command ;_ Fin de command ;_ Fin de command ;_ Fin de command (setq PrefixIncrement (vlax-ldata-get "DenisH" "PrefixIncrement" "VarB")) (if (= PrefixIncrement nil) (vlax-ldata-put "DenisH" "PrefixIncrement" "VarB") ) ;_ Fin de if (setq ValIncrement (vlax-ldata-get "DenisH" "ValIncrement" 0)) (if (or (= ValIncrement "") (= ValIncrement nil)) (progn (vlax-ldata-put "DenisH" "ValIncrement" 0) (setq ValIncrement (vlax-ldata-get "DenisH" "ValIncrement")) ) ;_ Fin de progn ) ;_ Fin de if (if (not (tblsearch "style" "Surface")) (command "-style" "Surface" "arial.ttf" "" "" "" "" "" "") ) ;_ Fin de if (command "textstyle" "Surface") (while (/= (type Option1) 'LIST) (initget "Préfix Nombre Suivant") (setq Option1 (getkword (strcat "\nOptions des textes [Préfix/Nombre/Suivant] <" PrefixIncrement (itoa ValIncrement) "> : ") ;_ Fin de strcat ) ;_ Fin de getkword ) ;_ Fin de setq (cond ((= Option1 "Préfix") (setq PrefixIncrement (getstring (strcat "\nSaisir le préfix de l'incrémentation <" PrefixIncrement "> : ")) ;_ Fin de getstring ) ;_ Fin de setq (vlax-ldata-put "DenisH" "PrefixIncrement" PrefixIncrement) ) ((= Option1 "Nombre") (setq ValIncrement (getint "\nSaisir le prochain numéro de l'incrémentation : ")) ;_ Fin de getstring (if (or (= ValIncrement "") (= ValIncrement nil)) (vlax-ldata-put "DenisH" "ValIncrement" 0) (vlax-ldata-put "DenisH" "ValIncrement" ValIncrement) ) ;_ Fin de if ) ((= Option1 "Suivant") (initget "Contour Polyligne") (setq Option2 (getkword "\nOptions des textes [Contour/Polyligne] <Contour> : ") ;_ Fin de strcat ) ;_ Fin de getkword (cond ((or (= Option2 "Contour") (= Option2 nil)) ;_ Fin de or (while (princ "\nChoisir le contour :") (command "-contour" "O" "O" "P" "" pause "") (EcritText)) ) ((= Option2 "Polyligne") (while (princ "\nSaisisser le contour :") (command "_.pline" (while (not (zerop (getvar "cmdactive"))) (command pause)) ;_ Fin de while ) ;_ Fin de command (EcritText) ) ;_ Fin de while ) ) ;_ Fin de cond ) ) ;_ Fin de cond ) ;_ Fin de while (setvar "osmode" old_osmode) (setvar "cmdecho" old_cmdecho) (setvar "plinewid" 0) ;;; Fin de l'undo (vla-endundomark doc) (princ) ) ;_ Fin de defun ;;; *********************************************************** ;;; Exporte les Xdata (Matri et Surf) des entités d'un dessin ;;; vers un fichier texte Pour Hydro8 de CadXP.com ;;; *********************************************************** (defun c:Hydro8_List (/) (princ "\nDéveloppé par Denis H. (v:1.0)") (setq Fichier (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4))) (setq Fichier (strcat (getvar "dwgprefix") Fichier ".Surf")) (setq FichierEcrit (open Fichier "a")) (if (setq ss (ssget "_X" '((0 . "LWPOLYLINE") (8 . "MARTY-SURFACES_FRACTIONS")))) (progn (setq i 0) (while (setq ssObj (ssname ss i)) (setq i (1+ i)) (setq xMatri (cdr (assoc 1000 (GetXdataForApplication ssObj "Matri")))) (setq xSurf (cdr (assoc 1000 (GetXdataForApplication ssObj "Surf")))) (if (and (/= xMatri "") (/= xMatri nil)) (write-line (strcat xMatri " = " xSurf) FichierEcrit) ) ;_ Fin de if ) ;_ Fin de while ) ;_ Fin de progn ) ;_ Fin de if (close FichierEcrit) (princ) ) ;_ Fin de defun ;;;************************************** ;;; Calcul du gisement entre deux points ;;;************************************** (defun gisment (p1 p2 / xp1 xp2 yp1 yp2 DeltaX DeltaY) ;;;fait par didier de CaxXP.com ;;;de didier de CadXP (setq xp1 (car p1) yp1 (cadr p1) xp2 (car p2) yp2 (cadr p2) DeltaX (- xp2 xp1) DeltaY (- yp2 yp1) ) ;_ Fin de setq (cond ((and (> DeltaX 0) (> DeltaY 0)) (setq quadrant 1)) ((and (> DeltaX 0) (< DeltaY 0)) (setq quadrant 2)) ((and (< DeltaX 0) (< DeltaY 0)) (setq quadrant 3)) ((and (< DeltaX 0) (> DeltaY 0)) (setq quadrant 4)) ((and (= DeltaX 0) (> DeltaY 0)) (setq quadrant 0)) ((and (> DeltaX 0) (= DeltaY 0)) (setq quadrant 100)) ((and (= DeltaX 0) (< DeltaY 0)) (setq quadrant 200)) ((and (< DeltaX 0) (= DeltaY 0)) (setq quadrant 300)) ) ;_ Fin de cond (if (= DeltaY 0) (setq gis_tempo 0) ) ;_ Fin de if (if (= DeltaX 0) (setq gis_tempo 0) ) ;_ Fin de if (if (and (/= 0 DeltaX) (/= 0 DeltaY)) (setq gis_tempo (/ (* (atan (/ DeltaX DeltaY)) 200) pi)) ) ;_ Fin de if (if (= quadrant 1) (setq gis gis_tempo) ) ;_ Fin de if (if (= quadrant 2) (setq gis (+ 200 gis_tempo)) ) ;_ Fin de if (if (= quadrant 3) (setq gis (+ 200 gis_tempo)) ) ;_ Fin de if (if (= quadrant 4) (setq gis (+ 400 gis_tempo)) ) ;_ Fin de if (if (= quadrant 0) (setq gis (+ 0 gis_tempo)) ) ;_ Fin de if (if (= quadrant 100) (setq gis (+ 100 gis_tempo)) ) ;_ Fin de if (if (= quadrant 200) (setq gis (+ 200 gis_tempo)) ) ;_ Fin de if (if (= quadrant 300) (setq gis (+ 300 gis_tempo)) ) ;_ Fin de if gis ) ;_ Fin de defun ;; ;; ;|«Visual LISP© Format Options» (199 2 2 2 T "Fin de " 100 9 0 0 0 nil nil nil T) ;*** NE PAS AJOUTER de texte au-dessous du commentaire! ***|;

Presque tout est possible, c'est juste une question de compétences... Je vais essayer de te faire ça... Donne-moi un peut de temps...

Si tu veux, j'ai fais un lisp qui insère un texte au bout d'une flèche de rattachement...

Content d'avoir pu aider quelqu'un... Perso, j'ai toujours Introduction à AutoLISP de Maître (gile)... qui est d'une aide incroyable sur CadXP... perso, s'il n'avait pas été là (avec d'autres bien-sur) je n'aurais jamais pu faire ton lisp... ;)

J'ai testé ça, et le résultat est plutôt pas mal : (setq MText (strcat "\\H1.2\\L" PrefixIncrement (itoa ValIncrement) "\\l\\P\\H1S=" xSurf "m²\\P" Opt3))

Effectivement... Mais ça ne fonctionne pas... : (if (setq ss (ssget "_X" (list (cons 0 "LWPOLYLINE,LINE") (cons 8 "Routes")))) (progn (setq i 0) (while (setq ssObj (ssname ss i)) (setq i (1+ i)) (if (< (getpropertyvalue ssObj "length") 2) (progn ;;(command "chprop" ssObj "" "ca" "FDP_Talus Barbules" "Co" "ducalque" "")) (setpropertyvalue ssObj "Layer" "FDP_Talus Barbules") (setpropertyvalue ssObj "Color" "ducalque") ) ;_ Fin de progn ) ;_ Fin de if ) ;_ Fin de while ) ;_ Fin de progn )

Autre astuce, et qui fera plus "joli" : (setq MText (strcat "\\H1.2\\o" PrefixIncrement (itoa ValIncrement) "\\o\\P\\H1S=" xSurf "m²\\PIGN : " Opt3)) Attention, je n'ai rien testé...

Essaye ça : (setq MText (strcat "\\H1.2\\A1" PrefixIncrement (itoa ValIncrement) "\\P\\H1S=" xSurf "m²\\PIGN : " Opt3))

Bon, je pense avoir compris. Remplace vers le début du code (vers la ligne 15) : (setq Pt_Ins (getpoint "\nCliquer l'emplacement du texte :")) ;_ Fin de setq (setq MText (strcat "\\H1.2" PrefixIncrement (itoa ValIncrement) "\\P\\H1S=" xSurf "m²\\PING")) Par : (setq Pt_Ins (getpoint "\nCliquer l'emplacement du texte :")) ;_ Fin de setq (initget "Altitudes sansProfondeur sansHauteur sansLimite") (setq Option3 (getkword (strcat "\nChoix des textes [Altitudes/sansProfondeur/sansHauteur/sansLimite] <Altitudes> : ") ;_ Fin de strcat ) ;_ Fin de getkword ) (cond ((= Option3 "Altitudes") (setq Opt3 "Altitudes")) ((= Option3 "sansProfondeur") (setq Opt3 "sans profondeur")) ((= Option3 "sansHauteur") (setq Opt3 "sans hauteur")) ((= Option3 "sansLimite") (setq Opt3 "sans limite")) (T (setq Opt3 "Altitudes")) ) (setq MText (strcat "\\H1.2" PrefixIncrement (itoa ValIncrement) "\\P\\H1S=" xSurf "m²\\P" Opt3))

Attend, confirme-moi le choix doit être : altitudes sans Profondeur sans Hauteur sans Limite Et faut-il choisir à chaque contour ? Si tout est bon, je tenterai ça cet après-midi...

A toutes fins utiles, voici mon bout de code... : (if (setq ss (ssget "_X" (list (cons 0 "LWPOLYLINE,LINE") (cons 8 "Routes")))) (progn (setq i 0) (while (setq ssObj (ssname ss i)) (setq i (1+ i)) (if (< (getpropertyvalue ssObj "length") 2) (progn (command "chprop" ssObj "" "ca" "FDP_Talus Barbules" "Co" "ducalque" "")) ) ;_ Fin de if ) ;_ Fin de while ) ;_ Fin de progn ) ;_ Fin de if Il tri les "LWPOLYLINE" et les "LINE" inférieures à 2 mètres et étant dans le calque "Routes" et les place dans le calque "FDP_Talus Barbules" avec la couleur "DuCalque".

C'est faisable, Quels sont les quatre options ?

Je regarde... Tu peux supprimer ces 5 lignes : (setq Fichier (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4))) (setq Fichier (strcat (getvar "dwgprefix") Fichier ".Surf")) (setq FichierEcrit (open Fichier "a")) (write-line (strcat PrefixIncrement (itoa ValIncrement) " = " xSurf) FichierEcrit) (close FichierEcrit)

Il faut utiliser l'éditeur AutoCAD pour éditer les Lisp. Après, tu peux directement charger le Lisp grace à un icone, un petit rectangle oblique avec une flèche qui descend. Tu as tout d'expliqué ici... Tu peux aussi taper la commande : AppLoad.

Je pense que je crois que c'est peut-être un oubli éventuel de ma part... Copie/colle ce code à la fin de ton fichier lisp et recharge-le : ;;; ******************************* ;; GetXdataForApplication de (gile) ;; Retourne la liste des données étendues pour l'application ;; ;; Arguments ;; ename : nom d'entité de l'objet auquel les données sont attachées ;; appName : nom de l'application enregistrée (defun GetXdataForApplication (ename appName) ;;(princ "\nxData=") ;;(princ (cdadr (assoc -3 (entget ename (list appName))))) (cdadr (assoc -3 (entget ename (list appName)))) ) ;_ Fin de defun ;;; ******************************* ;; SetXdataForApplication de (gile) ;; Affecte à l'objet la liste des données étendues pour l'application ;; ;; Arguments ;; ename : nom d'entité de l'objet auquel les données sont attachées ;; appName : nom de l'application enregistrée ;; data : liste de paires pointées contenant les données (defun SetXdataForApplication (ename appName data) (or (tblsearch "APPID" appName) (regapp appName)) (entmod (append (entget ename) (list (list -3 (cons appName data))))) )

Une petite question, lors du lancement de ma routine, je créé un style de texte nommé "Surface". Ce style a la police "Arial" et n'a pas de hauteur définie. Est-ce le cas chez toi ? Tout est dans : (if (not (tblsearch "style" "Surface")) (command "-style" "Surface" "arial.ttf" "" "" "" "" "" "") ) ;_ Fin de if (command "textstyle" "Surface") Tu peux tenter avec une police déjà créée, mais qui n'a pas de hauteur de définie...

Je ne pense pas qu'une telle variable existe...

Je ne comprend pas, chez moi, ça fonctionne correctement... ? ? ? Peut-être une variable AutoCAD ? ? ? C'est dommage, j'ai fais ça pour rien.... Enfin, ça m'a permis de connaitre les xdata... Désolé de ne pas pouvoir t'aider plus... Peut-être qu'un autre membre de CadXP pourra le faire... :huh:

Salut (gile). Merci pour cette réponse...

Peut-tu m'envoyer ce dessin s'il te plait, j'aimerais bien démêler ce truc... ;)