fabcad

Bonjour, Je sollicite les "Lucky Luke" de la programmation ! SVP je desire un programme Lisp/VLisp qui travaille au niveau des lwpolylignes fermées ou non fermées. Merci d'avance de votre aide, [Edité le 11/2/2010 par fabcad]

Ben zut alors le lien est mort. C'est bête ! Bonne soirée, Fabrice

bonjour a tous, J'ai testé le customosnap.dll sur un AutoCAD MAP 2009, ca fonctionne avec les accroches validés dans les options autocad et aussi sur la ligne de commande. Bravo Gile, Fabrice,

Merci Tramber, Il récupère bien l'angle mais mon souci maintenant est de conserver un angle de texte idéal pour la lecture sur plan. Ceci est du au sens de la polyligne mais je peux en aucun cas le modifier car dans un SIG c'est le sens de circulation quand c'est des filaires de voies. J'ai bien essayé avec ceci : (if (> ang pi) (setq ang (+ ang pi)) (setq ang (angle p1 p2)) );fin if mais il ne le fait que dans un sens. Preneur de vos solutions, Fabrice

Bonjour, j'avais créé cette routine AutoLISP qui permet de rendre parallèle un textuel par rapport à un objet AutoCAD, je souhaiterais récupérer directement l'angle d'1 segment de lwpolyligne mais d'orienter en plus le texte pour que la lecture soit toujours directe (principe des cotations). Merci pour l'aide, Fabrice ; PARALLELE.LSP ;--------------------------------------------------------------- ; MODIFIE L'ANGLE D'UN OU PLUSIEURS TEXTES ; A PARTIR D'UN OBJET. ;--------------------------------------------------------------- ; Cree le 17.05.1999 ;--------------------------------------------------------------- ; FONCTION MAITRE (defun c:parallele () (setvar "cmdecho" 0) (setq js (sel-txts)) (if js (progn (prompt (strcat "\nNombre de textes : " (rtos (setq nbr (sslength js)) 2 0))) (meme-ang js) );fin progn (progn (prompt "\n---Pas de Textes selectionnés---") (princ) );fin progn );fin if js (princ) (prompt "\n---COPYRIGHT mai 2003 par Fabrice DEMIEL---") (prin1) );fin c:parallele ;--------------------------------------------------------------- (defun sel-txts () (ssget '( (-4 . " (-4 . " (0 . "TEXT") (-4 . "AND>") (-4 . " (0 . "MTEXT") (-4 . "AND>") (-4 . "OR>") ) );ssget ) ;----------------------------------------------------------------- (defun meme-ang (js / c1 i ang nbr sel-obj chx2) (setq cnt2 T) (while cnt2 (initget "Global Element") (setq chx2 (getkword "\n Quel type de travail [Global/Element] ")) (cond ((= chx2 "Global") (progn (while (= (setq sel-obj (nentsel "\n Choisir un objet de reference : ")) nil));fin select (setq ang (ang-obj (car sel-obj))) (setq nbr (sslength js)) (setq i 0) (while (<= i (- nbr 1)) (setq c1 (ssname js i)) (setq ent (entget c1)) (setq ent (subst (cons 50 ang) (assoc 50 ent) ent)) (entmod ent) (setq i (+ i 1)) ); fin 1er while );fin progn );fin si chx2 est egal à Global ((= chx2 "Element") (progn (setq nbr (sslength js)) (setq i 0) (while (<= i (- nbr 1)) (setq c1 (ssname js i)) (redraw c1 3) (while (= (setq sel-obj (nentsel "\n Choisir un objet de reference : ")) nil));fin select er (setq ang (ang-obj (car sel-obj))) (setq ent (entget c1)) (setq ent (subst (cons 50 ang) (assoc 50 ent) ent)) (entmod ent) (setq i (+ i 1)) ); fin 1er while );fin progn );fin si chx2 est egal à Element (T (setq cnt2 nil)) );fin cond );fin while cnt2 (setvar "cmdecho" 1) ) ;----------------------------------------------------------------- (defun ang-obj (er / obj) (setq obj (cdr (assoc 0 (entget er)))) (cond ((= obj "CIRCLE") (progn (princ "\nObjet Cercle definir 2 points : ") (setq ang (getangle "\n Définissez l'angle > Premier Point: ")) );fin progn );fin CIRCLE ((= obj "LINE") (progn (princ "\nObjet Ligne : ") (setq p1 (cdr (assoc 10 (entget er)))) (setq p2 (cdr (assoc 11 (entget er)))) (setq ang (angle p1 p2)) );fin progn );fin LINE ((= obj "ARC") (progn (princ "\nObjet Arc : ") (setq cent-arc (cdr (assoc 10 (entget er)))) (setq ray (cdr (assoc 40 (entget er)))) (setq ang-50 (cdr (assoc 50 (entget er)))) (setq ang-51 (cdr (assoc 51 (entget er)))) (setq p2 (polar cent-arc ang-50 ray)) (setq p1 (polar cent-arc ang-51 ray)) (setq ang (angle p1 p2)) );fin progn );fin ARC ((= obj "MPOLYGON") (progn (princ "\nObjet MPolygone MAP 3D definir 2 points : ") (setq ang (getangle "\n Définissez l'angle > Premier Point: ")) );fin progn );fin MPOLYGON ((= obj "MAPBULKFEATURE") (progn (princ "\nObjet MAPBULKFEATURE MAP 3D definir 2 points : ") (setq ang (getangle "\n Définissez l'angle > Premier Point: ")) );fin progn );fin MAPBULKFEATURE ((= obj "LWPOLYLINE") (progn (setq param(vlax-curve-getParamAtPoint(vlax-ename->vla-object(car sel-obj)) (vlax-curve-getclosestpointto(vlax-ename->vla-object(car sel-obj))(cadr sel-obj)))) (setq p1 (vlax-curve-getPointAtParam(vlax-ename->vla-object(car sel-obj))(fix param))) (setq p2(vlax-curve-getPointAtParam(vlax-ename->vla-object(car sel-obj))(1+(fix param)))) (setq ang (angle p1 p2)) (princ ang) (if (minusp (cos ang)) (setq ang (+ ang pi)) (setq ang ang) ) );fin progn );fin LWPOLYLINE ((= obj "INSERT") (progn (setq ang (cdr (assoc 50 (entget er)))) );fin progn );fin INSERT ((= obj "TEXT") (progn (princ "\nObjet Texte : ") (setq ang (cdr (assoc 50 (entget er)))) );fin progn );fin TEXT ((= obj "MTEXT") (progn (princ "\nObjet Mtexte : ") (setq ang (cdr (assoc 50 (entget er)))) );fin progn );fin MTEXT );fin cond );fin defun ang-obj ;----------------------------------------------------------------- [Edité le 29/1/2010 par fabcad][Edité le 31/1/2010 par fabcad] [Edité le 2/2/2010 par fabcad]

Eh bien pour certains la souscription pour d'autres se tourner peut-être vers les clones IntellliCAD ou YellowCAD et pour le SIG les open sources.

J'ai trouvé ceci sur internet sur le site http://www.cadforum.cz/cadforum_en/qaID.asp?tip=3968 et je l'ai traduit avec Google traduction. Bonne lecture, La fonction AutoLISP de sélection des objets 'ssget' offre plusieurs opérateurs utiles qui sont inconnus pour beaucoup d'utilisateurs. utile à plusieurs . En plus des formats habituels comme (ssget) or (ssget "_X") etc. vous pouvez utiliser dans vos programmes ou vos macros par exemple: * (ssget "_:S") - sélection d'un objet unique * (ssget "_:E") - sélectionner tous les objets traversant la boîte de sélection (peut être également combiné par exemple à (ssget "_:E:S") * (ssget "_:N") - sélectionner les objets, y compris imbriqués / objets enfants - par exemple avec des références bloc * (ssget "_:D") - objets en double comptés séparément (2x objet sélectionné = 2 sélections) * (ssget "_:L") - arrête les utilisateurs de sélectionner des objets sur des calques verrouillés * (ssget "_:P") - rejette la sélection de fenêtres * (ssget "+.") - permet la sélection par fenêtre, même dans le mode de sélection unique - (ssget "+.:E:S") (mais ne fonctionnera pas dans les versions localisées) [Edité le 13/1/2010 par fabcad] [Edité le 13/1/2010 par fabcad]

Merci Didier, Merci Gile, Cela fait 1 heure que je cherche dans la bible du developers visual lisp, Ca y est j'ai un trou sur mon crane, Merci c'est effectivement ca fonctionne sur map 2009. Je vais la tester avec plus de 2 fichiers. Merci, Fabrice PS : Gile, si tu viens à Rennes un de ces quatre, un apéro sera de la partie ! [Edité le 8/1/2010 par fabcad]

Je souhaiterais faire correspondre un zoom en espace objet d'un dessin dwg cible par rapport à un zoom en espace objet d'un dessin dwg ouvert, les dessins ouverts sont dans la même session AutoCAD (MAP). Mon algorithme serait le suivant : 1 Si deux dwg seulement ouverts alors prendre le zoom de l'autre desssin (source) et l'appliquer dans le dessin courant (cible). 2 Sinon sélectionnez un dwg source dans une liste des dessins ouverts et de faire le zoom dans le dessin courant (cible). Voici une ébauche de la fonction de mise en place du zoom : (defun c:affiche_zoom () (setq hauteur_ecran (getvar "viewsize"));récupéré dans le dessin source (setq centre_ecran (getvar "viewctr"));récupéré dans le dessin source (command "zoom" "c" centre_ecran hauteur_ecran);zoom centre dans le dessin cible );fin defun affiche_zoom Pour la suite comment récupérer des valeurs de variables sans aller sur le dessin source. Merci pour vos développements, A plus

Je pensais utiliser VIEWSIZE et VIEWCTR car VSMAX et VSMIN c'est plutôt les limites du dessin ? Voici une ébauche de la fonction de mise en place du zoom : (defun affiche_zoom () (setq hauteur_ecran (getvar "viewsize")) (setq centre_ecran (getvar "viewctr")) (command "zoom" "c" centre_ecran hauteur_ecran) );fin defun affiche_zoom Pour la suite de ma routine, je souhaiterais savoir comment on récupère des valeurs de variables sans aller sur le dessin. [Edité le 5/1/2010 par fabcad]

Ce n'est pas une vue ou une présentation mais un zoom dans l'espace objet.

Bonjour Elen, A ta requête beaucoup de possibilités, 2 déjà me viennent à l'esprit : 1- dans un projet (dessin vide mais en définissant un système de projection) tu associes don dessin de tes autoroutes, puis tu crées une requête standard dwg avec comme critère les propriétés AutoCAD en prenant l'option Calques=*, puis tu mets en mode rapport et tu sélectionnes un par un les champs que tu souhaites exporter, AutoCAD MAP te créera alors un fichier texte avec les valeurs des champs séparées par des points-virgules, ce fichier pourra alors être lu dans excel, access, open office etc. 2- si tu travailles dans le monde du SIG alors tu peux exporter au format Shapefile d'Esri ou tu auras la géométrie ainsi que les données attributaires qui s'importe ou se connecte dans beaucoup de logiciels SIG payants ou open source. A plus Fabrice

Je souhaiterais faire correspondre une zone d'affichage en espace objet d'un dessin dwg par rapport à une zone d'affichage en espace objet d'un dessin dwg ouvert, les dessins ouverts sont dans la même session AutoCAD (MAP). Mon algorithme serait le suivant : Merci pour vos développements, A plus

Bonjour, Je suis très intéressé par ce genre d'outil car je suis dans cette problématique depuis longtemps. Notamment dans la gestion de mes textuels de lieux-dits qui doivent être lu sans gêner la base cartographique vectorielle en dessous. La plupart des logiciels SIG la traite mais en occultant parfois certains textuels. Merci d'avance pour notre Sigiste Decapode. Bonnes Fêtes de fin d'année. Fabrice

Bonjour, Est-ce un objet trace dont le remplissage se gère avec la variable : FILLMODE. A+

Hello, En effet les mtextes se déplacent je travaille dessus, ce sont les textes qui ont les justifications gauche centre droite car le point dxf 11 est à 0,0,0 alors qu'il faudrait que je prennes le point dxf 10. Le 30 nevembre 2009 : c'est réglé. A+ [Edité le 30/11/2009 par fabcad]

Bonjour, Effectivement la fonction des express tools ne boucle pas sur les textes mais réalise une fusion des textes en un seul mtexte. J'utilise la fonctionnalité masque (largeur à 0 c'est plus facile à gérer) des mtextes comme Lecrabe et ce sans utiliser les formatages de textes a part un retour chariot pour mes mtextes de lieu-dit. A+ PS, La conversion sur MAP perd évidemment les données d'objets associées aux textes. Sinon voici ma routine améliorable en vlisp, elle gère les justifications : Le 30 novembre 2009 : Gestion de la justification gauche des textes ainsi que la gestion des données d'objets (enlever le point virgule devant : ;(copy_data c1 (entlast) nil) (defun c:fd-txts-to-mtxts (/ c1 i nbr js filtre ent pti-10 pti-11 pti-insertion just sty htr ang ang-deg chn lst-c1) (setvar "cmdecho" 0) (setq calq-org (getvar "clayer")) (setq filtre (list (cons 0 "TEXT"))) (setq js (ssget filtre)) (if js (progn (setq nbr (sslength js)) (setq i 0) (while (<= i (- nbr 1)) (setq c1 (ssname js i)) (setq ent (entget c1)) (setq lst-c1 (justif c1)) (setq just (cdr (assoc 1 lst-c1))) (setq pti-10 (cdr (assoc 10 (entget c1)))) (setq pti-11 (cdr (assoc 11 (entget c1)))) (if (and (= 0 (cdr (assoc 72 ent))) (= 0 (cdr (assoc 73 ent)))) (setq pti-insertion (cdr (assoc 10 (entget c1)))) (setq pti-insertion (cdr (assoc 11 (entget c1)))) );fin if (setq chn (cdr (assoc 1 (entget c1)))) (setq calq-ent (cdr (assoc 8 (entget c1)))) (setq ang (cdr (assoc 50 (entget c1)))) (setq ang-deg (* 180 (/ ang pi))) (setq sty (cdr (assoc 7 (entget c1)))) (setq htr (cdr (assoc 40 (entget c1)))) (command "-calque" "ch" calq-ent "") (command "-mtext" pti-insertion "Justifier" just "Style" sty "Hauteur" htr "Rotation" ang-deg "Largeur" "0" chn "") ;(copy_data c1 (entlast) nil) (entdel c1) (command "-calque" "choisir" calq-org "") (setq i (+ i 1)) );fin while nbr );fin progn (prompt "\nPAS D'OBJETS DE TYPE TEXTE SELECTIONNES !!!") );fin if (command "-calque" "choisir" calq-org "") (setvar "cmdecho" 1) (prompt "\n---COPYRIGHT 06/99 PAR Fabrice DEMIEL---") ) ;---------------------------------------------------------------------------- (prompt "\nPour lancer tapez : fd-txts-to-mtxts ") (prin1) ;---------------------------------------------------------------------------- (defun justif (nom / lst-nom typ-nom) (setq lst-nom (entget nom)) (setq typ-nom (cdr (assoc 0 lst-nom))) (cond ((= typ-nom "TEXT") (cond ((and (= 0 (cdr (assoc 72 lst-nom))) (= 0 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Gauche !!!\n") (setq res-lst (list (cons 1 "BG") (cons 71 7) (cons 72 0) (cons 73 0))) );fin progn );fin ((and (= 1 (cdr (assoc 72 lst-nom))) (= 0 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Centre !!!\n") (setq res-lst (list (cons 1 "BC") (cons 71 8) (cons 72 1) (cons 73 0))) );fin progn );fin ((and (= 2 (cdr (assoc 72 lst-nom))) (= 0 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Droite !!!\n") (setq res-lst (list (cons 1 "BD") (cons 71 9) (cons 72 2) (cons 73 0))) );fin progn );fin ((and (= 3 (cdr (assoc 72 lst-nom))) (= 0 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Aligné !!!\n") (setq res-lst (list (cons 1 "BG") (cons 71 7) (cons 72 3) (cons 73 0))) );fin progn );fin ((and (= 4 (cdr (assoc 72 lst-nom))) (= 0 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Milieu !!!\n") (setq res-lst (list (cons 1 "MC") (cons 71 5) (cons 72 4) (cons 73 0))) );fin progn );fin ((and (= 5 (cdr (assoc 72 lst-nom))) (= 0 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Fixé !!!\n") (setq res-lst (list (cons 1 "BG") (cons 71 7) (cons 72 5) (cons 73 0))) );fin progn );fin ((and (= 0 (cdr (assoc 72 lst-nom))) (= 3 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Haut-Gauche !!!\n") (setq res-lst (list (cons 1 "HG") (cons 71 1) (cons 72 0) (cons 73 3))) );fin progn );fin ((and (= 1 (cdr (assoc 72 lst-nom))) (= 3 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Haut-Centre !!!\n") (setq res-lst (list (cons 1 "HC") (cons 71 2) (cons 72 1) (cons 73 3))) );fin progn );fin ((and (= 2 (cdr (assoc 72 lst-nom))) (= 3 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Haut-Droite !!!\n") (setq res-lst (list (cons 1 "HD") (cons 71 3) (cons 72 2) (cons 73 3))) );fin progn );fin ((and (= 0 (cdr (assoc 72 lst-nom))) (= 2 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Milieu-Gauche !!!\n") (setq res-lst (list (cons 1 "MG") (cons 71 4) (cons 72 0) (cons 73 2))) );fin progn );fin ((and (= 1 (cdr (assoc 72 lst-nom))) (= 2 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Milieu-Centre !!!\n") (setq res-lst (list (cons 1 "MC") (cons 71 5) (cons 72 1) (cons 73 2))) );fin progn );fin ((and (= 2 (cdr (assoc 72 lst-nom))) (= 2 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Milieu-Droite !!!\n") (setq res-lst (list (cons 1 "MD") (cons 71 6) (cons 72 2) (cons 73 2))) );fin progn );fin ((and (= 0 (cdr (assoc 72 lst-nom))) (= 1 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Bas-Gauche !!!\n") (setq res-lst (list (cons 1 "BG") (cons 71 7) (cons 72 0) (cons 73 1))) );fin progn );fin ((and (= 1 (cdr (assoc 72 lst-nom))) (= 1 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Bas-Centre !!!\n") (setq res-lst (list (cons 1 "BC") (cons 71 8) (cons 72 1) (cons 73 1))) );fin progn );fin ((and (= 2 (cdr (assoc 72 lst-nom))) (= 1 (cdr (assoc 73 lst-nom)))) (progn (prompt "\n Justification de type Bas-Droite !!!\n") (setq res-lst (list (cons 1 "BD") (cons 71 9) (cons 72 2) (cons 73 1))) );fin progn );fin );fin cond ); fin obj egal a TEXT );fin 1er cond res-lst );fin defun [Edité le 25/11/2009 par fabcad] [Edité le 30/11/2009 par fabcad]

Hello Jérémie, La question est intéressante, mais ton sujet serait mieux dans la rubrique de développement AutoLISP-VisualLISP ou dans AutoCAD MAP. La difficulté dans ce cas c'est que les programmeurs sont pour la plupart officient avec AutoCAD, les données d'Objets étant spécifique à AutoCAD MAP et que pour les atteindre en LISP ou autre langage de programmation il faut posséder les différentes d' AutoCAD MAP. Fabrice [Edité le 20/11/2009 par fabcad]

AutoCAD pourrait-il un jour lui aussi être doté des Données d'Objets, c'est quand même plus pratique que les XDATAS.

Merci Gile pour l'info, comment fais-tu pour les trouver dans le méandre des fichiers help.

Bonjour, la sous routine dont le code est ci-dessous me permet de sortir une catégorie d'une chaine de caractères, elle fonctionne bien mais pour mettre a jour la liste des prénoms par exemple c'est un peu dur pour des non programmeurs, c'est pourquoi je souhaiterais les mettre dans un bloc notes sous la forme : ("mot1" . "catégorie") ("mot2" . "catégorie") ("mot3" . "catégorie") ........................................ ("motN" . "catégorie") ou alors dans un fichier Excel (Open office Calc) ou mieux dans un fichier mdb d'access via les fonctions ADOLisp. Quelles seraient pour vous le choix le plus judicieux et le plus facile à coder ? C'est une sorte de challenge ! Merci, ;--------------------------------------------------------------- ;;; sous-fonction permettant de vérifier la catégorie d'un mot suivant les listes de contrôle et de renvoyer cette catégorie dans le programme principal (defun verification_mot (mot_a_verifier / outpout_categorie) (setq LISTE_PRENOMS (list "A." "Adam" "Adolphe" "Adrien" "Aimee" ............................ "Yves" "Yvonnick" "Zacharie" "Zenaide" "Hilarion" "E." "Ermangarde")) (setq LISTE_TYPES (list "Allée" "Avenue" "Bosquets" "Boulevard" "Canal" "Carré" ............................ "Terrain" "Villa" "Village")) (setq LISTE_ARTICLES (list "d'" "de" "de" "de" "l'" "de" "la" "des" "du" "l'" "le" "au" "aux")) (setq LISTE_TITRES (list "Abbé" "Abbe" "Amiral" "Capitaine" ............................ "Sous-Lieutenant" "Sous_Lieutenant")) (setq LISTE_PARTICULES (list "D'" "De" "De" "L'" "De" "La" "Des" "Du" "L'" "La" "Le")) (setq LISTE_TEXTES (list "et" "Et" "Dit" "DIT" "dit")) (cond ((vl-position mot_a_verifier LISTE_PRENOMS) (setq outpout_categorie "PRENOM")); fin member dans LISTE_PRENOMS ((vl-position mot_a_verifier LISTE_TYPES) (setq outpout_categorie "TYPE_VOIE")); fin member dans LISTE_TYPE ((vl-position mot_a_verifier LISTE_ARTICLES) (setq outpout_categorie "ARTICLE")); fin member dans LISTE_ARTICLE ((vl-position mot_a_verifier LISTE_TITRES) (setq outpout_categorie "TITRE")); fin member dans LISTE_TITRE ((vl-position mot_a_verifier LISTE_PARTICULES) (setq outpout_categorie "PARTICULE")); fin member dans LISTE_PARTICULE ((vl-position mot_a_verifier LISTE_TEXTES) (setq outpout_categorie "TEXTE")); fin member dans LISTE_TEXTE (T (setq outpout_categorie "INCONNU")) ); fin cond outpout_categorie ) ; fin defun verification_mot [Edité le 12/11/2009 par fabcad]

Fabuleuses routines LISP à l'adresse ci-dessous : http://www.asmitools.com/index.html La fonction Talon.lsp carrément géniale pour l'écriture de voies. Bonne visu. Fabcad[Edité le 29/10/2009 par fabcad][Edité le 29/1/2010 par fabcad] [Edité le 3/2/2010 par fabcad]

L' ID correspond t'il au code dxf 5 de la liste dxf d'un objet autocad ?

Bonjour à tous, Je souhaiterais éditer plusieurs objets via une case de dialogue type illustré comme l'image ci-dessous : http://lh5.ggpht.com/_-Pf6GVUPhGA/SuFf5ODHTCI/AAAAAAAAABg/1bW8l_lCQy0/Editeur%20de%20Donnees%20Objets-simplifi%C3%A9.jpg Elle pourrait servir a modifier une collection d'objets AutoCAD par exemple des propriétés standard d'AutoCAD, les xdatas ou bien les données d'objets. 2 problèmes à mon niveau : - comment créer en langage DCL standard la zone de liste à cases multiples. - comment faire la relation entre la ligne sélectionnée et l'objet AutoCAD (notement pour les modifications en temps réel ainsi qu'un zoom. Merci pour vos idées. Fabrice, [Edité le 23/10/2009 par fabcad]

Bonjour à vous tous, Vraiment heureux et un grand merci pour votre aide, A+