62 |
|
|
63 |
|
Public checkboxMiniSurCoque As sldworks.PropertyManagerPageCheckbox |
64 |
|
Public checkboxMultidecoupage As sldworks.PropertyManagerPageCheckbox |
65 |
+ |
Public checkboxSectionSimpleSurPoutre As sldworks.PropertyManagerPageCheckbox |
66 |
|
|
67 |
|
Public decoupe As Boolean ' pas le choix, si je met la variable dans le page handler, il plante à la fermeture. |
68 |
|
Public POGManuel As Boolean |
69 |
|
Public PogAutomatique As Boolean |
70 |
|
|
71 |
|
|
71 |
– |
|
72 |
– |
|
72 |
|
Public Lst_BodyCL As New Collection |
73 |
|
|
74 |
|
Public sauvegarder As Boolean = False |
135 |
|
Commun.videliste() |
136 |
|
Commun.GenererListes() |
137 |
|
tempsTraitement = My.Computer.Clock.TickCount - temps |
138 |
< |
temps = My.Computer.Clock.TickCount |
138 |
> |
|
139 |
|
Try |
140 |
|
If decoupe Then Intersections.FairePreCarte() |
141 |
|
Catch |
142 |
|
MsgBox("Faire pré-carte n'a pas fonctionner") |
143 |
|
End Try |
144 |
|
|
145 |
+ |
temps = My.Computer.Clock.TickCount |
146 |
|
Commun.MettreNoms() ' place les noms des SlyClasses sur les entités. |
147 |
|
If decoupe Then Fusion() ' met un attribut sur les sommets et arètes doubles (pour que MAGiC ne les maille pas 2 fois. |
148 |
|
swModel.Save3(swconst.swSaveAsOptions_e.swSaveAsOptions_AvoidRebuildOnSave, errors, warnings) |
222 |
|
|
223 |
|
Intersections.MettreMiniPoutresSurFaceInternes = EnregistrementCode.checkboxMiniSurCoque.Checked |
224 |
|
Intersections.MultiDecoupageCoques = EnregistrementCode.checkboxMultidecoupage.Checked |
225 |
+ |
Intersections.SectionSimpleSurPoutre = EnregistrementCode.checkboxSectionSimpleSurPoutre.Checked |
226 |
|
|
227 |
|
End Sub |
228 |
|
|