| 1 |
Imports SolidWorks.Interop
|
| 2 |
Imports SolidWorks.Interop.swconst
|
| 3 |
Imports SolidWorks.Interop.swpublished
|
| 4 |
|
| 5 |
Public Class InterPoutreVolume
|
| 6 |
Inherits InterAreteFace
|
| 7 |
|
| 8 |
'Public sFaceVolume As SlyFaceVolume
|
| 9 |
'Private BodySweep As sldworks.Body2
|
| 10 |
|
| 11 |
|
| 12 |
Public Sub New()
|
| 13 |
|
| 14 |
End Sub
|
| 15 |
|
| 16 |
|
| 17 |
Public Overrides Sub DecouperLong()
|
| 18 |
MyBase.DecouperLong()
|
| 19 |
' on peut avoir une liste de poutres...
|
| 20 |
'For Each poutre As SlyAretePoutre In Me.lst_sPoutre
|
| 21 |
Dim poutre As SlyAretePoutre = Me.lst_sPoutre.Item(1)
|
| 22 |
|
| 23 |
Dim PetitSketch As sldworks.Sketch = Nothing
|
| 24 |
Dim swSketchManager As sldworks.SketchManager = swModel.SketchManager
|
| 25 |
Dim sfaceVol As SlyFaceVolume ' la face du volume
|
| 26 |
Dim swfaceVol As sldworks.Face2
|
| 27 |
|
| 28 |
Dim segment As sldworks.Entity = poutre.swArete
|
| 29 |
|
| 30 |
swModel.ClearSelection()
|
| 31 |
If swModel.GetActiveSketch2() IsNot Nothing Then MsgBox("Déjà un sketch d'actif???")
|
| 32 |
swModel.Insert3DSketch2(False)
|
| 33 |
segment.Select4(False, Nothing)
|
| 34 |
swSketchManager.SketchUseEdge(False)
|
| 35 |
swModel.Insert3DSketch2(False)
|
| 36 |
swModel.EditRebuild3()
|
| 37 |
|
| 38 |
Dim feat As sldworks.Feature = swModel.FeatureByPositionReverse(0)
|
| 39 |
If Not feat.GetTypeName() = "3DProfileFeature" Then MsgBox("Problème ici")
|
| 40 |
PetitSketch = feat.GetSpecificFeature2() ' devrait être un sketch
|
| 41 |
|
| 42 |
' 1 - créer le sweep à partir du sketch
|
| 43 |
Me.GénérerSweep(PetitSketch) ' hahahaha on réutilise la sub !!
|
| 44 |
|
| 45 |
' sélectionner toutes les faces du sweep avec un mark de 16
|
| 46 |
Dim swFaceSweep As sldworks.Face2 = Me.BodySweep.GetFirstFace()
|
| 47 |
Dim swent As sldworks.Entity
|
| 48 |
Dim featmanager As sldworks.FeatureManager
|
| 49 |
Dim faces() As sldworks.Face2
|
| 50 |
|
| 51 |
|
| 52 |
' ***** Découpage du volume****
|
| 53 |
swModel.EditRebuild3()
|
| 54 |
featmanager = swModel.FeatureManager
|
| 55 |
feat = Nothing
|
| 56 |
|
| 57 |
|
| 58 |
sfaceVol = Me.sFaceVolume
|
| 59 |
|
| 60 |
|
| 61 |
faces = sfaceVol.GetFaces
|
| 62 |
|
| 63 |
|
| 64 |
For q As Integer = 0 To UBound(faces)
|
| 65 |
swfaceVol = faces(q)
|
| 66 |
' merde, on a 3 fois la même face??? vérifier que le for each marche bien et/ou que le .ToArray du faces est corect.
|
| 67 |
If swModel.ClosestDistance(swfaceVol, Me.BodySweep, Nothing, Nothing) < Epsilon Then
|
| 68 |
|
| 69 |
swModel.ClearSelection2(True)
|
| 70 |
Do While swFaceSweep IsNot Nothing ' les faces coupantes (celles du sweep) ont un mark de 16
|
| 71 |
swent = swFaceSweep : swent.Select2(True, 16)
|
| 72 |
swFaceSweep = swFaceSweep.GetNextFace
|
| 73 |
Loop
|
| 74 |
|
| 75 |
swent = swfaceVol : swent.Select2(True, 32)
|
| 76 |
feat = featmanager.InsertSplitLineIntersect(7)
|
| 77 |
If feat IsNot Nothing Then Exit For
|
| 78 |
|
| 79 |
End If
|
| 80 |
Next
|
| 81 |
|
| 82 |
If feat Is Nothing Then
|
| 83 |
If swApp.SendMsgToUser2("Solidworks est incapable de découper la face du volume, entre " & Me.sFaceVolume.nom & " et " & Me.sFaceVolume.nom & vbCr & " La géométrie est trop compliquée pour solidworks!", swconst.swMessageBoxIcon_e.swMbWarning, swconst.swMessageBoxBtn_e.swMbRetryCancel) = swconst.swMessageBoxResult_e.swMbHitCancel Then Exit Sub
|
| 84 |
End If
|
| 85 |
|
| 86 |
Me.BodySweep.HideBody(True)
|
| 87 |
|
| 88 |
' ajout des nouvelles faces
|
| 89 |
Dim vfaces As Object = feat.GetFaces()
|
| 90 |
swModel.EditRebuild3()
|
| 91 |
|
| 92 |
For Each swfaceVol In vfaces ' sélectionne les faces découpées.
|
| 93 |
If Not swfaceVol.GetBody Is Me.BodySweep Then
|
| 94 |
sfaceVol.AjouterFace(swfaceVol)
|
| 95 |
'là on a une connerie, la face originale n'est pas dans la liste des faces de vFaces
|
| 96 |
'et le pointeur original semble détruit
|
| 97 |
' puisque ajouterface ne créé pas de doubles, on va chercher des faces que l'on mettra dans la liste
|
| 98 |
' la grosse face en fera automatiquement partie.
|
| 99 |
Dim obj As Object = swfaceVol.GetEdges
|
| 100 |
Dim aretes As sldworks.Edge = obj(0)
|
| 101 |
Dim oBjfaces As Object = aretes.GetTwoAdjacentFaces2()
|
| 102 |
Dim NewFaces As sldworks.Face2 = oBjfaces(0)
|
| 103 |
sfaceVol.AjouterFace(NewFaces)
|
| 104 |
NewFaces = oBjfaces(1)
|
| 105 |
sfaceVol.AjouterFace(NewFaces)
|
| 106 |
aretes = obj(1)
|
| 107 |
NewFaces = oBjfaces(0)
|
| 108 |
sfaceVol.AjouterFace(NewFaces)
|
| 109 |
NewFaces = oBjfaces(1)
|
| 110 |
sfaceVol.AjouterFace(NewFaces)
|
| 111 |
End If
|
| 112 |
Next
|
| 113 |
|
| 114 |
' il faut trouver les faces internes et les tagger comme des faces de coque(pour les mini-poutres orientées)
|
| 115 |
|
| 116 |
'Next poutre
|
| 117 |
End Sub
|
| 118 |
|
| 119 |
|
| 120 |
|
| 121 |
End Class
|
