ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/REPOS_ERICCA/magicsld/EnregistrementCode.vb
(Generate patch)

Comparing magicsld/EnregistrementCode.vb (file contents):
Revision 130 by bournival, Wed Jul 30 21:26:03 2008 UTC vs.
Revision 205 by bournival, Thu Jul 23 20:53:57 2009 UTC

# Line 62 | Line 62 | Namespace Enregistrement
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
# Line 136 | Line 135 | Namespace Enregistrement
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)
# Line 222 | Line 222 | Namespace Enregistrement
222  
223              Intersections.MettreMiniPoutresSurFaceInternes = EnregistrementCode.checkboxMiniSurCoque.Checked
224              Intersections.MultiDecoupageCoques = EnregistrementCode.checkboxMultidecoupage.Checked
225 +            Intersections.SectionSimpleSurPoutre = EnregistrementCode.checkboxSectionSimpleSurPoutre.Checked
226  
227          End Sub
228  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines