REPOS_ERICCA/magicsld/SuperFace.vb

Imports SolidWorks.Interop
Imports SolidWorks.Interop.swconst
Imports SolidWorks.Interop.swpublished

Public Class SuperFace
    Inherits SuperEntite

    'Public swFace As SldWorks.Face2
    Private Shared compteur As Long
    Private Shared no As Long


    Friend Flag As Integer = 0 ' = 20 si on a une coupeLong


    Friend lst_Faces As New Collections.Generic.List(Of SldWorks.Face2) ' une liste de faces supplémentaires si me.swFace est coupée en 3.
    Friend lst_InterPoutre As New Collection() ' liste des poutres qui intersectionnent
    Friend lst_InterCoqueVolume As New Collections.Generic.List(Of InterCoqueVolume)  ' liste des intersections avec d'autres faces
    Friend lst_InterCoqueCoque As New Collections.Generic.List(Of InterCoqueCoque)


    Friend AttributCL As SldWorks.Attribute ' une l'attribut de condition aux imites qui doit être updaté
    Private swSurface As SldWorks.Surface


    ''' <summary>
    ''' Renvoie le nombre de swFaces qui composent cette superface
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public ReadOnly Property GetNbFaces() As Long
        Get
            Return lst_Faces.Count
        End Get
    End Property


    ''' <summary>
    ''' New pour un encapsulateur temporaire de face
    ''' </summary>
    ''' <param name="Face"></param>
    ''' <param name="encapsulateur"></param>
    ''' <remarks></remarks>
    Public Sub New(ByRef Face As sldworks.Face2, ByRef encapsulateur As Boolean)
        lst_Faces.Add(Face)
    End Sub

    Friend Sub New(ByRef face As sldworks.Face2, Optional ByVal tip As Integer = 0)
        Me.AjouterFace(face)
        Select Case tip
            Case Commun.tipe_e.Volume
                nom = "Face" & compteur
            Case Commun.tipe_e.coque
                nom = "FaceCoque" & compteur
        End Select
        nomOrig = nom
        compteur = compteur + 1
    End Sub


    'Friend Overridable Function UpdateApresSplit(ByRef inter As InterPoutreCoque, ByRef poutre As SlyAretePoutre, ByRef x As Double, ByRef y As Double, ByRef z As Double, ByRef Plan As SldWorks.RefPlane, Optional ByRef FI As Boolean = False) As SldWorks.Face2
    '    MsgBox("La fonction non overridée a été appelée!")
    '    Return Nothing
    'End Function

    'Friend Overridable Function UpdateApresSplit(ByRef inter As InterPoutreVolume, ByRef poutre As SlyAretePoutre, ByRef x As Double, ByRef y As Double, ByRef z As Double, ByRef Plan As SldWorks.RefPlane, Optional ByRef FI As Boolean = False) As SldWorks.Face2
    '    MsgBox("La fonction non overridée a été appelée!")
    '    Return Nothing
    'End Function

    ''' <summary>
    ''' Sub qui ajoute des mini-poutres à la section entre le sommet de la poutre et un point de la face interne quand la face interne ne touche pas à la poutre
    ''' </summary>
    ''' <param name="poutre">La poutre principale</param>
    ''' <param name="FaceInterne">La face où il faut ajouter UNE mini-poutre</param>
    ''' <param name="x1">Coordonnée en x du point d'intersection</param>
    ''' <param name="y1"></param>
    ''' <param name="z1"></param>
    ''' <remarks>On pourrait ajouter plus d'une mini-poutre.</remarks>
    Friend Sub AjouterMiniPoutresSurFaceInterne(ByRef poutre As SlyAretePoutre, ByRef FaceInterne As SldWorks.Face2, ByVal x1 As Double, ByVal y1 As Double, ByVal z1 As Double)
        Dim x2 As Double, y2 As Double, z2 As Double
        Dim swSketch As SldWorks.Sketch
        Static k As Integer
        Dim swEnt As SldWorks.Entity
        Dim p As SldWorks.Parameter
        Dim refCourbe As SldWorks.ReferenceCurve
        Dim feat As SldWorks.Feature
        Dim attr As SldWorks.Attribute

        '  2 trouver un sommet ou un point sur la face interne.
        Dim swArete As SldWorks.Edge
        Dim swSommet2 As SldWorks.Vertex

        swArete = FaceInterne.GetFirstLoop.GetFirstCoEdge.getedge
        swSommet2 = swArete.GetStartVertex()

        If swSommet2 Is Nothing Then ' un cercle (ou ellipse)
            Dim retval As Object
            retval = swArete.Evaluate(0) ' il va y avor un LC point anyway...
            x2 = retval(0)
            y2 = retval(1)
            z2 = retval(2)

        Else
            Dim retval As Object
            retval = swSommet2.GetPoint()
            x2 = retval(0)
            y2 = retval(1)
            z2 = retval(2)
        End If


        '  3 faire une mini-poutre entre les 2

        swModel.Insert3DSketch2(True)
        swSketch = swModel.GetActiveSketch2()
        If swSketch Is Nothing Then swModel.Insert3DSketch2(True) : swSketch = swModel.GetActiveSketch2()
        If swSketch Is Nothing Then MsgBox("Ça merde vraiment...")
        swModel.CreateLine2(x1, y1, z1, x2, y2, z2)
        swModel.Insert3DSketch2(True)
        swEnt = swSketch : swEnt.Select2(False, 1)
        swModel.InsertCompositeCurve()

        ' reste à lui mettre les propriétés de mini-poutres
        feat = swModel.FeatureByPositionReverse(0)
        refCourbe = feat.GetSpecificFeature2
        swArete = refCourbe.GetFirstSegment ' y'a juste un segment

        swEnt = swArete
        Dim NomAttr As String
        NomAttr = "miniPoutre" & Me.nom & k

        attr = Intersections.DefAttrRCP1.CreateInstance5(swModel, swArete, NomAttr, 0, 0)
        ' mettre les propriétés de la mini-poutre
        ' attention, elle ne doit pas avoir de masse, sa section est alors Mini...

        p = attr.GetParameter("As")
        p.SetDoubleValue2(-7, 2, "")
        Commun.GererDossiers("Poutres", NomAttr)
        k += 1


    End Sub


    Friend Overridable Function AjouterInterFace(ByRef sPoutre As SlyAretePoutre, ByRef xyz1() As Double, ByVal tipe As Byte) As InterCoqueVolume
        ' sub qui CRÉÉ une instance de la classe InterFaceFace si et seulement si il n'en existe pas avant


        'Dim int As InterFaceFace

        ' créez la routine qui ignore la création de 
        Return Nothing ' pout l'instant
    End Function


    Shared Sub reinitialiser()
        compteur = 0
    End Sub

    Public Overrides Sub SaveNom()
        ' procédure qui enregistre le nom et qui , pour l'instant ne tient pas compte des conditions aux limites
        Dim ent As SldWorks.Entity
        Dim i As Long
        Dim nomtemp As String
        'For i = 1 To Me.lst_Faces.Count
        For Each swFace As SldWorks.Face2 In Me.lst_Faces
            ent = swFace
            Dim retval As Boolean
            If Me.lst_Faces.Count > 1 Then nomtemp = nom & "-" & Chr(i + 96) Else nomtemp = nom
            retval = swPart.SetEntityName(ent, nomtemp)
            If retval = False Then
                Dim nom2 As String
                'Dim swface As SldWorks.Face2
                'swface = ent
                'If Me.SwFace Is swface Then MsgBox("La même face!")
                nom2 = swPart.GetEntityName(ent)
                'MsgBox("Impossibilité d'écrire le nom de l'entité... il y a déjà un nom ( " & nom2 & " ) " & Chr(13) & "Et on veut écrire à la place --> " & nomtemp, MsgBoxStyle.Critical, "Problème dans le setID de SlyFaceVol")
                Debug.Print("Impossibilité d'écrire le nom de l'entité... il y a déjà un nom ( " & nom2 & " ) " & Chr(13) & "Et on veut écrire à la place --> " & nomtemp, MsgBoxStyle.Critical, "Problème dans le setID de SlyFaceVol")
            End If
        Next


    End Sub


    Public Function GetNormale(ByRef x As Double, ByRef y As Double, ByRef z As Double) As Double()
        Dim surf As SldWorks.Surface
        Dim retval As Object
        Dim temp(2) As Double

        surf = Me.lst_Faces.Item(0).GetSurface
        retval = surf.EvaluateAtPoint(x, y, z)

        If retval Is Nothing Then MsgBox("Erreur, dans le Getnormal de la face, le point ne semble pas être sur la face")

        temp(0) = retval(0)
        temp(1) = retval(1)
        temp(2) = retval(2)

        Return temp
    End Function
    Public Function GetNormaleSurface(ByRef x As Double, ByRef y As Double, ByRef z As Double) As Double()
        Dim surf As SldWorks.Surface
        Dim retval As Object = Nothing
        Dim temp(2) As Double

        surf = Me.lst_Faces.Item(0).GetSurface
        retval = surf.EvaluateAtPoint(x, y, z)

        temp(0) = retval(0)
        temp(1) = retval(1)
        temp(2) = retval(2)

        Return temp
    End Function


    Public Function GetRayonCourbureMax(ByRef x As Double, ByRef y As Double, ByRef z As Double) As Double
        Dim surf As SldWorks.Surface
        Dim retval As Object
        Dim temp As Double

        surf = Me.lst_Faces.Item(0).GetSurface
        retval = surf.EvaluateAtPoint(x, y, z)

        temp = retval(9)

        Return temp
    End Function

    Public Function GetRayonCourbureMin(ByRef x As Double, ByRef y As Double, ByRef z As Double) As Double
        Dim surf As SldWorks.Surface
        Dim retval As Object
        Dim temp As Double

        surf = Me.lst_Faces.Item(0).GetSurface
        retval = surf.EvaluateAtPoint(x, y, z)

        temp = retval(10)

        Return temp
    End Function

    ' si la surface est un cylindre, retourne son rayon.  Plante ou valeur aléatoire si pas un cylindre
    Public Function GetRayonCylindre() As Double
        Dim surf As SldWorks.Surface
        Dim retval As Object
        Dim temp As Double

        surf = Me.lst_Faces.Item(0).GetSurface
        retval = surf.CylinderParams

        temp = retval(6)

        Return temp
    End Function


    ''' <summary>
    ''' Retourne vrai si une face est plane
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function estPlan() As Boolean
        Dim surf As SldWorks.Surface

        surf = Me.lst_Faces.Item(0).GetSurface()

        If surf.IsPlane Then Return True Else Return False

    End Function


    ''' <summary>
    ''' Retourne vrai si la face est un plan mais pas vu comme tel par solidworks.
    ''' </summary>
    ''' <param name="x"></param>
    ''' <param name="y"></param>
    ''' <param name="z"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function estFauxPlan(ByRef x As Double, ByRef y As Double, ByRef z As Double) As Boolean
        Dim surf As SldWorks.Surface
        surf = Me.lst_Faces.Item(0).GetSurface()
        If Not surf.IsParametric Then Return False

        ' si la normale est la même au point d'intersection et à quelques sommets, alors on a une face plane.
        Dim Normale(2) As Double
        Dim vNormale As Object

        vNormale = surf.EvaluateAtPoint(x, y, z) ' la normale du point d'intersection
        Normale(0) = vNormale(0)
        Normale(1) = vNormale(1)
        Normale(2) = vNormale(2)

        Dim i As Integer
        Dim U As Double, V As Double, Umin As Double, Umax As Double, Vmin As Double, Vmax As Double
        Dim retval As Object

        retval = surf.Parameterization()
        Umin = retval(0)
        Umax = retval(1)
        Vmin = retval(2)
        Vmax = retval(3)

        Randomize()

        For i = 0 To 5
            U = Rnd() * (Umax - Umin) + Umin
            V = Rnd() * (Vmax - Vmin) + Vmin
            vNormale = surf.Evaluate(U, V, 0, 0)
            If Not (Math.Abs(vNormale(3) - Normale(0)) < Epsilon And Math.Abs(vNormale(4) - Normale(1)) < Epsilon And Math.Abs(vNormale(5) - Normale(2)) < Epsilon) Then Return False
        Next i

        Return True


    End Function

    Public Function estCylindre() As Boolean
        Dim surf As SldWorks.Surface

        surf = Me.lst_Faces.Item(0).GetSurface

        If surf.IsCylinder Then Return True Else Return False

    End Function


    Protected Overrides Sub Finalize()
        ' mettre l'effacement des listes ici.

        MyBase.Finalize()
    End Sub


    Public Sub MettreAttributPourConditionLimite()
        Dim swent As SldWorks.Entity
        Dim nom As String
        Dim cond As String

        cond = Me.condition
        If cond = "" Then Exit Sub

        swent = Me.SwFace

        nom = Me.nom & "CL" & CStr(no) & "_" & cond
        Dim Attr As SldWorks.Attribute = Nothing

        Try
            Attr = swent.FindAttribute(Intersections.DefAttrConditionLimite, 0) ' si l'attribut existe déjà on pointe dessus.
        Catch ex As Exception
            MsgBox("N'arrive pas à se lier à l'attribut, erreur: " & ex.Message, MsgBoxStyle.Critical)
        End Try

        If Attr Is Nothing Then Attr = Intersections.DefAttrConditionLimite.CreateInstance5(swModel, Me.SwFace, nom, 0, 2) ' 0 = swThisconfig


        While Attr Is Nothing
            no += 1
            nom = "CL" & Me.nom & "_" & cond
            Attr = Intersections.DefAttrConditionLimite.CreateInstance5(swModel, Me.SwFace, nom, 0, 0)
        End While


        Dim ParamCL As SldWorks.Parameter
        ParamCL = Attr.GetParameter("CL")

        ParamCL.SetStringValue2(cond, 2, "")  ' swAllConfiguration = 2
        Me.AttributCL = Attr
        GererDossiers("Conditions Aux Limites", nom)
        no = no + 1

    End Sub

    ' une fonction qui transforme un attribut en condition aux limites
    Public Sub AttributVersConditionLimite()
        Dim p As SldWorks.Parameter
        Dim ent As SldWorks.Entity
        Dim attr As SldWorks.Attribute

        ent = Me.SwFace
        attr = ent.FindAttribute(Intersections.DefAttrConditionLimite, 0)
        If Not attr Is Nothing Then
            p = attr.GetParameter("CL")
            nom = nomOrig & "@" & p.GetStringValue
        End If

    End Sub


    ' sub qui coupe la face avec une arète qui repose dessus.
    Friend Sub CoupeLong(ByRef inter As InterPoutreVolume, ByVal poutre As SlyAretePoutre)


        'Dim swEnt As SldWorks.Entity
        'Dim swSketchSegment As SldWorks.SketchSegment
        'Dim vSketchSegments As Object
        'Dim swSketch As SldWorks.Sketch
        'Dim faceinterne(1) As SldWorks.Face2
        'Dim swPlan As SldWorks.RefPlane = Nothing
        'Dim b As Integer
        'Dim swSommet As SldWorks.Vertex
        'Dim i As Integer

        'swModel.SetInferenceMode(False) ' ne pas mettre de contraintes par défaut

        '' faut découper toutes les faces de la liste si elles ne sont pas des faces internes
        'Dim MeFace As SldWorks.Face2
        ''Dim ListeFace() As SldWorks.Face2
        ''ReDim ListeFace(Me.lst_Faces.Count - 1)

        ''For i = 1 To Me.lst_Faces.Count
        ''ListeFace(i - 1) = Me.lst_Faces.Item(i)
        ''Next

        'For Each MeFace In Me.lst_Faces 'ListeFace

        '    If Me.estPlan Then
        '        swEnt = MeFace
        '        swEnt.Select(False)
        '        swPlan = swModel.CreatePlaneAtOffset3(0, False, False)
        '        swEnt.Select(False)
        '        swModel.InsertSketch2(True)

        '        swPlan = swModel.CreatePlaneAtOffset3(0, False, False)

        '    ElseIf Me.estFauxPlan(inter.x, inter.y, inter.z) Then
        '        If b = 0 Then
        '            Dim vEdge As Object


        '            vEdge = MeFace.GetEdges
        '            swModel.ClearSelection2(True)
        '            While swPlan Is Nothing
        '                If UBound(vEdge) - 2 < i Then MsgBox("Dans CoupeLong, problème pour créer un plan avec 3 points.  (La face est un FauxPlan)", MsgBoxStyle.Critical, "Le plan ne sera pas créé") : Exit While
        '                swSommet = vEdge(i).GetStartVertex()
        '                swEnt = swSommet
        '                swEnt.Select4(False, Nothing)
        '                swSommet = vEdge(i + 1).GetStartVertex()
        '                swEnt = swSommet
        '                swEnt.Select4(True, Nothing)
        '                swSommet = vEdge(i + 2).GetStartVertex()
        '                swEnt = swSommet
        '                swEnt.Select4(True, Nothing)
        '                i += 1
        '                swPlan = swModel.CreatePlaneThru3Points3(False)

        '            End While
        '        End If
        '        swEnt = swPlan
        '        swEnt.Select(False)
        '        swModel.InsertSketch2(True)

        '    Else
        '        MsgBox("Dans coupeLong, on a un type de face qui n'est pas encore traité")

        '    End If


        '    swSketch = swModel.GetActiveSketch2

        '    swEnt = poutre.swArete
        '    swEnt.Select(False)

        '    ' créer la ligne de  «conversion de entités»
        '    swModel.SketchUseEdge2(False)

        '    vSketchSegments = swSketch.GetSketchSegments()
        '    swSketchSegment = vSketchSegments(0)
        '    swSketchSegment.Select2(False, 1)  'on sélectionne l'arète de poutre...

        '    Dim x As Double, y As Double, z As Double
        '    Commun.GetMidPointSegment(swSketchSegment, x, y, z)


        '    ' sketchoffset doit avoir un mark de 1 pour l'objet à offsetter.  Une valeur négative inverse la direction
        '    swModel.SketchManager.SketchOffset(poutre.GetD2, False, 0, 0, 0, 0)
        '    ' pour rendre le modèle plus beau, on peut enlever la contrainte de offset et laisser solidworks mettre des contraintes automatiques...

        '    Dim retval As Object
        '    Dim skPointA1 As sldworks.SketchPoint = Nothing, skPointA2 As sldworks.SketchPoint = Nothing, skPointB1 As sldworks.SketchPoint = Nothing, skPointB2 As sldworks.SketchPoint = Nothing

        '    vSketchSegments = swSketch.GetSketchSegments()
        '    swSketchSegment = vSketchSegments(1)


        '    Select Case swSketchSegment.GetType()
        '        Case 0 ' on a une ligne
        '            Dim sketchline As sldworks.SketchLine
        '            sketchline = swSketchSegment
        '            skPointA1 = sketchline.GetStartPoint2
        '            skPointA2 = sketchline.GetEndPoint2()
        '        Case 1 ' arc
        '            Dim arc As sldworks.SketchArc
        '            arc = swSketchSegment
        '            skPointA1 = arc.GetStartPoint
        '            skPointA2 = arc.GetEndPoint2
        '        Case 2 ' ellipse
        '            Dim sketchEllipse As sldworks.SketchEllipse
        '            sketchEllipse = swSketchSegment
        '            skPointA1 = sketchEllipse.GetStartPoint2
        '            skPointA2 = sketchEllipse.GetEndPoint2
        '        Case 3 ' spline
        '            Dim spline As sldworks.SketchSpline
        '            Dim pts() As sldworks.SketchPoint
        '            spline = swSketchSegment
        '            retval = spline.GetPoints2()
        '            pts = retval
        '            skPointA1 = pts(0)
        '            skPointA2 = pts(UBound(pts))
        '        Case 5 ' parabole (le 4 est du texte)
        '            Dim para As sldworks.SketchParabola
        '            para = swSketchSegment
        '            skPointA1 = para.GetStartPoint2
        '            skPointA2 = para.GetEndPoint2
        '    End Select

        '    swSketchSegment = vSketchSegments(0)
        '    Select Case swSketchSegment.GetType()
        '        Case 0 ' on a une ligne
        '            Dim sketchline As sldworks.SketchLine
        '            sketchline = swSketchSegment
        '            skPointB1 = sketchline.GetStartPoint2
        '            skPointB2 = sketchline.GetEndPoint2()
        '        Case 1 ' arc
        '            Dim arc As sldworks.SketchArc
        '            arc = swSketchSegment
        '            skPointB1 = arc.GetStartPoint
        '            skPointB2 = arc.GetEndPoint2
        '        Case 2 ' ellipse
        '            Dim sketchEllipse As sldworks.SketchEllipse
        '            sketchEllipse = swSketchSegment
        '            skPointB1 = sketchEllipse.GetStartPoint2
        '            skPointB2 = sketchEllipse.GetEndPoint2
        '        Case 3 ' spline
        '            Dim spline As sldworks.SketchSpline
        '            Dim pts() As sldworks.SketchPoint
        '            spline = swSketchSegment
        '            retval = spline.GetPoints2()
        '            pts = retval
        '            skPointB1 = pts(0)
        '            skPointB2 = pts(UBound(pts))
        '        Case 5 ' parabole (le 4 est du texte)
        '            Dim para As sldworks.SketchParabola
        '            para = swSketchSegment
        '            skPointB1 = para.GetStartPoint2
        '            skPointB2 = para.GetEndPoint2
        '    End Select

        '    ' création des 2 lignes pour fermer le sketch.
        '    swModel.CreateLine2(skPointA1.X, skPointA1.Y, 0, skPointB1.X, skPointB1.Y, 0)
        '    swModel.CreateLine2(skPointA2.X, skPointA2.Y, 0, skPointB2.X, skPointB2.Y, 0)


        '    Dim x2 As Double, y2 As Double, z2 As Double ' le midpoint de la poutre
        '    Dim x3 As Double, y3 As Double, z3 As Double ' le midpoint de la poutre

        '    swSketchSegment = vSketchSegments(0) ' le midpoint d'une poutre
        '    Commun.GetMidPointSegment(swSketchSegment, x2, y2, z2)

        '    swSketchSegment = vSketchSegments(1) ' le midpoint de l'autre poutre
        '    Commun.GetMidPointSegment(swSketchSegment, x3, y3, z3)

        '    Dim sk(1) As Double, r(2) As Double
        '    sk(0) = (x3 + x2) / 2
        '    sk(1) = (y3 + y2) / 2
        '    r = Commun.TransfertSketchToModel(swSketch, sk)

        '    swModel.InsertSketch2(True) ' l'option true rebuild le modèle avec les modifications du sketch.
        '    swModel.ClearSelection2(True)
        '    swEnt = MeFace : swEnt.Select2(False, 1)
        '    swEnt = swSketch : swEnt.Select2(True, 4)

        '    swModel.InsertSplitLineProject(False, False)

        '    Me.Flag = 20 ' pour dire que l'on a un coupeLong
        '    faceinterne(b) = UpdateApresSplit(inter, poutre, r(0), r(1), r(2), swPlan) ' et ça s'occupe de créer la coque... mais je suis pas certain que c'est nécessaire
        '    Me.Flag = 0


    End Sub


    ''' <summary>
    ''' Sub qui appelle le découpage de la face
    ''' </summary>
    ''' <remarks>On devrait revoir cette sub en fonction des nouveaux outils de VB2005</remarks>
    Public Overridable Sub decouper()
        MsgBox("La fonction non Overridé a été appelée!")
    End Sub


    ''' <summary>
    ''' Renvoie le nombre d'arêtes dans la face principale
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public ReadOnly Property NbSommets() As Integer
        Get
            Dim lst_sommets As New Collections.Generic.List(Of sldworks.Vertex)
            Dim swSommet As sldworks.Vertex = Nothing
            Dim vedges As Object = Me.SwFace.GetEdges
            For Each edge As sldworks.Edge In vedges
                swSommet = edge.GetStartVertex
                If swSommet IsNot Nothing Then
                    lst_sommets.Add(swSommet)
                    swSommet = edge.GetEndVertex
                    lst_sommets.Add(swSommet)
                End If
            Next
            Return lst_sommets.Count
        End Get
    End Property

    ''' <summary>
    ''' Coupe si nécesaire la face lorsque l'on a une poutre avec face de section.  À noter que si l'on coupe c'est avec un angle de pi / 8
    ''' </summary>
    ''' <param name="inter"></param>
    ''' <remarks></remarks>
    Protected Sub CoupeFaceDeSection(ByRef inter As InterPoutreVolume)
        Dim swEnt As sldworks.Entity = Nothing
        Dim Directionnel As Boolean
        Dim Faces(3) As sldworks.Face2
        Dim r(2) As Double
        Dim p(2) As Double
        Dim planReference As sldworks.RefPlane = Nothing
        Dim swsketch As sldworks.Sketch
        Dim pointdeb(2) As Double, pointfin(2) As Double
        Dim sketchline As sldworks.SketchLine
        Dim swFeat As sldworks.Feature


        swModel.SetInferenceMode(False) ' ne pas mettre de contraintes par défaut

        swEnt = Me.SwFace
        swEnt.Select(False)
        swModel.InsertSketch2(False)
        swsketch = swModel.GetActiveSketch2

        ' dessin de la forme à faire SI NÉCESSAIRE
        If Me.NbSommets = 0 OrElse Distance(Me.SwFace, inter.x, inter.y, inter.z) < Epsilon Then

            Dim xyzc() As Double, xyz(2) As Double
            xyz(0) = inter.x : xyz(1) = inter.y : xyz(2) = inter.z
            xyzc = Commun.TransfertModelSketch(swsketch, xyz)

            sketchline = swModel.CreateLine2(xyzc(0), xyzc(1), 0, xyzc(0) + Math.Cos(Pi / 8), xyzc(1) + Math.Sin(Pi / 8), 0)
            sketchline = swModel.CreateLine2(xyzc(0), xyzc(1), 0, xyzc(0) - Math.Cos(Pi / 8), xyzc(1) + Math.Sin(Pi / 8), 0)
            swModel.CreateArc2(xyzc(0), xyzc(1), 0, xyzc(0) + Math.Cos(Pi / 8), xyzc(1) + Math.Sin(Pi / 8), 0, xyzc(0) - Math.Cos(Pi / 8), xyzc(1) + Math.Sin(Pi / 8), 0, 1) ' le dernier param est la direction.  1 ou -1

            swModel.InsertSketch2(True) ' l'option true rebuild le modèle avec les modifications du sketch.
            swModel.ClearSelection2(True)

            swEnt = Me.SwFace : swEnt.Select2(False, 1)
            swEnt = swsketch : swEnt.Select2(True, 4)
            swModel.InsertSplitLineProject(Directionnel, False)


            ' flagger les 2 faces comme faces Internes.
            Dim vface As Object
            Dim face As sldworks.Face2 = Nothing
            swFeat = swModel.FeatureByPositionReverse(0)
            Try
                vface = swFeat.GetFaces
                For Each face In vface
                    no = Me.MettreAttributFaceInterne(face, 2 * Me.Aire / Me.Perimetre, True) ' plus certain que l'on a besoin du numéro
                    Me.AjouterFace(face)
                Next face
            Catch
                ' si on a une poutre dessinée en partie, on aura pas de feature... mais on a la face...
                ' on doit donc le déterminer anyway
            End Try

            ' si ça ne touche pas à la face
            If Not Distance(Me.SwFace, inter.x, inter.y, inter.z) < Epsilon Then
                AjouterMiniPoutresSurFaceInterne(inter.lst_sPoutre.Item(1), face, inter.x, inter.y, inter.z)
                'MsgBox("On ajoute une mini-poutre entre la poutre " & inter.lst_sPoutre.Item(1).nom & vbCr & " et le point ( " & Format(inter.x * 1000, "0000") & " , " & Format(inter.y * 1000, "0000") & " , " & Format(inter.y * 1000, "0000") & " )")
            End If

        Else ' flagger la seule face comme face interne
            Me.MettreAttributFaceInterne(Me.SwFace, 2 * Me.Aire / Me.Perimetre, True)
            If Not Distance(Me.SwFace, inter.x, inter.y, inter.z) < Epsilon Then
                AjouterMiniPoutresSurFaceInterne(inter.lst_sPoutre.Item(1), Me.SwFace, inter.x, inter.y, inter.z)
                'MsgBox("On ajoute une mini-poutre entre la poutre " & inter.lst_sPoutre.Item(1).nom & vbCr & " et le point ( " & Format(inter.x * 1000, "0000") & " , " & Format(inter.y * 1000, "0000") & " , " & Format(inter.y * 1000, "0000") & " )")
            End If
        End If
        swModel.SetInferenceMode(True)

    End Sub


    Friend Overridable Sub chercherAttributs()
        Dim swEnt As sldworks.Entity
        Dim attr As sldworks.Attribute

        swEnt = Me.SwFace

        attr = swEnt.FindAttribute(Intersections.DefAttrConditionLimite, 0)
        If Not attr Is Nothing Then Me.AttributCL = attr : attr = Nothing

        'attr = swent.findattribute(intersections.DefAttrFaceInterne,0) ' ne devrait pas s'entrecouper...

    End Sub

    Protected Function Flipper(ByRef PlanDessus As sldworks.RefPlane, ByRef inter As InterAreteFace) As Boolean
        ' function qui dit si l'on doit flipper le sens du plan de référence.
        ' calcul de la direction à prendre
        Dim retval As Object
        Dim ret(8) As Double
        Dim ret2(6) As Double
        Dim normalePlan(2) As Double
        Dim OV(2) As Double
        Dim swSurf As sldworks.Surface

        retval = PlanDessus.GetRefPlaneParams()
        ret = retval
        normalePlan(0) = ret(6) : normalePlan(1) = ret(7) : normalePlan(2) = ret(8)
        swSurf = Me.lst_Faces.Item(0).GetSurface
        retval = swSurf.CylinderParams() ' 7 doubles, les 3 premiers sont l'origine
        ret2 = retval
        OV(0) = ret2(0) - inter.x : OV(1) = ret2(1) - inter.y : OV(2) = ret2(2) - inter.z

        ' l'angle est le produit scalaire divisé par la norme des 2 vecteurs
        Dim temp As Double = Outils_Math.Angle2Vecteurs(OV, normalePlan)
        If (temp < Pi / 2) And (temp > -Pi / 2) Then Return False Else Return True

    End Function

    ''' <summary>
    ''' Sub qui dessine (insère des lignes) sur le sketch en fonction de la forme de la poutre.
    ''' </summary>
    ''' <param name="Poutre"></param>
    ''' <param name="TranslationX"></param>
    ''' <param name="TranslationY"></param>
    ''' <param name="numero"></param>
    ''' <param name="swSketch"></param>
    ''' <param name="inter"></param>
    ''' <param name="MettreFI"></param>
    ''' <returns></returns>
    ''' <remarks>Si Flag = 2 alors on met une faceInterne ET une mini-poutre</remarks>
    Protected Function DessineSectionPoutre(ByRef Poutre As SlyAretePoutre, ByVal TranslationX As Double, ByVal TranslationY As Double, ByVal numero As Integer, ByRef swSketch As sldworks.Sketch, ByRef inter As InterAreteFace, ByRef MettreFI As Boolean, ByRef autreSection As Boolean, ByRef AjouterMiniPoutre As Boolean) As Double()
        ' le sketch est déjà inséré, il faut juste mettre des swmodel.line ou autre
        ' doit retourner r() qui est un point situé à l'intérieur de la coupe
        Dim sketchline As sldworks.SketchSegment
        Dim longueur As Double
        Dim r(2) As Double
        Dim sk(1) As Double
        Dim i As Integer
        Dim Ligne() As Double = Nothing ' liste des lignes (4 valeurs par ligne)
        Dim pt3() As Double
        Dim Nomsection As String

        MettreFI = True

        ' on doit activer le sketch avant d'utiliser la fonction getactivesketch
        pt3 = Poutre.GetPoint3
        longueur = Math.Sqrt(pt3(0) * pt3(0) + pt3(1) * pt3(1))
        Dim IP(2) As Double ' IP est le vecteur directionnel
        IP(0) = pt3(0) - inter.x : IP(1) = pt3(1) - inter.y : IP(2) = pt3(2) - inter.z


        pt3 = Commun.TransfertModelSketch(swSketch, pt3)
        longueur = Math.Sqrt(pt3(0) * pt3(0) + pt3(1) * pt3(1))

        Nomsection = Poutre.GetNomSection
        If Nomsection = "Rectangle" Or Nomsection = " Rectangle générique" Then ' un rectangle
            Select Case numero
                Case 1
                    Dim P(2, 1) As Double
                    P(0, 0) = 0
                    P(0, 1) = 0
                    P(1, 0) = Poutre.GetD1 / 2
                    P(1, 1) = -Poutre.GetD2 / 2
                    P(2, 0) = Poutre.GetD1 / 2
                    P(2, 1) = Poutre.GetD2 / 2

                    ReDim Ligne(11)
                    pt3(0) -= TranslationX
                    pt3(1) -= TranslationY
                    For i = 0 To 2
                        Outils_Math.Rotation2D(pt3, P(i, 0), P(i, 1))
                        P(i, 0) += TranslationX
                        P(i, 1) += TranslationY
                    Next i

                    For i = 0 To 1
                        Ligne(i * 4) = P(i, 0) : Ligne(i * 4 + 1) = P(i, 1) : Ligne(i * 4 + 2) = P(i + 1, 0) : Ligne(i * 4 + 3) = P(i + 1, 1)
                    Next i
                    Ligne(8) = P(2, 0) : Ligne(9) = P(2, 1) : Ligne(10) = P(0, 0) : Ligne(11) = P(0, 1)

                    r(0) = inter.x + 5000 * Epsilon * IP(0)
                    r(1) = inter.y + 5000 * Epsilon * IP(1)
                    r(2) = inter.z + 5000 * Epsilon * IP(2)

                    autreSection = True
                    AjouterMiniPoutre = False
                    MettreFI = True

                Case 2
                    ReDim Ligne(19)

                    Dim p(4, 1) As Double
                    p(0, 0) = 0
                    p(0, 1) = 0
                    p(1, 0) = Poutre.GetD1 / 2
                    p(1, 1) = Poutre.GetD2 / 2
                    p(2, 0) = -Poutre.GetD1 / 2
                    p(2, 1) = Poutre.GetD2 / 2
                    p(3, 0) = -Poutre.GetD1 / 2
                    p(3, 1) = -Poutre.GetD2 / 2
                    p(4, 0) = Poutre.GetD1 / 2
                    p(4, 1) = -Poutre.GetD2 / 2


                    pt3(0) -= TranslationX
                    pt3(1) -= TranslationY
                    pt3(0) /= longueur : pt3(1) /= longueur
                    For i = 0 To 4
                        Outils_Math.Rotation2D(pt3, p(i, 0), p(i, 1))
                        p(i, 0) += TranslationX
                        p(i, 1) += TranslationY
                    Next i

                    For i = 0 To 3
                        Ligne(i * 4) = p(i, 0) : Ligne(i * 4 + 1) = p(i, 1) : Ligne(i * 4 + 2) = p(i + 1, 0) : Ligne(i * 4 + 3) = p(i + 1, 1)
                    Next i
                    Ligne(16) = p(4, 0) : Ligne(17) = p(4, 1) : Ligne(18) = p(0, 0) : Ligne(19) = p(0, 1)
                    r(0) = inter.x - 5000 * Epsilon * IP(0)
                    r(1) = inter.y - 5000 * Epsilon * IP(1)
                    r(2) = inter.z - 5000 * Epsilon * IP(2)

                    autreSection = False
                    AjouterMiniPoutre = False
                    MettreFI = True
            End Select


        ElseIf Left(Nomsection, 2) = "ST" Or Nomsection = " Tube carré générique" Then ' tube carré troué
            Dim P(3, 1) As Double
            Select Case numero
                Case 1
                    P(0, 0) = Poutre.GetD1 / 2
                    P(0, 1) = -Poutre.GetD2 / 2
                    P(1, 0) = P(0, 0)
                    P(1, 1) = -P(0, 1)
                    P(2, 0) = -P(0, 0)
                    P(2, 1) = P(1, 1)
                    P(3, 0) = P(2, 0)
                    P(3, 1) = P(0, 1)

                    r(0) = Poutre.GetD1 / 2 - Poutre.GetD3 / 2
                    r(1) = 0 : r(2) = 0
                    Outils_Math.Rotation2D(pt3, r(0), r(1))
                    r(0) += TranslationX
                    r(1) += TranslationY
                    r = Commun.TransfertSketchToModel(swSketch, r)

                    pt3(0) -= TranslationX
                    pt3(1) -= TranslationY
                    pt3(0) /= longueur : pt3(1) /= longueur
                    For i = 0 To 3
                        Outils_Math.Rotation2D(pt3, P(i, 0), P(i, 1))
                        P(i, 0) += TranslationX
                        P(i, 1) += TranslationY
                    Next i

                    ReDim Ligne(15)
                    Ligne(0) = P(0, 0) : Ligne(1) = P(0, 1) : Ligne(2) = P(1, 0) : Ligne(3) = P(1, 1)
                    Ligne(4) = P(1, 0) : Ligne(5) = P(1, 1) : Ligne(6) = P(2, 0) : Ligne(7) = P(2, 1)
                    Ligne(8) = P(2, 0) : Ligne(9) = P(2, 1) : Ligne(10) = P(3, 0) : Ligne(11) = P(3, 1)
                    Ligne(12) = P(3, 0) : Ligne(13) = P(3, 1) : Ligne(14) = P(0, 0) : Ligne(15) = P(0, 1)
                    MettreFI = False
                    autreSection = True
                    AjouterMiniPoutre = False

                Case 2
                    P(0, 0) = Poutre.GetD1 / 2 - Poutre.GetD3
                    P(0, 1) = -Poutre.GetD2 / 2 + Poutre.GetD3
                    P(1, 0) = P(0, 0)
                    P(1, 1) = -P(0, 1)
                    P(2, 0) = -P(1, 0)
                    P(2, 1) = P(1, 1)
                    P(3, 0) = P(2, 0)
                    P(3, 1) = P(0, 1)

                    r(0) = Poutre.GetD1 / 2 - Poutre.GetD3 / 2
                    r(1) = 0 : r(2) = 0
                    Outils_Math.Rotation2D(pt3, r(0), r(1))
                    r(0) += TranslationX
                    r(1) += TranslationY
                    r = Commun.TransfertSketchToModel(swSketch, r)

                    pt3(0) -= TranslationX
                    pt3(1) -= TranslationY
                    pt3(0) /= longueur : pt3(1) /= longueur
                    For i = 0 To 3
                        Outils_Math.Rotation2D(pt3, P(i, 0), P(i, 1))
                        P(i, 0) += TranslationX
                        P(i, 1) += TranslationY
                    Next i

                    ReDim Ligne(15)
                    Ligne(0) = P(0, 0) : Ligne(1) = P(0, 1) : Ligne(2) = P(1, 0) : Ligne(3) = P(1, 1)
                    Ligne(4) = P(1, 0) : Ligne(5) = P(1, 1) : Ligne(6) = P(2, 0) : Ligne(7) = P(2, 1)
                    Ligne(8) = P(2, 0) : Ligne(9) = P(2, 1) : Ligne(10) = P(3, 0) : Ligne(11) = P(3, 1)
                    Ligne(12) = P(3, 0) : Ligne(13) = P(3, 1) : Ligne(14) = P(0, 0) : Ligne(15) = P(0, 1)

                    MettreFI = True  ' lorsque l'on sort on met une face interne
                    autreSection = False
                    AjouterMiniPoutre = True

            End Select


        ElseIf Left(Nomsection, 1) = "S" Or Nomsection = " Poutre en I générique" Then ' poutre en I de type S
            Dim P(8, 1) As Double

            Select Case numero
                Case 1
                    Dim d As Double
                    d = Poutre.GetD4 * 0.8660254038 '  section.D4 / (2 * tan(30))

                    P(0, 0) = 0
                    P(0, 1) = 0
                    P(1, 0) = -d
                    P(1, 1) = -Poutre.GetD4 / 2.0R
                    P(2, 0) = (Poutre.GetD1 / 2) - Poutre.GetD3
                    P(2, 1) = -Poutre.GetD4 / 2.0R
                    P(3, 0) = P(2, 0)
                    P(3, 1) = -Poutre.GetD2 / 2
                    P(4, 0) = Poutre.GetD1 / 2
                    P(4, 1) = P(3, 1)
                    P(5, 0) = P(4, 0)
                    P(5, 1) = -P(4, 1)
                    P(6, 0) = P(3, 0)
                    P(6, 1) = -P(3, 1)
                    P(7, 0) = P(2, 0)
                    P(7, 1) = -P(2, 1)
                    P(8, 0) = P(1, 0)
                    P(8, 1) = -P(1, 1)

                    pt3(0) -= TranslationX
                    pt3(1) -= TranslationY
                    pt3(0) /= longueur : pt3(1) /= longueur
                    For i = 0 To 8
                        Outils_Math.Rotation2D(pt3, P(i, 0), P(i, 1))
                        P(i, 0) += TranslationX
                        P(i, 1) += TranslationY
                    Next i

                    ReDim Ligne(35)
                    For i = 0 To 7
                        Ligne(i * 4) = P(i, 0) : Ligne(i * 4 + 1) = P(i, 1) : Ligne(i * 4 + 2) = P(i + 1, 0) : Ligne(i * 4 + 3) = P(i + 1, 1)
                    Next i
                    Ligne(32) = P(8, 0) : Ligne(33) = P(8, 1) : Ligne(34) = P(0, 0) : Ligne(35) = P(0, 1)
                    r(0) = inter.x + 5000 * Epsilon * IP(0)
                    r(1) = inter.y + 5000 * Epsilon * IP(1)
                    r(2) = inter.z + 5000 * Epsilon * IP(2)
                    autreSection = True
                    AjouterMiniPoutre = False
                    MettreFI = True
                Case 2

                    Dim d As Double
                    d = Poutre.GetD4 * 0.8660254038 '  section.D4 / (2 * tan(30))

                    P(0, 0) = 0
                    P(0, 1) = 0

                    P(1, 0) = -d
                    P(1, 1) = -Poutre.GetD4 / 2.0R
                    P(2, 0) = -((Poutre.GetD1 / 2) - Poutre.GetD3)
                    P(2, 1) = -Poutre.GetD4 / 2.0R
                    P(3, 0) = P(2, 0)
                    P(3, 1) = -Poutre.GetD2 / 2
                    P(4, 0) = -Poutre.GetD1 / 2
                    P(4, 1) = P(3, 1)
                    P(5, 0) = P(4, 0)
                    P(5, 1) = -P(4, 1)
                    P(6, 0) = P(3, 0)
                    P(6, 1) = -P(3, 1)
                    P(7, 0) = P(2, 0)
                    P(7, 1) = -P(2, 1)
                    P(8, 0) = P(1, 0)
                    P(8, 1) = -P(1, 1)

                    pt3(0) -= TranslationX
                    pt3(1) -= TranslationY
                    pt3(0) /= longueur : pt3(1) /= longueur
                    For i = 0 To 8
                        Outils_Math.Rotation2D(pt3, P(i, 0), P(i, 1))
                        P(i, 0) += TranslationX
                        P(i, 1) += TranslationY
                    Next i

                    ReDim Ligne(35)
                    For i = 0 To 7
                        Ligne(i * 4) = P(i, 0) : Ligne(i * 4 + 1) = P(i, 1) : Ligne(i * 4 + 2) = P(i + 1, 0) : Ligne(i * 4 + 3) = P(i + 1, 1)
                    Next i
                    Ligne(32) = P(8, 0) : Ligne(33) = P(8, 1) : Ligne(34) = P(0, 0) : Ligne(35) = P(0, 1)

                    r(0) = inter.x - 5000 * Epsilon * IP(0)
                    r(1) = inter.y - 5000 * Epsilon * IP(1)
                    r(2) = inter.z - 5000 * Epsilon * IP(2)
                    autreSection = False
                    AjouterMiniPoutre = False
                    MettreFI = True
            End Select
            MettreFI = True

        ElseIf Left(Nomsection, 5) = "Tuyau" OrElse Nomsection = " Tuyau (Pipe) générique" Then ' le tube rond
            Dim p(4, 1) As Double
            p(0, 0) = Poutre.GetD1 / 2 - Poutre.GetD3
            p(0, 1) = 0
            p(1, 0) = Poutre.GetD1 / 2
            p(1, 1) = 0
            p(2, 0) = -p(0, 0)
            p(2, 1) = 0
            p(3, 0) = -p(1, 0)
            p(3, 1) = 0
            p(4, 0) = 0
            p(4, 1) = 0

            Select Case numero
                Case 1

                    r(0) = 0
                    r(1) = Poutre.GetD1 / 2 - Poutre.GetD3 / 2 : r(2) = 0
                    Outils_Math.Rotation2D(pt3, r(0), r(1))
                    r(0) += TranslationX
                    r(1) += TranslationY
                    r = Commun.TransfertSketchToModel(swSketch, r)

                    pt3(0) -= TranslationX
                    pt3(1) -= TranslationY
                    pt3(0) /= longueur : pt3(1) /= longueur
                    For i = 0 To 4
                        Outils_Math.Rotation2D(pt3, p(i, 0), p(i, 1))
                        p(i, 0) += TranslationX
                        p(i, 1) += TranslationY
                    Next i

                    ReDim Ligne(7)
                    Ligne(0) = p(0, 0) : Ligne(1) = p(0, 1) : Ligne(2) = p(1, 0) : Ligne(3) = p(1, 1)
                    Ligne(4) = p(2, 0) : Ligne(5) = p(2, 1) : Ligne(6) = p(3, 0) : Ligne(7) = p(3, 1)
                    swModel.CreateArc2(p(4, 0), p(4, 1), 0, p(1, 0), p(1, 1), 0, p(3, 0), p(3, 1), 0, 1)
                    swModel.CreateArc2(p(4, 0), p(4, 1), 0, p(0, 0), p(0, 1), 0, p(2, 0), p(2, 1), 0, 1)
                    MettreFI = True
                    autreSection = True
                    AjouterMiniPoutre = False

                Case 2

                    r(0) = 0
                    r(1) = -Poutre.GetD1 / 2 + Poutre.GetD3 / 2 : r(2) = 0
                    Outils_Math.Rotation2D(pt3, r(0), r(1))
                    r(0) += TranslationX
                    r(1) += TranslationY
                    r = Commun.TransfertSketchToModel(swSketch, r)

                    pt3(0) -= TranslationX
                    pt3(1) -= TranslationY
                    pt3(0) /= longueur : pt3(1) /= longueur
                    For i = 0 To 4
                        Outils_Math.Rotation2D(pt3, p(i, 0), p(i, 1))
                        p(i, 0) += TranslationX
                        p(i, 1) += TranslationY
                    Next i

                    ReDim Ligne(7)
                    Ligne(0) = p(0, 0) : Ligne(1) = p(0, 1) : Ligne(2) = p(1, 0) : Ligne(3) = p(1, 1)
                    Ligne(4) = p(2, 0) : Ligne(5) = p(2, 1) : Ligne(6) = p(3, 0) : Ligne(7) = p(3, 1)
                    swModel.CreateArc2(p(4, 0), p(4, 1), 0, p(1, 0), p(1, 1), 0, p(3, 0), p(3, 1), 0, -1)
                    swModel.CreateArc2(p(4, 0), p(4, 1), 0, p(0, 0), p(0, 1), 0, p(2, 0), p(2, 1), 0, -1)
                    'MettreFI = True  ' lorsque l'on sort on met une face interne
                    MettreFI = true
                    autreSection = False
                    AjouterMiniPoutre = True

            End Select

        ElseIf Left(Poutre.GetNomSection, 2) = "Cy" Or Nomsection = " Cylindrique (Rod) générique" Then ' Pipe, 
            Dim P(2, 1) As Double
            Dim d As Double, e As Double
            d = Poutre.GetD1 / 4 ' Math.Sin(30)  ( et on doit diviser le diamètre par 2)
            e = Poutre.GetD1 * Math.Sqrt(3) / 4 ' cos (30°)

            P(0, 0) = 0
            P(0, 1) = 0
            P(1, 0) = d
            P(1, 1) = -e
            P(2, 0) = d
            P(2, 1) = e

            Select Case numero
                Case 1
                    r(0) = P(0, 0) + 1000 * Epsilon
                    r(1) = 0 : r(2) = 0
                    Outils_Math.Rotation2D(pt3, r(0), r(1))
                    r(0) += TranslationX
                    r(1) += TranslationY
                    r = Commun.TransfertSketchToModel(swSketch, r)
                    pt3(0) -= TranslationX
                    pt3(1) -= TranslationY
                    pt3(0) /= longueur : pt3(1) /= longueur
                    For i = 0 To 2
                        Outils_Math.Rotation2D(pt3, P(i, 0), P(i, 1))
                        P(i, 0) += TranslationX
                        P(i, 1) += TranslationY
                    Next i
                    ReDim Ligne(7)
                    Ligne(0) = P(0, 0) : Ligne(1) = P(0, 1) : Ligne(2) = P(1, 0) : Ligne(3) = P(1, 1)
                    Ligne(4) = P(0, 0) : Ligne(5) = P(0, 1) : Ligne(6) = P(2, 0) : Ligne(7) = P(2, 1)
                    swModel.CreateArc2(P(0, 0), P(0, 1), 0, P(1, 0), P(1, 1), 0, P(2, 0), P(2, 1), 0, 1) ' le dernier param est la direction.  1 ou -1
                    autreSection = True
                    AjouterMiniPoutre = False
                    MettreFI = True
                Case 2
                    r(0) = P(0, 0) - 1000 * Epsilon
                    r(1) = 0 : r(2) = 0
                    Outils_Math.Rotation2D(pt3, r(0), r(1))
                    r(0) += TranslationX
                    r(1) += TranslationY
                    r = Commun.TransfertSketchToModel(swSketch, r)

                    pt3(0) -= TranslationX
                    pt3(1) -= TranslationY
                    pt3(0) /= longueur : pt3(1) /= longueur
                    For i = 0 To 2
                        Outils_Math.Rotation2D(pt3, P(i, 0), P(i, 1))
                        P(i, 0) += TranslationX
                        P(i, 1) += TranslationY
                    Next i
                    ReDim Ligne(7)
                    Ligne(0) = P(0, 0) : Ligne(1) = P(0, 1) : Ligne(2) = P(1, 0) : Ligne(3) = P(1, 1)
                    Ligne(4) = P(0, 0) : Ligne(5) = P(0, 1) : Ligne(6) = P(2, 0) : Ligne(7) = P(2, 1)

                    swModel.CreateArc2(P(0, 0), P(0, 1), 0, P(1, 0), P(1, 1), 0, P(2, 0), P(2, 1), 0, -1) ' le dernier param est la direction.  1 ou -1
                    autreSection = False
                    AjouterMiniPoutre = False
                    MettreFI = True
            End Select
            MettreFI = True


        ElseIf Left(Nomsection, 1) = "C" Or Nomsection = " Poutre en C générique" Then ' le channel
            Dim P(7, 1) As Double

            P(0, 0) = Poutre.GetD1 / 2 - Poutre.GetD3
            P(0, 1) = Poutre.GetD5
            P(1, 0) = P(0, 0)
            P(1, 1) = Poutre.GetD5 + Poutre.GetD4 - Poutre.GetD2
            P(2, 0) = Poutre.GetD1 / 2
            P(2, 1) = P(1, 1)
            P(3, 0) = P(2, 0)
            P(3, 1) = P(1, 1) + Poutre.GetD2
            P(4, 0) = -P(3, 0)
            P(4, 1) = P(3, 1)
            P(5, 0) = P(4, 0)
            P(5, 1) = P(1, 1)
            P(6, 0) = -P(1, 0)
            P(6, 1) = P(5, 1)
            P(7, 0) = -P(0, 0)
            P(7, 1) = P(0, 1)

            r(0) = P(0, 0) + 1000 * Epsilon
            r(1) = P(0, 1) : r(2) = 0
            Outils_Math.Rotation2D(pt3, r(0), r(1))
            r(0) += TranslationX
            r(1) += TranslationY
            r = Commun.TransfertSketchToModel(swSketch, r)

            pt3(0) -= TranslationX
            pt3(1) -= TranslationY
            pt3(0) /= longueur : pt3(1) /= longueur
            For i = 0 To 7
                Outils_Math.Rotation2D(pt3, P(i, 0), P(i, 1))
                P(i, 0) += TranslationX
                P(i, 1) += TranslationY
            Next i

            ReDim Ligne(35)
            For i = 0 To 6
                Ligne(i * 4) = P(i, 0) : Ligne(i * 4 + 1) = P(i, 1) : Ligne(i * 4 + 2) = P(i + 1, 0) : Ligne(i * 4 + 3) = P(i + 1, 1)
            Next i
            Ligne(28) = P(7, 0) : Ligne(29) = P(7, 1) : Ligne(30) = P(0, 0) : Ligne(31) = P(0, 1)

            MettreFI = True
            autreSection = False
            AjouterMiniPoutre = True


        ElseIf Left(Nomsection, 1) = "L" Or Nomsection = " Poutre en L générique" Then ' l'Angle en L
            Dim P(5, 1) As Double

            P(0, 0) = -Poutre.GetD5 + Poutre.GetD1
            P(0, 1) = -Poutre.GetD6 + Poutre.GetD4
            P(1, 0) = -Poutre.GetD5 + Poutre.GetD3
            P(1, 1) = P(0, 1)
            P(2, 0) = P(1, 0)
            P(2, 1) = -Poutre.GetD6 + Poutre.GetD2
            P(3, 0) = -Poutre.GetD5
            P(3, 1) = P(2, 1)
            P(4, 0) = P(3, 0)
            P(4, 1) = -Poutre.GetD6
            P(5, 0) = P(0, 0)
            P(5, 1) = P(4, 1)

            r(0) = P(1, 0) - 1000 * Epsilon
            r(1) = 0 : r(2) = 0
            Outils_Math.Rotation2D(pt3, r(0), r(1))
            r(0) += TranslationX
            r(1) += TranslationY
            r = Commun.TransfertSketchToModel(swSketch, r)

            pt3(0) -= TranslationX
            pt3(1) -= TranslationY
            pt3(0) /= longueur : pt3(1) /= longueur
            For i = 0 To 5
                Outils_Math.Rotation2D(pt3, P(i, 0), P(i, 1))
                P(i, 0) += TranslationX
                P(i, 1) += TranslationY
            Next i

            ReDim Ligne(35)
            For i = 0 To 4
                Ligne(i * 4) = P(i, 0) : Ligne(i * 4 + 1) = P(i, 1) : Ligne(i * 4 + 2) = P(i + 1, 0) : Ligne(i * 4 + 3) = P(i + 1, 1)
            Next i
            Ligne(20) = P(5, 0) : Ligne(21) = P(5, 1) : Ligne(22) = P(0, 0) : Ligne(23) = P(0, 1)

            autreSection = False
            AjouterMiniPoutre = True
            MettreFI = True

        ElseIf Left(Nomsection, 1) = "T" Or Nomsection = " Poutre en T générique" Then ' le T
            Select Case numero
                Case 1
                    Dim P(8, 1) As Double
                    Dim d As Double
                    d = Poutre.GetD4 * 0.8660254038 '  section.D4 / (2 * tan(30))


                    P(0, 0) = 0
                    P(0, 1) = 0
                    P(1, 0) = d
                    P(1, 1) = -Poutre.GetD4 / 2.0R
                    P(2, 0) = -(Poutre.GetD1 - Poutre.GetD5 - Poutre.GetD3)
                    P(2, 1) = -Poutre.GetD4 / 2.0R
                    P(3, 0) = P(2, 0)
                    P(3, 1) = -Poutre.GetD2 / 2
                    P(4, 0) = -Poutre.GetD1 + Poutre.GetD5
                    P(4, 1) = P(3, 1)
                    P(5, 0) = P(4, 0)
                    P(5, 1) = -P(4, 1)
                    P(6, 0) = P(3, 0)
                    P(6, 1) = -P(3, 1)
                    P(7, 0) = P(2, 0)
                    P(7, 1) = -P(2, 1)
                    P(8, 0) = P(1, 0)
                    P(8, 1) = -P(1, 1)

                    r(0) = P(0, 0) - 1000 * Epsilon
                    r(1) = 0 : r(2) = 0
                    Outils_Math.Rotation2D(pt3, r(0), r(1))
                    r(0) += TranslationX
                    r(1) += TranslationY
                    r = Commun.TransfertSketchToModel(swSketch, r)

                    pt3(0) -= TranslationX
                    pt3(1) -= TranslationY
                    pt3(0) /= longueur : pt3(1) /= longueur
                    For i = 0 To 8
                        Outils_Math.Rotation2D(pt3, P(i, 0), P(i, 1))
                        P(i, 0) += TranslationX
                        P(i, 1) += TranslationY
                    Next i

                    ReDim Ligne(35)
                    For i = 0 To 7
                        Ligne(i * 4) = P(i, 0) : Ligne(i * 4 + 1) = P(i, 1) : Ligne(i * 4 + 2) = P(i + 1, 0) : Ligne(i * 4 + 3) = P(i + 1, 1)
                    Next i
                    Ligne(32) = P(8, 0) : Ligne(33) = P(8, 1) : Ligne(34) = P(0, 0) : Ligne(35) = P(0, 1)
                    autreSection = True
                    AjouterMiniPoutre = False
                    MettreFI = True
                Case 2
                    Dim P(4, 1) As Double
                    Dim d As Double
                    d = Poutre.GetD4 * 0.8660254038 '  section.D4 / (2 * tan(30))

                    P(0, 0) = 0
                    P(0, 1) = 0

                    P(1, 0) = d
                    P(1, 1) = -Poutre.GetD4 / 2.0R
                    P(2, 0) = Poutre.GetD5
                    P(2, 1) = -Poutre.GetD4 / 2.0R
                    P(3, 0) = P(2, 0)
                    P(3, 1) = Poutre.GetD4 / 2
                    P(4, 0) = P(1, 0)
                    P(4, 1) = P(3, 1)

                    r(0) = P(0, 0) + 1000 * Epsilon
                    r(1) = 0 : r(2) = 0
                    Outils_Math.Rotation2D(pt3, r(0), r(1))
                    r(0) += TranslationX
                    r(1) += TranslationY
                    r = Commun.TransfertSketchToModel(swSketch, r)

                    pt3(0) -= TranslationX
                    pt3(1) -= TranslationY
                    pt3(0) /= longueur : pt3(1) /= longueur
                    For i = 0 To 4
                        Outils_Math.Rotation2D(pt3, P(i, 0), P(i, 1))
                        P(i, 0) += TranslationX
                        P(i, 1) += TranslationY
                    Next i

                    ReDim Ligne(19)
                    For i = 0 To 3
                        Ligne(i * 4) = P(i, 0) : Ligne(i * 4 + 1) = P(i, 1) : Ligne(i * 4 + 2) = P(i + 1, 0) : Ligne(i * 4 + 3) = P(i + 1, 1)
                    Next i
                    Ligne(16) = P(4, 0) : Ligne(17) = P(4, 1) : Ligne(18) = P(0, 0) : Ligne(19) = P(0, 1)
                    autreSection = False
                    AjouterMiniPoutre = False
                    MettreFI = True
            End Select
   

        Else
            MsgBox("Section de poutre non reconnu!", MsgBoxStyle.Critical, "Commun.DessineSectionPoutre")
        End If


        If Not Ligne Is Nothing Then
            For i = 0 To UBound(Ligne) Step 4
                sketchline = swModel.CreateLine2(Ligne(i), Ligne(i + 1), 0, Ligne(i + 2), Ligne(i + 3), 0)
            Next i
        End If

        Return r

    End Function


    ''' <summary>
    ''' Sub qui dessine (insère des lignes) sur le sketch en fonction de la forme de la poutre.
    ''' </summary>
    ''' <param name="Poutre"></param>
    ''' <param name="TranslationX"></param>
    ''' <param name="TranslationY"></param>
    ''' <param name="numero">Si on doit découper (pipe et cercle) alors le # nous donne le numéro de l'ittération </param>
    ''' <param name="swSketch"></param>
    ''' <param name="inter"></param>
    ''' <param name="MettreFI"></param>
    ''' <returns></returns>
    ''' <remarks>C'est la version simple, donc une seule face nécessaire</remarks>
    Protected Function DessineSectionPoutreSimple(ByRef Poutre As SlyAretePoutre, ByVal TranslationX As Double, ByVal TranslationY As Double, ByVal numero As Integer, ByRef swSketch As sldworks.Sketch, ByRef inter As InterAreteFace, ByRef MettreFI As Boolean, ByRef AutreSection As Boolean, ByRef AjouterMiniPoutre As Boolean) As Double()
        ' le sketch est déjà inséré, il faut juste mettre des swmodel.line ou autre
        ' doit retourner r() qui est un point situé à l'intérieur de la coupe
        Dim sketchline As sldworks.SketchSegment
        Dim longueur As Double
        Dim r(2) As Double
        Dim sk(1) As Double
        Dim i As Integer
        Dim Ligne() As Double = Nothing ' liste des lignes (4 valeurs par ligne)
        Dim pt3() As Double
        Dim Nomsection As String


        ' on doit activer le sketch avant d'utiliser la fonction getactivesketch
        pt3 = Poutre.GetPoint3
        longueur = Math.Sqrt(pt3(0) * pt3(0) + pt3(1) * pt3(1))
        Dim IP(2) As Double ' IP est le vecteur directionnel
        IP(0) = pt3(0) - inter.x : IP(1) = pt3(1) - inter.y : IP(2) = pt3(2) - inter.z


        pt3 = Commun.TransfertModelSketch(swSketch, pt3)
        longueur = Math.Sqrt(pt3(0) * pt3(0) + pt3(1) * pt3(1))

        Nomsection = Poutre.GetNomSection
        If Nomsection = "Rectangle" Or Nomsection = " Rectangle générique" Then ' un rectangle
            Dim P(3, 1) As Double
            P(0, 0) = Poutre.GetD1 / 2
            P(0, 1) = Poutre.GetD2 / 2
            P(1, 0) = -Poutre.GetD1 / 2
            P(1, 1) = Poutre.GetD2 / 2
            P(2, 0) = -Poutre.GetD1 / 2
            P(2, 1) = -Poutre.GetD2 / 2
            P(3, 0) = Poutre.GetD1 / 2
            P(3, 1) = -Poutre.GetD2 / 2

            ReDim Ligne(15)
            pt3(0) -= TranslationX
            pt3(1) -= TranslationY
            For i = 0 To 3
                Outils_Math.Rotation2D(pt3, P(i, 0), P(i, 1))
                P(i, 0) += TranslationX
                P(i, 1) += TranslationY
            Next i

            For i = 0 To 2
                Ligne(i * 4) = P(i, 0) : Ligne(i * 4 + 1) = P(i, 1) : Ligne(i * 4 + 2) = P(i + 1, 0) : Ligne(i * 4 + 3) = P(i + 1, 1)
            Next i
            Ligne(12) = P(3, 0) : Ligne(13) = P(3, 1) : Ligne(14) = P(0, 0) : Ligne(15) = P(0, 1)

            r(0) = inter.x + 5000 * Epsilon * IP(0)
            r(1) = inter.y + 5000 * Epsilon * IP(1)
            r(2) = inter.z + 5000 * Epsilon * IP(2)

            AutreSection = False
            AjouterMiniPoutre = True
            MettreFI = True


        ElseIf Left(Nomsection, 2) = "ST" Or Nomsection = " Tube carré générique" Then ' tube carré troué
            Dim P(3, 1) As Double
            Select Case numero
                Case 1
                    P(0, 0) = Poutre.GetD1 / 2
                    P(0, 1) = -Poutre.GetD2 / 2
                    P(1, 0) = P(0, 0)
                    P(1, 1) = -P(0, 1)
                    P(2, 0) = -P(0, 0)
                    P(2, 1) = P(1, 1)
                    P(3, 0) = P(2, 0)
                    P(3, 1) = P(0, 1)

                    r(0) = P(0, 0) - 1000 * Epsilon
                    r(1) = 0 : r(2) = 0
                    Outils_Math.Rotation2D(pt3, r(0), r(1))
                    r(0) += TranslationX
                    r(1) += TranslationY
                    r = Commun.TransfertSketchToModel(swSketch, r)

                    pt3(0) -= TranslationX
                    pt3(1) -= TranslationY
                    pt3(0) /= longueur : pt3(1) /= longueur
                    For i = 0 To 3
                        Outils_Math.Rotation2D(pt3, P(i, 0), P(i, 1))
                        P(i, 0) += TranslationX
                        P(i, 1) += TranslationY
                    Next i

                    ReDim Ligne(15)
                    Ligne(0) = P(0, 0) : Ligne(1) = P(0, 1) : Ligne(2) = P(1, 0) : Ligne(3) = P(1, 1)
                    Ligne(4) = P(1, 0) : Ligne(5) = P(1, 1) : Ligne(6) = P(2, 0) : Ligne(7) = P(2, 1)
                    Ligne(8) = P(2, 0) : Ligne(9) = P(2, 1) : Ligne(10) = P(3, 0) : Ligne(11) = P(3, 1)
                    Ligne(12) = P(3, 0) : Ligne(13) = P(3, 1) : Ligne(14) = P(0, 0) : Ligne(15) = P(0, 1)
                    MettreFI = False
                    AutreSection = True
                    AjouterMiniPoutre = False

                Case 2
                    P(0, 0) = Poutre.GetD1 / 2 - Poutre.GetD3
                    P(0, 1) = -Poutre.GetD2 / 2 + Poutre.GetD3
                    P(1, 0) = P(0, 0)
                    P(1, 1) = -P(0, 1)
                    P(2, 0) = -P(1, 0)
                    P(2, 1) = P(1, 1)
                    P(3, 0) = P(2, 0)
                    P(3, 1) = P(0, 1)

                    r(0) = P(0, 0) + 1000 * Epsilon
                    r(1) = 0 : r(2) = 0
                    Outils_Math.Rotation2D(pt3, r(0), r(1))
                    r(0) += TranslationX
                    r(1) += TranslationY
                    r = Commun.TransfertSketchToModel(swSketch, r)

                    pt3(0) -= TranslationX
                    pt3(1) -= TranslationY
                    pt3(0) /= longueur : pt3(1) /= longueur
                    For i = 0 To 3
                        Outils_Math.Rotation2D(pt3, P(i, 0), P(i, 1))
                        P(i, 0) += TranslationX
                        P(i, 1) += TranslationY
                    Next i

                    ReDim Ligne(15)
                    Ligne(0) = P(0, 0) : Ligne(1) = P(0, 1) : Ligne(2) = P(1, 0) : Ligne(3) = P(1, 1)
                    Ligne(4) = P(1, 0) : Ligne(5) = P(1, 1) : Ligne(6) = P(2, 0) : Ligne(7) = P(2, 1)
                    Ligne(8) = P(2, 0) : Ligne(9) = P(2, 1) : Ligne(10) = P(3, 0) : Ligne(11) = P(3, 1)
                    Ligne(12) = P(3, 0) : Ligne(13) = P(3, 1) : Ligne(14) = P(0, 0) : Ligne(15) = P(0, 1)

                    MettreFI = True  ' lorsque l'on sort on met une face interne
                    AutreSection = False
                    AjouterMiniPoutre = False

            End Select

        ElseIf Left(Nomsection, 1) = "S" Or Nomsection = " Poutre en I générique" Then ' poutre en I de type S
            Dim P(11, 1) As Double
            Dim d As Double

            d = Poutre.GetD4 * 0.8660254038 '  section.D4 / (2 * tan(30))

            P(0, 0) = (Poutre.GetD1 / 2) - Poutre.GetD3
            P(0, 1) = -Poutre.GetD4 / 2
            P(1, 0) = P(0, 0)
            P(1, 1) = -Poutre.GetD2 / 2
            P(2, 0) = Poutre.GetD1 / 2
            P(2, 1) = P(1, 1)
            P(3, 0) = P(2, 0)
            P(3, 1) = -P(2, 1)
            P(4, 0) = P(1, 0)
            P(4, 1) = -P(1, 1)
            P(5, 0) = P(0, 0)
            P(5, 1) = -P(0, 1)

            P(6, 0) = -((Poutre.GetD1 / 2) - Poutre.GetD3)
            P(6, 1) = Poutre.GetD4 / 2.0R
            P(7, 0) = P(6, 0)
            P(7, 1) = Poutre.GetD2 / 2
            P(8, 0) = -Poutre.GetD1 / 2
            P(8, 1) = P(7, 1)
            P(9, 0) = P(8, 0)
            P(9, 1) = -P(8, 1)
            P(10, 0) = P(7, 0)
            P(10, 1) = P(9, 1)
            P(11, 0) = P(6, 0)
            P(11, 1) = P(0, 1)


            pt3(0) -= TranslationX
            pt3(1) -= TranslationY
            pt3(0) /= longueur : pt3(1) /= longueur
            For i = 0 To 11
                Outils_Math.Rotation2D(pt3, P(i, 0), P(i, 1))
                P(i, 0) += TranslationX
                P(i, 1) += TranslationY
            Next i

            ReDim Ligne(47)

            For k As Integer = 0 To 10
                Ligne(4 * k + 0) = P(k, 0) : Ligne(4 * k + 1) = P(k, 1) : Ligne(4 * k + 2) = P(k + 1, 0) : Ligne(4 * k + 3) = P(k + 1, 1)
            Next k
            Ligne(44) = P(0, 0) : Ligne(45) = P(0, 1) : Ligne(46) = P(11, 0) : Ligne(47) = P(11, 1)


            r(0) = inter.x '+ 5000 * Epsilon * IP(0)
            r(1) = inter.y '+ 5000 * Epsilon * IP(1)
            r(2) = inter.z '+ 5000 * Epsilon * IP(2)

            AutreSection = False
            MettreFI = True
            AjouterMiniPoutre = True


        ElseIf Left(Nomsection, 5) = "Tuyau" OrElse Nomsection = " Tuyau (Pipe) générique" Then ' le tube rond
            Dim p(4, 1) As Double
            p(0, 0) = Poutre.GetD1 / 2 - Poutre.GetD3
            p(0, 1) = 0
            p(1, 0) = Poutre.GetD1 / 2
            p(1, 1) = 0
            p(2, 0) = -p(0, 0)
            p(2, 1) = 0
            p(3, 0) = -p(1, 0)
            p(3, 1) = 0
            p(4, 0) = 0
            p(4, 1) = 0

            Select Case numero
                Case 1

                    r(0) = 0
                    r(1) = Poutre.GetD1 / 2 - Poutre.GetD3 / 2 : r(2) = 0
                    Outils_Math.Rotation2D(pt3, r(0), r(1))
                    r(0) += TranslationX
                    r(1) += TranslationY
                    r = Commun.TransfertSketchToModel(swSketch, r)

                    pt3(0) -= TranslationX
                    pt3(1) -= TranslationY
                    pt3(0) /= longueur : pt3(1) /= longueur
                    For i = 0 To 4
                        Outils_Math.Rotation2D(pt3, p(i, 0), p(i, 1))
                        p(i, 0) += TranslationX
                        p(i, 1) += TranslationY
                    Next i

                    ReDim Ligne(7)
                    Ligne(0) = p(0, 0) : Ligne(1) = p(0, 1) : Ligne(2) = p(1, 0) : Ligne(3) = p(1, 1)
                    Ligne(4) = p(2, 0) : Ligne(5) = p(2, 1) : Ligne(6) = p(3, 0) : Ligne(7) = p(3, 1)
                    swModel.CreateArc2(p(4, 0), p(4, 1), 0, p(1, 0), p(1, 1), 0, p(3, 0), p(3, 1), 0, 1)
                    swModel.CreateArc2(p(4, 0), p(4, 1), 0, p(0, 0), p(0, 1), 0, p(2, 0), p(2, 1), 0, 1)
                    MettreFI = True
                    AutreSection = True
                    AjouterMiniPoutre = False

                Case 2

                    r(0) = 0
                    r(1) = -Poutre.GetD1 / 2 + Poutre.GetD3 / 2 : r(2) = 0
                    Outils_Math.Rotation2D(pt3, r(0), r(1))
                    r(0) += TranslationX
                    r(1) += TranslationY
                    r = Commun.TransfertSketchToModel(swSketch, r)

                    pt3(0) -= TranslationX
                    pt3(1) -= TranslationY
                    pt3(0) /= longueur : pt3(1) /= longueur
                    For i = 0 To 4
                        Outils_Math.Rotation2D(pt3, p(i, 0), p(i, 1))
                        p(i, 0) += TranslationX
                        p(i, 1) += TranslationY
                    Next i

                    ReDim Ligne(7)
                    Ligne(0) = p(0, 0) : Ligne(1) = p(0, 1) : Ligne(2) = p(1, 0) : Ligne(3) = p(1, 1)
                    Ligne(4) = p(2, 0) : Ligne(5) = p(2, 1) : Ligne(6) = p(3, 0) : Ligne(7) = p(3, 1)
                    swModel.CreateArc2(p(4, 0), p(4, 1), 0, p(1, 0), p(1, 1), 0, p(3, 0), p(3, 1), 0, -1)
                    swModel.CreateArc2(p(4, 0), p(4, 1), 0, p(0, 0), p(0, 1), 0, p(2, 0), p(2, 1), 0, -1)
                    'MettreFI = True  ' lorsque l'on sort on met une face interne
                    MettreFI = True
                    AutreSection = False
                    AjouterMiniPoutre = True

            End Select

        ElseIf Left(Poutre.GetNomSection, 2) = "Cy" Or Nomsection = " Cylindrique (Rod) générique" Then ' Pipe, 
            Dim P(2, 1) As Double
            Dim d As Double, e As Double
            d = Poutre.GetD1 / 4 ' Math.Sin(30)  ( et on doit diviser le diamètre par 2)
            e = Poutre.GetD1 * Math.Sqrt(3) / 4 ' cos (30°)

            P(0, 0) = 0
            P(0, 1) = 0
            P(1, 0) = d
            P(1, 1) = -e
            P(2, 0) = d
            P(2, 1) = e

            Select Case numero
                Case 1
                    r(0) = P(0, 0) + 1000 * Epsilon
                    r(1) = 0 : r(2) = 0
                    Outils_Math.Rotation2D(pt3, r(0), r(1))
                    r(0) += TranslationX
                    r(1) += TranslationY
                    r = Commun.TransfertSketchToModel(swSketch, r)
                    pt3(0) -= TranslationX
                    pt3(1) -= TranslationY
                    pt3(0) /= longueur : pt3(1) /= longueur
                    For i = 0 To 2
                        Outils_Math.Rotation2D(pt3, P(i, 0), P(i, 1))
                        P(i, 0) += TranslationX
                        P(i, 1) += TranslationY
                    Next i
                    ReDim Ligne(7)
                    Ligne(0) = P(0, 0) : Ligne(1) = P(0, 1) : Ligne(2) = P(1, 0) : Ligne(3) = P(1, 1)
                    Ligne(4) = P(0, 0) : Ligne(5) = P(0, 1) : Ligne(6) = P(2, 0) : Ligne(7) = P(2, 1)
                    swModel.CreateArc2(P(0, 0), P(0, 1), 0, P(1, 0), P(1, 1), 0, P(2, 0), P(2, 1), 0, 1) ' le dernier param est la direction.  1 ou -1


                    MettreFI = True
                    AjouterMiniPoutre = False
                    AutreSection = True

                Case 2
                    r(0) = P(0, 0) - 1000 * Epsilon
                    r(1) = 0 : r(2) = 0
                    Outils_Math.Rotation2D(pt3, r(0), r(1))
                    r(0) += TranslationX
                    r(1) += TranslationY
                    r = Commun.TransfertSketchToModel(swSketch, r)

                    pt3(0) -= TranslationX
                    pt3(1) -= TranslationY
                    pt3(0) /= longueur : pt3(1) /= longueur
                    For i = 0 To 2
                        Outils_Math.Rotation2D(pt3, P(i, 0), P(i, 1))
                        P(i, 0) += TranslationX
                        P(i, 1) += TranslationY
                    Next i
                    ReDim Ligne(7)
                    Ligne(0) = P(0, 0) : Ligne(1) = P(0, 1) : Ligne(2) = P(1, 0) : Ligne(3) = P(1, 1)
                    Ligne(4) = P(0, 0) : Ligne(5) = P(0, 1) : Ligne(6) = P(2, 0) : Ligne(7) = P(2, 1)

                    swModel.CreateArc2(P(0, 0), P(0, 1), 0, P(1, 0), P(1, 1), 0, P(2, 0), P(2, 1), 0, -1) ' le dernier param est la direction.  1 ou -1

                    MettreFI = True
                    AjouterMiniPoutre = False
                    AutreSection = False

            End Select


        ElseIf Left(Nomsection, 1) = "C" Or Nomsection = " Poutre en C générique" Then ' le channel
            Dim P(7, 1) As Double

            P(0, 0) = Poutre.GetD1 / 2 - Poutre.GetD3
            P(0, 1) = Poutre.GetD5
            P(1, 0) = P(0, 0)
            P(1, 1) = Poutre.GetD5 + Poutre.GetD4 - Poutre.GetD2
            P(2, 0) = Poutre.GetD1 / 2
            P(2, 1) = P(1, 1)
            P(3, 0) = P(2, 0)
            P(3, 1) = P(1, 1) + Poutre.GetD2
            P(4, 0) = -P(3, 0)
            P(4, 1) = P(3, 1)
            P(5, 0) = P(4, 0)
            P(5, 1) = P(1, 1)
            P(6, 0) = -P(1, 0)
            P(6, 1) = P(5, 1)
            P(7, 0) = -P(0, 0)
            P(7, 1) = P(0, 1)

            r(0) = P(0, 0) + 1000 * Epsilon
            r(1) = P(0, 1) : r(2) = 0
            Outils_Math.Rotation2D(pt3, r(0), r(1))
            r(0) += TranslationX
            r(1) += TranslationY
            r = Commun.TransfertSketchToModel(swSketch, r)

            pt3(0) -= TranslationX
            pt3(1) -= TranslationY
            pt3(0) /= longueur : pt3(1) /= longueur
            For i = 0 To 7
                Outils_Math.Rotation2D(pt3, P(i, 0), P(i, 1))
                P(i, 0) += TranslationX
                P(i, 1) += TranslationY
            Next i

            ReDim Ligne(35)
            For i = 0 To 6
                Ligne(i * 4) = P(i, 0) : Ligne(i * 4 + 1) = P(i, 1) : Ligne(i * 4 + 2) = P(i + 1, 0) : Ligne(i * 4 + 3) = P(i + 1, 1)
            Next i
            Ligne(28) = P(7, 0) : Ligne(29) = P(7, 1) : Ligne(30) = P(0, 0) : Ligne(31) = P(0, 1)

            MettreFI = True
            AjouterMiniPoutre = True
            AutreSection = False


        ElseIf Left(Nomsection, 1) = "L" Or Nomsection = " Poutre en L générique" Then ' l'Angle en L
            Dim P(5, 1) As Double

            P(0, 0) = -Poutre.GetD5 + Poutre.GetD1
            P(0, 1) = -Poutre.GetD6 + Poutre.GetD4
            P(1, 0) = -Poutre.GetD5 + Poutre.GetD3
            P(1, 1) = P(0, 1)
            P(2, 0) = P(1, 0)
            P(2, 1) = -Poutre.GetD6 + Poutre.GetD2
            P(3, 0) = -Poutre.GetD5
            P(3, 1) = P(2, 1)
            P(4, 0) = P(3, 0)
            P(4, 1) = -Poutre.GetD6
            P(5, 0) = P(0, 0)
            P(5, 1) = P(4, 1)

            r(0) = P(1, 0) - 1000 * Epsilon
            r(1) = 0 : r(2) = 0
            Outils_Math.Rotation2D(pt3, r(0), r(1))
            r(0) += TranslationX
            r(1) += TranslationY
            r = Commun.TransfertSketchToModel(swSketch, r)

            pt3(0) -= TranslationX
            pt3(1) -= TranslationY
            pt3(0) /= longueur : pt3(1) /= longueur
            For i = 0 To 5
                Outils_Math.Rotation2D(pt3, P(i, 0), P(i, 1))
                P(i, 0) += TranslationX
                P(i, 1) += TranslationY
            Next i

            ReDim Ligne(35)
            For i = 0 To 4
                Ligne(i * 4) = P(i, 0) : Ligne(i * 4 + 1) = P(i, 1) : Ligne(i * 4 + 2) = P(i + 1, 0) : Ligne(i * 4 + 3) = P(i + 1, 1)
            Next i
            Ligne(20) = P(5, 0) : Ligne(21) = P(5, 1) : Ligne(22) = P(0, 0) : Ligne(23) = P(0, 1)

            MettreFI = True
            AjouterMiniPoutre = True
            AutreSection = False


        ElseIf Left(Nomsection, 1) = "T" Or Nomsection = " Poutre en T générique" Then ' le T

            Dim P(7, 1) As Double
            Dim d As Double
            d = Poutre.GetD4 * 0.8660254038 '  section.D4 / (2 * tan(30))

            P(0, 0) = -Poutre.GetD5
            P(0, 1) = Poutre.GetD4 / 2
            P(1, 0) = P(0, 0)
            P(1, 1) = -P(0, 1)
            P(2, 0) = Poutre.GetD1 - Poutre.GetD5 - Poutre.GetD3
            P(2, 1) = -Poutre.GetD4 / 2.0R
            P(3, 0) = P(2, 0)
            P(3, 1) = -Poutre.GetD2 / 2
            P(4, 0) = Poutre.GetD1 - Poutre.GetD5
            P(4, 1) = P(3, 1)
            P(5, 0) = P(4, 0)
            P(5, 1) = -P(4, 1)
            P(6, 0) = P(3, 0)
            P(6, 1) = -P(3, 1)
            P(7, 0) = P(2, 0)
            P(7, 1) = -P(2, 1)


            r(0) = 0
            r(1) = 0 : r(2) = 0
            Outils_Math.Rotation2D(pt3, r(0), r(1))
            r(0) += TranslationX
            r(1) += TranslationY
            r = Commun.TransfertSketchToModel(swSketch, r)

            pt3(0) -= TranslationX
            pt3(1) -= TranslationY
            pt3(0) /= longueur : pt3(1) /= longueur
            For i = 0 To 7
                Outils_Math.Rotation2D(pt3, P(i, 0), P(i, 1))
                P(i, 0) += TranslationX
                P(i, 1) += TranslationY
            Next i

            ReDim Ligne(31)
            For i = 0 To 6
                Ligne(i * 4) = P(i, 0) : Ligne(i * 4 + 1) = P(i, 1) : Ligne(i * 4 + 2) = P(i + 1, 0) : Ligne(i * 4 + 3) = P(i + 1, 1)
            Next i
            Ligne(28) = P(7, 0) : Ligne(29) = P(7, 1) : Ligne(30) = P(0, 0) : Ligne(31) = P(0, 1)

            MettreFI = True
            AjouterMiniPoutre = True
            AutreSection = False


        Else
            MsgBox("Section de poutre non reconnu!", MsgBoxStyle.Critical, "Commun.DessineSectionPoutre")
        End If


        If Not Ligne Is Nothing Then
            For i = 0 To UBound(Ligne) Step 4
                sketchline = swModel.CreateLine2(Ligne(i), Ligne(i + 1), 0, Ligne(i + 2), Ligne(i + 3), 0)
            Next i
        End If

        Return r

    End Function


    Public Function SwFace() As sldworks.Face2 ' retourne la première face de la liste (dans la partie traitement, ce sera la seule...)
        Return Me.lst_Faces.Item(0)
    End Function

    Public Function IsFaceInterne(ByRef swface As sldworks.Face2) As Boolean
        Dim attr As sldworks.Attribute
        Dim SwEnt As sldworks.Entity
        SwEnt = swface
        attr = SwEnt.FindAttribute(DefAttrFaceInterne, 0)
        If attr Is Nothing Then Return False Else Return True
    End Function

    ''' <summary>
    ''' Fonction qui retourne un tableau de Sldworks.edge (et non slyedges)
    ''' </summary>
    ''' <returns>Un tableau de Edges</returns>
    ''' <remarks></remarks>
    Public Function GetAretes() As sldworks.Edge()
        Dim face As sldworks.Face2
        Dim arete As sldworks.Edge = Nothing
        Dim temp2 As Collections.Generic.List(Of sldworks.Edge)
        Dim lst As New Collections.Generic.List(Of sldworks.Edge)

        For Each face In Me.lst_Faces
            temp2 = GetArete1Face(face)
            For Each arete In temp2
                lst.Add(arete)
            Next arete
        Next face

        Return lst.ToArray
    End Function

    Private Function GetArete1Face(ByRef Face As sldworks.Face2) As Collections.Generic.List(Of sldworks.Edge)
        Dim vArete As Object
        Dim a As sldworks.Edge
        Dim arete() As sldworks.Edge
        Dim lst As New Collections.Generic.List(Of sldworks.Edge)

        ReDim arete(Face.GetEdgeCount - 1)
        vArete = Face.GetEdges()

        For Each a In vArete
            lst.Add(a)
        Next

        Return lst
    End Function

    Public Overrides Sub Selectionner(Optional ByVal Mark As Integer = 0, Optional ByRef append As Boolean = True)
        Dim swent As sldworks.Entity
        Dim swface As sldworks.Face2

        For Each swface In lst_Faces
            swent = swface
            swent.Select2(append, Mark)
        Next swface
    End Sub


    ''' <summary>
    ''' Sélectionne toutes les faces dans la liste de faces
    ''' </summary>
    ''' <param name="Mark"></param>
    ''' <param name="Append"></param>
    ''' <remarks></remarks>
    Public Sub SelectionnerToutes(Optional ByRef Mark As Integer = 0, Optional ByRef Append As Boolean = True)
        Dim swFace As sldworks.Face2

        Dim swent As sldworks.Entity
        If Append = False Then swModel.ClearSelection2(True)
        For Each swFace In Me.lst_Faces
            swent = swFace : swent.Select2(True, Mark)
        Next

    End Sub


    Public Function Couleur(ByRef rouge As Double, ByRef Vert As Double, ByRef Bleu As Double, Optional ByVal Ambient As Double = 1, Optional ByVal Diffuse As Double = 1, Optional ByVal Specular As Double = 1, Optional ByVal Shininess As Double = 0.5, Optional ByVal Transparency As Double = 0, Optional ByVal Emission As Double = 0.2) As Integer
        swModel.SelectedFaceProperties(RGB(rouge, Vert, Bleu), Ambient, Diffuse, Specular, Shininess, Transparency, Emission, False, "")
        Return 1
    End Function


    Public Sub AjouterFace(ByRef face As sldworks.Face2)
        Me.lst_Faces.Add(face)
    End Sub


    'Public Function DonnerFaces() As SldWorks.Face2()
    '    'Dim temp() As SldWorks.Face2
    '    'Dim i As Integer

    '    'ReDim temp(lst_Faces.Count - 1)

    '    'For i = 1 To lst_Faces.Count
    '    '    temp(i - 1) = lst_Faces.Item(i)
    '    'Next

    '    Return lst_Faces.ToArray
    'End Function


    ''' <summary>
    ''' Function qui retourne un pointeur vers la face
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function GetFace() As sldworks.Face2
        Return Me.SwFace
    End Function

    ''' <summary>
    ''' Fonction qui redonne toutes les Faces contenues dans cette face
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function GetFaces() As sldworks.Face2()
        Return Me.lst_Faces.ToArray
    End Function

    ''' <summary>
    ''' Sub qui renvoie les coordonnées min et max des valeurs U et V
    ''' </summary>
    ''' <param name="Umin"></param>
    ''' <param name="UMax"></param>
    ''' <param name="VMin"></param>
    ''' <param name="VMax"></param>
    ''' <remarks></remarks>
    Public Sub UVMinMax(ByRef Umin As Double, ByRef UMax As Double, ByRef VMin As Double, ByRef VMax As Double)
        Dim vBounds As Object
        vBounds = SwFace.GetUVBounds()

        Umin = vBounds(0)
        UMax = vBounds(1)

        VMin = vBounds(2)
        VMax = vBounds(3)
    End Sub

    ''' <summary>
    ''' Calcule la position du point selon les U et V
    ''' </summary>
    ''' <param name="U"></param>
    ''' <param name="V"></param>
    ''' <param name="X"></param>
    ''' <param name="Y"></param>
    ''' <param name="Z"></param>
    ''' <returns>Vrai si le point est sur la face, faux sinon</returns>
    ''' <remarks>Retourne X, Y et Z même si le point n'est pas sur la face (mais sur la surface) </remarks>
    Public Function Evaluer(ByRef U As Double, ByVal V As Double, ByRef X As Double, ByRef Y As Double, ByRef Z As Double) As Boolean
        Dim surf As sldworks.Surface
        Dim vEv As Object, vpoint As Object
        Dim P(2) As Double

        surf = SwFace.GetSurface()

        vEv = surf.Evaluate(U, V, 0, 0)

        X = vEv(0) : Y = vEv(1) : Z = vEv(2)

        vpoint = SwFace.GetClosestPointOn(X, Y, Z)

        If (Math.Abs(vpoint(0) - X) < Epsilon) And (Math.Abs(vpoint(1) - Y) < Epsilon) And (Math.Abs(vpoint(2) - Z) < Epsilon) Then Return True Else Return False

    End Function

    ''' <summary>
    ''' Function qui calcule la normale d'une face au point X,Y,Z.
    ''' </summary>
    ''' <param name="X"></param>
    ''' <param name="Y"></param>
    ''' <param name="Z"></param>
    ''' <returns>Un tableau de 3 doubles correspondant à la normale</returns>
    ''' <remarks></remarks>
    Public Function Normale(ByRef X As Double, ByRef Y As Double, ByRef Z As Double) As Double()
        Dim surf As sldworks.Surface
        Dim vtemp As Object
        Dim temp() As Double
        Dim sens As Boolean

        surf = SwFace.GetSurface
        If surf.IsPlane Then vtemp = SwFace.Normal : temp = vtemp : Return temp ' si la face est plane alors c'est ok, sinon il faut travailler...

        vtemp = surf.EvaluateAtPoint(X, Y, Z)
        ReDim temp(2)
        ' la normale de la face pointe AWAY from the body
        sens = SwFace.FaceInSurfaceSense()  'TRUE if face normal and surface normal are in the opposite direction and FALSE if they are in the same direction

        If sens Then ' on doit inverser
            temp(0) = -vtemp(0) : temp(1) = -vtemp(1) : temp(2) = -vtemp(2)
        Else
            temp(0) = vtemp(0) : temp(1) = vtemp(1) : temp(2) = vtemp(2)
        End If
        Return temp

    End Function

    ''' <summary>
    ''' Met un attribut de face interne
    ''' </summary>
    ''' <param name="face">La face sur laquelle mettre l'attribut</param>
    ''' <param name="Valeur">La taille de maille suggérée</param>
    ''' <param name="poutre">Si vrai alors on a une poutre, sinon une coque</param>
    ''' <returns>Le numéro de l'attribut (si jamais c'est important)</returns>
    ''' <remarks>Attention au signe de la valeur</remarks>
    Public Function MettreAttributFaceInterne(ByRef face As sldworks.Face2, Optional ByRef Valeur As Double = 0, Optional ByVal poutre As Boolean = True) As Integer
        Dim no As Integer = 0
        Dim nom As String = "FaceInterne" & no
        Dim swent As sldworks.Entity
        Dim attr As sldworks.Attribute
        Dim p As sldworks.Parameter

        swent = face 'Me.SwFace

        attr = swent.FindAttribute(Intersections.DefAttrFaceInterne, 0) ' si l'attribut existe déjà on pointe dessus.
        If attr Is Nothing Then attr = Intersections.DefAttrFaceInterne.CreateInstance5(swModel, face, nom, 0, 2) ' 0 = swThisconfig
        While attr Is Nothing
            no += 1
            nom = "FaceInterne" & CStr(no)
            attr = Intersections.DefAttrFaceInterne.CreateInstance5(swModel, face, nom, 0, 2)
        End While
        p = attr.GetParameter("FI")
        p.SetDoubleValue(Valeur)

        p = attr.GetParameter("Po")
        If poutre Then
            p.SetDoubleValue(0) ' poutre
        Else
            p.SetDoubleValue(1) ' coque
        End If


        GererDossiers("FaceInternes", nom)
        Return no
    End Function

    ''' <summary>
    ''' Si la face est une face interne,alors on écrit les points POG dans le fichier
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub MettrePointSurPOG(ByVal fichier As System.IO.StreamWriter)
        ' 2 - Si la face a un attribut de faceInterne on:
        Dim ENG As Double = Commun.ÉcartNodal
        Dim EcartSouhaite As Double
        Dim ratio As Double


        If Me.PossedeAttributFaceInterne Then
            ' 2.1 Détermine l'écart nodal à cette face ( en fait, le ratio... )

            ' là on a 2 options, 
            ' a) on utilise le rayon hydraulique: 4* Surface / Périmètre
            EcartSouhaite = Me.GrosseurMailleFaceInterne ' 4 * Me.Aire / Me.Perimetre
            If EcartSouhaite <= 0 Then Exit Sub
            ratio = EcartSouhaite / ENG


            If ratio > 0.75 Then ratio = 0.75 ' ?!? on s'assure d'avoir un minimum de rafinement...
            ' b) On analyse la tessellation et on prend la plus petite longueur de triangle...

            ' 2.2 Créé une série de points [ sur chaque point de la tessellation   :-) ]  mais là on va avoir un tas de doubles... Update.  La tessellation n emarche pas, sur des faces «carrées» il y a des zones trop vides
            ' On va mettre des points sur le contour des faces.  un point va automatiquement se retrouver au milieu

            Dim objArete As Object = Me.SwFace.GetEdges
            Dim points As New Collections.Generic.List(Of Point)
            Dim p As Point
            Dim x, y, z As Double


            For Each swArete As sldworks.Edge In objArete
                Dim e As New SuperArete(swArete, True)
                Dim LongueurArete As Double = e.Longueur
                Dim nbSeg As Integer = Int(LongueurArete / EcartSouhaite / 2) : If nbSeg < 2 Then nbSeg = 2
                Dim dt As Double = (e.GetTMax - e.GetTMin) / nbSeg
                Dim T As Double = e.GetTMin


                ' les points sur les arètes

                For s As Integer = 1 To nbSeg - 1
                    T += dt
                    e.Evaluer(T, x, y, z)
                    p = New Point(x, y, z) : points.Add(p)
                Next s


                ' les points sur les sommets
                Dim swSommets() As sldworks.Vertex = Me.GetSommets
                Dim es As SuperSommet
                For Each sommet As sldworks.Vertex In swSommets
                    es = New SuperSommet(sommet, True)
                    p = New Point(es.X, es.Y, es.Z) : points.Add(p)
                Next
                e = Nothing
                es = Nothing

            Next

            For Each p In points
                ' 2.3 enregistre ces points dans le fichier.
                fichier.WriteLine(CStr(p) & " " & ratio & " " & "4" & " " & "0")
            Next p
            ENG = 1 ' pour y mettre un point d'arrêt
        End If
    End Sub


    ''' <summary>
    ''' Retourne un tableau de swSommets
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function GetSommets() As sldworks.Vertex()
        Dim lst_sommets As New Collections.Generic.List(Of sldworks.Vertex)
        Dim swSommet As sldworks.Vertex
        Dim objArete As Object = Me.SwFace.GetEdges()

        For Each arete As sldworks.Edge In objArete
            swSommet = arete.GetStartVertex() : If swSommet Is Nothing Then Continue For
            If Not lst_sommets.Contains(swSommet) Then lst_sommets.Add(swSommet)
            swSommet = arete.GetEndVertex()
            If Not lst_sommets.Contains(swSommet) Then lst_sommets.Add(swSommet)
        Next arete
        Return lst_sommets.ToArray
    End Function


    ''' <summary>
    ''' Function qui donne la grosseur des maille que l'on aimerait avoir pour 
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function GrosseurMailleFaceInterne() As Double
        Dim swEnt As sldworks.Entity
        Dim attr As sldworks.Attribute
        swEnt = Me.SwFace
        attr = swEnt.FindAttribute(Intersections.DefAttrFaceInterne, 0)
        If attr Is Nothing Then Return Nothing
        Dim p As sldworks.Parameter = attr.GetParameter("FI")
        Return p.GetDoubleValue
    End Function

    ''' <summary>
    ''' Retourne vrai si la face a un attribut de face interne.
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function PossedeAttributFaceInterne() As Boolean
        Dim swEnt As sldworks.Entity
        Dim attr As sldworks.Attribute
        swEnt = Me.SwFace
        attr = swEnt.FindAttribute(Intersections.DefAttrFaceInterne, 0)
        If attr Is Nothing Then Return False Else Return True
    End Function


    ''' <summary>
    ''' Retourne le périmètre de la face
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks>Attention, c'est une approximation!!!</remarks>
    Public Function Perimetre() As Double
        Dim objArete As Object = Me.SwFace.GetEdges
        'Dim swAretes() As sldworks.Edge = objArete
        Dim longueur As Double

        For Each swArete As sldworks.Edge In objArete
            Dim e As New SuperArete(swArete, True)
            longueur += e.Longueur()
        Next
        Return longueur
    End Function


    ''' <summary>
    ''' Retourne la surface (l'aire) de la face
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function Aire() As Double
        Return Me.SwFace.GetArea
    End Function

    ''' <summary>
    ''' Retourne le nombre d'arètes contenues dans la superface
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public ReadOnly Property GetNbAretes() As Integer
        Get
            Dim nb As Integer
            Dim lstFaces() As sldworks.Face2 = Me.SwFace
            For Each swFace As sldworks.Face2 In lstFaces
                nb += swFace.GetEdgeCount
            Next
            Return nb
        End Get
    End Property

    Public Function GetSurface() As sldworks.Surface
        Return Me.GetFace.GetSurface
    End Function


End Class
Revision:	205
Committed:	Thu Jul 23 20:53:57 2009 UTC (15 years, 9 months ago) by bournival
File size:	91614 byte(s)
Log Message:	Commit de MAGiC_SLD pendant que j'y pense. Les modifications ne devraient pas concerner personne d'autre que moi. -- Sylvain