Contour avec texte surface

Hydro8 · le 7 février 2018

Ca fonctionne !

Bon ba c'est super tout ça, je vais m'amuser comme un fou. Merci encore pour ton aide, j'ai appris plein de choses grâce à tes lisps !

DenisHen · le 7 février 2018

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... ;)

Hydro8 · le 7 février 2018

Oui merci pour le lien j'ai commencé à le lire :)

Pour le moment j'ai seulement fait des lisp basiques pour tracer des lignes de tel type dans tel calque etc...

La suite sera des lignes d'attaches pour les textes qu'on vient de créer (si c'est possible) et le draworder de certains calques mais j'ai cru lire que ce n'était pas possible. Il me reste de la lecture :)

DenisHen · le 7 février 2018

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

Hydro8 · le 7 février 2018

Enfaite le résultat doit ressembler à ça :

Sachant que le texte peut être sans ligne, ligne à gauche ou ligne à droite.

Ca devient compliqué j'imagine avec la taille du texte, la hauteur etc...

DenisHen · le 7 février 2018

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...

Hydro8 · le 7 février 2018

Merci encore :)

Je suis content j'ai réussi à rajouter les questions et du coup les xdata dans un csv pour les altitudes!

DenisHen · le 7 février 2018

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! ***|;

Hydro8 · le 7 février 2018

Alors pour le numéro il me met VarB0 par exemple et après avoir choisi le type d'altitude j'ai "commande inconnue H"

DenisHen · le 7 février 2018

Alors pour le numéro il me met VarB0 par exemple

Que te propose t'il en ligne de commande ?

et après avoir choisi le type d'altitude j'ai "commande inconnue H"

Quelle style de texte est le courant ?

Hydro8 · le 7 février 2018

En ligne de commande c'est les commandes normales, du coup si je change le préfix il est bien pris en compte.

C'était standard, j'ai essayé avec Arial mais même erreur.

DenisHen · le 7 février 2018

C'était standard, j'ai essayé avec Arial mais même erreur.

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

Hydro8 · le 7 février 2018

En supprimant "H" 1.0 j'avance mais j'ai encore l'erreur clayer :(

DenisHen · le 7 février 2018

Ok.

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

Hydro8 · le 7 février 2018

Voilà exactement le résultat après avoir déifni la flèche :

DÃ©fini les quatre coins du MText de (gile)paramètre de la variable AutoCAD rejeté: "clayer" nil

Commande: *Annuler*

DenisHen · le 7 février 2018

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é).

Hydro8 · le 7 février 2018

Voila le résultat :

Commande: HYDRO8_POLY
Développé par Denis H. (v:1.7)Commande inconnue "HYDRO8_POLY". Appuyez sur F1 pour obtenir de l'aide.
Options des textes [Préfix/Nombre/Suivant] <VarB0> : s
Options des textes [Contour/Polyligne] <Contour> :
Choisir le contour :
Pointe de la flèche :
Pied de la flèche :
Choix des textes [Altitudes/sansProfondeur/sansHauteur/sansLimite] <Altitudes> :
Style de texte courant: "Surface" Hauteur de texte: 0.2000 Annotatif: Non
Commande inconnue "H". Appuyez sur F1 pour obtenir de l'aide.
1

Hydro8 · le 7 février 2018

Et sans la partie pour la hauteur du texte :

Commande: HYDRO8_POLY
Développé par Denis H. (v:1.7)
Options des textes [Préfix/Nombre/Suivant] <VarB0> : s
Options des textes [Contour/Polyligne] <Contour> :
Choisir le contour :
Pointe de la flèche :
Pied de la flèche :
Choix des textes [Altitudes/sansProfondeur/sansHauteur/sansLimite] <Altitudes> :
Style de texte courant: "Surface" Hauteur de texte: 0.2000 Annotatif: Non
Commande inconnue "2\LVARB0\L\P\H1S=197.3M²\PALTITUDES". Appuyez sur F1 pour obtenir de l'aide.
Commande inconnue "HYDRO8_POLY". Appuyez sur F1 pour obtenir de l'aide.
Défini les quatre coins du MText de (gile)paramètre de la variable AutoCAD rejeté: "clayer" nil

DenisHen · le 7 février 2018

Commande inconnue "H". Appuyez sur F1 pour obtenir de l'aide.

Je croyais que tu avais enlevé le "H" 1.0 dans

(command "_.-MTEXT" Pt_Fin_Fle "J" OptionIns "H" 1.0 Pt_Fin_Fle MText "")

Ce qui donnerait :

(command "_.-MTEXT" Pt_Fin_Fle "J" OptionIns Pt_Fin_Fle MText "")

Hydro8 · le 7 février 2018

Oui pardon j'ai mis le résultat après.

DenisHen · le 7 février 2018

Es-tu dans l'éditeur de Lisp d'AutoCAD ?

Hydro8 · le 7 février 2018

Oui je n'ai plus les problèmes d'accents par exemple.

DenisHen · le 7 février 2018

As-tu retouché mon code ? Je vois des "\" qui manquent...

DenisHen · le 7 février 2018

Normalement, ton texte devrait être en style "Surface"...

Hydro8 · le 7 février 2018

J'ai juste rajouté le code de gile pour les xadata.

Connexion

Contour avec texte surface

Messages recommandés

Hydro8

Meilleurs contributeurs dans ce sujet

Jours populaires

Meilleurs contributeurs dans ce sujet

Jours populaires

Images postées

DenisHen

Hydro8

DenisHen

Hydro8

DenisHen

Hydro8

DenisHen

Hydro8

DenisHen

Hydro8

DenisHen

Hydro8

DenisHen

Hydro8

DenisHen

Hydro8

Hydro8

DenisHen

Hydro8

DenisHen

Hydro8

DenisHen

DenisHen

Hydro8

Créer un compte ou se connecter pour commenter

Créer un compte

Se connecter

Forums

Naviguer

Activité

Information importante