[ViewVC] Diff of: REPOS_ERICCA/magicsld/InterCoqueCoque.vb

Comparing magicsld/InterCoqueCoque.vb (file contents):
Revision 40 by bournival, Mon Aug 20 21:30:28 2007 UTC vs.
Revision 48 by bournival, Wed Aug 22 21:18:12 2007 UTC

-+
+Imports SolidWorks.Interop
-+
+Imports SolidWorks.Interop.swconst
-+
+Imports SolidWorks.Interop.swpublished
-+
+Public Class InterCoqueCoque
+    Inherits InterFaceFace
+    Public AreteCoque1 As SldWorks.Edge
+    Public AreteCoque2 As SldWorks.Edge
-+
+    ''' <summary>
-+
+    ''' Sub qui dessine le sweep à l'endroit d'intersection
-+
+    ''' </summary>
-+
+    ''' <remarks>Je pourrais couper et mettre les faces internes ici, mais je préfère séparer...</remarks>
-+
+    Public Function GénérerSweep(ByRef sketch As SldWorks.Sketch, ByVal rayon As Double) As SldWorks.Body2
-+
-+
+        Dim swEnt As SldWorks.Entity
-+
-+
-+
-+
+        ' technique du sweep du cercle
-+
+        ' 1 - trace de la ligne d'intersection
-+
+        ' en théorie c'est déjà fait et on a interFF.sketch qui a le sketch d'intersection...
-+
-+
+        ' 2- Placer un plan à l'extrémité
-+
+        Dim Plan As SldWorks.RefPlane
-+
-+
+        Dim vSeg As Object 'SldWorks.SketchSegment
-+
+        Dim seg As SldWorks.SketchSegment
-+
+        Dim skPoint As SldWorks.SketchPoint = Nothing
-+
-+
-+
+        vSeg = sketch.GetSketchSegments() : seg = vSeg(0)
-+
-+
+        Select Case seg.GetType ' faut faire attention, si le sketch est fermé, ça peut chier des taque pour séelectionner le point
-+
+            Case swconst.swSketchSegments_e.swSketchLINE
-+
+                Dim skline As SldWorks.SketchLine = seg
-+
+                skPoint = skline.GetStartPoint2()
-+
-+
+            Case swconst.swSketchSegments_e.swSketchARC
-+
+                Dim skarc As SldWorks.SketchArc = seg
-+
+                skPoint = skarc.GetStartPoint2()
-+
+            Case swconst.swSketchSegments_e.swSketchELLIPSE
-+
+                Dim skellipse As SldWorks.SketchEllipse = seg
-+
+                skPoint = skellipse.GetStartPoint2()
-+
+                If skPoint Is Nothing Then
-+
+                    ' couper l'ellipse
-+
+                    MsgBox("On a pas de startpoint sur cette ellipse")
-+
+                End If
-+
+            Case swconst.swSketchSegments_e.swSketchSPLINE
-+
+                Dim skSpline As SldWorks.SketchSpline = seg
-+
+                Dim vPoints As Object
-+
+                vPoints = skSpline.GetPoints2()
-+
+                skPoint = vPoints(0)
-+
+            Case swconst.swSketchSegments_e.swSketchPARABOLA
-+
+                Dim skPara As SldWorks.SketchParabola = seg
-+
+                skPoint = skPara.GetStartPoint2()
-+
+            Case Else
-+
+                MsgBox(" Là y'a un problème! (case else....)")
-+
+        End Select
-+
-+
+        seg.Select4(False, Nothing)
-+
+        skPoint.Select4(True, Nothing)
-+
-+
+        Plan = swModel.CreatePlanePerCurveAndPassPoint3(True, False) ' le premier true met l'origine sur le point de la courbe, le second false est pour la visualisation.
-+
-+
+        ' 3 - on créé un cercle sur le plan
-+
+        'Dim rayon As Double
-+
+        'Dim sface As SlyFaceCoque = Me.sFaceCoque
-+
+        Dim feat As SldWorks.Feature
-+
+        Dim sketchCercle As SldWorks.Sketch
-+
-+
+        ' rayon = sface.GetEpaisseur
-+
+        swEnt = Plan : swEnt.Select4(False, Nothing)
-+
-+
+        swModel.InsertSketch2(False)
-+
+        swModel.CreateCircleByRadius2(0, 0, 0, rayon)
-+
+        swModel.InsertSketch2(True)
-+
-+
+        feat = swModel.FeatureByPositionReverse(0)
-+
+        sketchCercle = feat.GetSpecificFeature2()
-+
-+
+        ' 4 - Sweep
-+
+        Dim swFeatManager As SldWorks.FeatureManager = swModel.FeatureManager
-+
-+
+        Dim merge As Boolean = False
-+
-+
+        swEnt = sketchCercle : swEnt.Select2(False, 1)
-+
+        swEnt = sketch : swEnt.Select2(True, 4)
-+
-+
+        feat = swFeatManager.InsertProtrusionSwept3(False, False, 0, False, False, 1, 1, False, 0, 0, 0, 0, merge, 1, 1, 0, 1) ' merge fait additionner le bnouveau corps...  Pas certain du false qui suit.
-+
-+
+        If feat Is Nothing Then
-+
+            swEnt = sketchCercle : swEnt.Select2(False, 1)
-+
+            swEnt = sketch : swEnt.Select2(True, 4)
-+
+            feat = swFeatManager.InsertProtrusionSwept3(False, False, 0, False, False, 0, 0, False, 0, 0, 0, 0, 0, 1, 1, 0, 1)
-+
+        End If
-+
-+
+        If feat Is Nothing Then
-+
+            ' il est possible que la coque soit une spline
-+
+            MsgBox("Il est impossible de découper la forme de la courbe, la coque est trop repliée sur elle-même..." & vbCr & "Un rayon de courbure de la section de la coque est inférieur à l'épaisseur de la coque", MsgBoxStyle.Information, "Impossible de découper à un endroit!")
-+
+            ' on pourrait éventuellement appliquer une autre méthode.
-+
+            Return Nothing
-+
+        End If
-+
-+
+        Dim vfaces As Object = feat.GetFaces
-+
+        Dim swface As SldWorks.Face2 = vfaces(0)
-+
+        Me.BodySweep = swface.GetBody
-+
-+
-+
+        If Me.BodySweep Is Nothing Then MsgBox(feat.Name)
-+
+        Return Me.BodySweep
-+
-+
+    End Function
-+
-+
+    ''' <summary>
-+
+    '''
-+
+    ''' </summary>
-+
+    ''' <param name="LaCoque"></param>
-+
+    ''' <param name="sweep"></param>
-+
+    ''' <remarks></remarks>
-+
+    Public Sub DecouperCoque(ByRef LaCoque As SlyFaceCoque, ByRef sweep As SldWorks.Body2)
-+
+        If Me.BodySweep Is Nothing Then Exit Sub
-+
-+
-+
+        ' on a un sketch avec 2 ou plusieurs segments à l'intérieur
-+
+        ' et si je sélectionnais un segment à la fois et partait un sketch3d, puis je convertis ce segment et construit ce nouveau sketch...
-+
+        Dim vseg As Object = Me.sketch.GetSketchSegments
-+
+        Dim PetitSketch As SldWorks.Sketch = Nothing
-+
+        Dim swSketchManager As SldWorks.SketchManager = swModel.SketchManager
-+
+        'Dim lstFeat As New Collections.Generic.List(Of SldWorks.Feature)
-+
+        Dim swFace As SldWorks.Face2 = Me.BodySweep.GetFirstFace()
-+
+        Dim swent As SldWorks.Entity
-+
+        Dim featmanager As SldWorks.FeatureManager
-+
+        Dim swface2 As SldWorks.Face2
-+
+        Dim LautreCoque As SlyFaceCoque
-+
+        LautreCoque = IIf(LaCoque Is Me.sFaceCoque1, Me.sFaceCoque2, Me.sFaceCoque1)
-+
-+
-+
+        For Each segment As SldWorks.SketchSegment In vseg
-+
+            swModel.ClearSelection()
-+
+            If swModel.GetActiveSketch2() IsNot Nothing Then MsgBox("Déjà un sketch d'actif???")
-+
+            swModel.Insert3DSketch2(False)
-+
+            segment.Select4(False, Nothing)
-+
+            swSketchManager.SketchUseEdge(False)
-+
+            swModel.Insert3DSketch2(False)
-+
+            swModel.EditRebuild3()
-+
-+
+            Dim feat As SldWorks.Feature = swModel.FeatureByPositionReverse(0)
-+
+            If Not feat.GetTypeName() = "3DProfileFeature" Then MsgBox("Problème ici")
-+
+            PetitSketch = feat.GetSpecificFeature2() ' devrait être un sketch
-+
-+
-+
+            ' 2 - Couper la coque à partir su sweep
-+
+            swModel.EditRebuild3()
-+
+            featmanager = swModel.FeatureManager
-+
+            Dim faces() As SldWorks.Face2 = LaCoque.GetFaces ' les faces de la coque qui sont découpées
-+
+            For Each swface2 In faces  ' les faces de la coque
-+
+                If swModel.ClosestDistance(swface2, sweep, Nothing, Nothing) < Epsilon Then
-+
+                    swModel.ClearSelection2(True)
-+
+                    swFace = sweep.GetFirstFace()
-+
+                    Do While swFace IsNot Nothing  ' les faces coupantes (celles du sweep) ont un mark de 16
-+
+                        swent = swFace : swent.Select2(True, 16)
-+
+                        swFace = swFace.GetNextFace
-+
+                    Loop
-+
+                    LautreCoque.SelectionnerToutes(16, True)
-+
-+
+                    swent = swface2 : swent.Select2(True, 32) ' la face qui est coupée
-+
+                    feat = featmanager.InsertSplitLineIntersect(7)
-+
+                    'If feat IsNot Nothing Then lstFeat.Add(feat)
-+
+                End If
-+
+            Next
-+
+            sweep.HideBody(True)
-+
-+
+            ' rajout des nouvelles faces à la coque
-+
+            feat = swModel.FeatureByPositionReverse(0)
-+
+            Dim vFaces As Object = feat.GetFaces()
-+
+            For Each swFace In vFaces
-+
+                LaCoque.AjouterFace(swFace)
-+
+            Next
-+
-+
+        Next
-+
+    End Sub
-+
-+
-+
+    ''' <summary>
-+
+    ''' Sub qui met les attributs de faces internes sur les bonnes faces.
-+
+    ''' </summary>
-+
+    ''' <remarks></remarks>
-+
+    Public Sub MarquerFacesInternes(ByRef CoqueCoupante As SlyFaceCoque, ByRef CoqueCoupee As SlyFaceCoque)
-+
+        ' bon, là il faut trouver les faces internes... mais: la liste de faces dans la slyface
-+
+        'mais j'ai maintenant un moyen de comparer les arètes.
-+
+        Dim trouve As Boolean = False
-+
+        ' si une face de la liste des facesVol a une arête qui est comparer à true à une des arètes des faces de la coque, FACEINTERNE!!!
-+
+        Dim swFaces() As SldWorks.Face2 = CoqueCoupee.GetFaces
-+
+        Dim swAreteCoques() As SldWorks.Edge = CoqueCoupante.GetAretes
-+
-+
+        For Each face As SldWorks.Face2 In swFaces
-+
+            Dim sFace As New SuperFace(face, True)
-+
+            Dim swAreteVols() As SldWorks.Edge = sFace.GetAretes
-+
+            For Each swAreteVol As SldWorks.Edge In swAreteVols
-+
+                Dim e As New SuperArete(swAreteVol, True) : e.Colorer(2, 0, 1, 0)
-+
+                For Each swAreteCoque As SldWorks.Edge In swAreteCoques
-+
+                    If e.comparer(swAreteCoque) Then
-+
+                        sFace.MettreAttributFaceInterne()
-+
+                        trouve = True : Exit For
-+
+                    End If
-+
+                Next
-+
+                If trouve Then trouve = False : Exit For ' on arete de gosser
-+
+            Next
-+
+        Next
-<
->
+    End Sub
+End Class

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing magicsld/InterCoqueCoque.vb (file contents): Revision 40 by bournival, Mon Aug 20 21:30:28 2007 UTC vs. Revision 48 by bournival, Wed Aug 22 21:18:12 2007 UTC

Diff Legend

Comparing magicsld/InterCoqueCoque.vb (file contents):
Revision 40 by bournival, Mon Aug 20 21:30:28 2007 UTC vs.
Revision 48 by bournival, Wed Aug 22 21:18:12 2007 UTC