| 1 |
Public Class InterPoutreVolume
|
| 2 |
Inherits InterAreteFace
|
| 3 |
|
| 4 |
Public sFaceVolume As SlyFaceVolume
|
| 5 |
'Public sVolume As SlyFaceVol
|
| 6 |
|
| 7 |
|
| 8 |
''' <summary>
|
| 9 |
''' Sub qui prend les intersections entre les faces et les volumes et qui coupe les volumes
|
| 10 |
''' </summary>
|
| 11 |
''' <remarks></remarks>
|
| 12 |
Private Sub DecouperPoutreVolume()
|
| 13 |
' #2 on procède au découpage de la face
|
| 14 |
Dim sVol As SlyFaceVolume
|
| 15 |
|
| 16 |
For Each sVol In lst_FaceVolume
|
| 17 |
If sVol.lst_InterPoutre.Count > 0 Then
|
| 18 |
sVol.decouper()
|
| 19 |
|
| 20 |
' on met-a-jour l'attribut des conditions aux limites
|
| 21 |
Dim attr As SldWorks.Attribute
|
| 22 |
Dim swent As SldWorks.Entity
|
| 23 |
Dim nom3 As String = Nothing
|
| 24 |
Dim p As SldWorks.Parameter
|
| 25 |
If Not sVol.AttributCL Is Nothing Then
|
| 26 |
nom3 = "CL_" & sVol.nom
|
| 27 |
swent = sVol.SwFace
|
| 28 |
attr = swent.FindAttribute(Intersections.DefAttrConditionLimite, 0) ' si l'attribut existe déjà on pointe dessus.
|
| 29 |
|
| 30 |
If attr Is Nothing Then attr = Intersections.DefAttrConditionLimite.CreateInstance5(swModel, sVol.SwFace, nom3, 0, 0)
|
| 31 |
p = attr.GetParameter("CL")
|
| 32 |
p.SetStringValue(sVol.condition)
|
| 33 |
|
| 34 |
End If
|
| 35 |
GererDossiers("Conditions Aux Limites", nom3)
|
| 36 |
End If
|
| 37 |
|
| 38 |
Next
|
| 39 |
End Sub
|
| 40 |
|
| 41 |
|
| 42 |
|
| 43 |
|
| 44 |
End Class
|
