| 40 |
|
' - Tous les points d'échantillonnage créés se retrouvent dans "tabpoint" |
| 41 |
|
' on écrit le fichier des points d'échantillonnage à partir de se tableau |
| 42 |
|
|
| 43 |
< |
Public Function debut(ByVal Eng As Double, ByVal NbCouches As Integer, ByVal ArrondiBool As Boolean, ByVal Arrondis As Double, ByVal rentrantBool As Boolean, ByVal rentrant As Double, ByVal matiereBool As Boolean, ByVal matiere As Double, ByVal entitésbool As Boolean, ByVal entités As SldWorks.PropertyManagerPageSelectionbox, ByVal Entities As Double, ByVal RaffInd As Boolean) As String |
| 43 |
> |
Public Function DebutManuel(ByVal Eng As Double, ByVal NbCouches As Integer, ByVal ArrondiBool As Boolean, ByVal Arrondis As Double, ByVal rentrantBool As Boolean, ByVal rentrant As Double, ByVal matiereBool As Boolean, ByVal matiere As Double, ByVal entitésbool As Boolean, ByVal entités As SldWorks.PropertyManagerPageSelectionbox, ByVal Entities As Double, ByVal RaffInd As Boolean) As String |
| 44 |
|
Dim frequence As Integer |
| 45 |
|
Dim vbody As Object |
| 46 |
|
Dim grill As New grille |
| 124 |
|
Next vbody |
| 125 |
|
|
| 126 |
|
End Function |
| 127 |
+ |
|
| 128 |
+ |
''' <summary> |
| 129 |
+ |
''' Function POur traiter la préoptimisation de façon automatique |
| 130 |
+ |
''' </summary> |
| 131 |
+ |
''' <param name="Erx">Premier paramètre</param> |
| 132 |
+ |
''' <param name="LimPT">youjhou</param> |
| 133 |
+ |
''' <returns></returns> |
| 134 |
+ |
''' <remarks></remarks> |
| 135 |
+ |
Public Function DebutAutomatique(ByVal Erx As Double, ByVal LimPT As Double) As String |
| 136 |
+ |
|
| 137 |
+ |
MsgBox("Erx = " & Erx & vbCr & "Limite = " & LimPT) |
| 138 |
+ |
|
| 139 |
+ |
Return Nothing |
| 140 |
+ |
End Function |
| 141 |
+ |
|
| 142 |
|
Sub entitéselection(ByRef coeff As Double, ByRef Ind As Boolean) |
| 143 |
|
Dim swSelMgr As SldWorks.SelectionMgr |
| 144 |
|
Dim i As Integer |
