| 390 |
|
'mais j'ai maintenant un moyen de comparer les arètes. |
| 391 |
|
Dim trouve As Boolean = False |
| 392 |
|
' 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!!! |
| 393 |
< |
Dim swFaces() As SldWorks.Face2 = Me.sFaceVolume.GetFaces |
| 394 |
< |
Dim swAreteCoques() As SldWorks.Edge = Me.sFaceCoque.GetAretes |
| 393 |
> |
Dim swFaces() As sldworks.Face2 = Me.sFaceVolume.GetFaces |
| 394 |
> |
Dim swAreteCoques() As sldworks.Edge = Me.sFaceCoque.GetAretes |
| 395 |
|
|
| 396 |
< |
For Each face As SldWorks.Face2 In swFaces |
| 396 |
> |
For Each face As sldworks.Face2 In swFaces |
| 397 |
|
Dim sFace As New SuperFace(face, True) |
| 398 |
< |
Dim swAreteVols() As SldWorks.Edge = sFace.GetAretes |
| 399 |
< |
For Each swAreteVol As SldWorks.Edge In swAreteVols |
| 398 |
> |
Dim swAreteVols() As sldworks.Edge = sFace.GetAretes |
| 399 |
> |
For Each swAreteVol As sldworks.Edge In swAreteVols |
| 400 |
|
Dim e As New SuperArete(swAreteVol, True) : e.Colorer(2, 0, 1, 0) |
| 401 |
< |
For Each swAreteCoque As SldWorks.Edge In swAreteCoques |
| 401 |
> |
For Each swAreteCoque As sldworks.Edge In swAreteCoques |
| 402 |
|
If e.comparer(swAreteCoque) Then |
| 403 |
|
sFace.MettreAttributFaceInterne() |
| 404 |
|
trouve = True : Exit For |
| 408 |
|
Next |
| 409 |
|
Next |
| 410 |
|
|
| 411 |
– |
|
| 411 |
|
End Sub |
| 412 |
|
|
| 413 |
|
|
