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 45 by bournival, Mon Aug 20 21:30:28 2007 UTC vs.
Revision 46 by bournival, Wed Aug 22 18:28:53 2007 UTC

# Line 5 | Line 5 | Namespace Enregistrement
5  
6          Public Groupe2 As SldWorks.PropertyManagerPageGroup ' pour la pré-optimisation de maillage
7          Public Groupe3 As SldWorks.PropertyManagerPageGroup ' pour le découpage de la géométrie (multidimensionnel)
8 +        Public Groupe4 As SldWorks.PropertyManagerPageGroup
9 +
10          Public checkboxOriginal As SldWorks.PropertyManagerPageCheckbox
11          Public checkboxModifie As SldWorks.PropertyManagerPageCheckbox
12  
# Line 33 | Line 35 | Namespace Enregistrement
35          Public bGilles1 As Boolean
36          Public bGilles2 As Boolean
37  
38 +        Public curseur As Object
39 +        Public limiteur As SldWorks.PropertyManagerPageNumberbox
40 +
41          '
42  
43          Private vNumberENG As Double
# Line 51 | Line 56 | Namespace Enregistrement
56          Private vcheckboxModifie As Boolean
57  
58          Public decoupe As Boolean ' pas le choix, si je met la variable dans le page handler, il plante à la fermeture.
59 <        Public POG As Boolean
59 >        Public POGManuel As Boolean
60 >        Public PogAutomatique As Boolean
61  
62  
63          Public Lst_BodyCL As New Collection
# Line 67 | Line 73 | Namespace Enregistrement
73  
74              If Not sauvegarder Then Return
75  
76 <            If POG Then NomFichierPog = PoGCode.debut(vNumberENG, Int(vNumberbox1), vcheckArrondi, vNumberArrondi, vcheckRentrant, vNumberRentrant, vcheckMatiere, vNumberMatiere, vcheckEntites, selectionpog, vNumberentités, vCheckEnt)
76 >            If POGManuel Then NomFichierPog = PoGCode.DebutManuel(vNumberENG, Int(vNumberbox1), vcheckArrondi, vNumberArrondi, vcheckRentrant, vNumberRentrant, vcheckMatiere, vNumberMatiere, vcheckEntites, selectionpog, vNumberentités, vCheckEnt)
77 >            If pogAutomatique Then NomFichierPog = PoGCode.DebutAutomatique(CDbl(curseur.position), limiteur.Value)
78 >
79  
80              swModel.Save3(SwConst.swSaveAsOptions_e.swSaveAsOptions_AvoidRebuildOnSave, errors, warnings)
81  
# Line 168 | Line 176 | Namespace Enregistrement
176  
177          Public Sub MemoriserValeurs()
178              If Groupe3.Checked = True Then EnregistrementCode.decoupe = True
179 <            If Groupe2.Checked = True Then EnregistrementCode.POG = True
179 >            If Groupe2.Checked = True Then EnregistrementCode.POGManuel = True
180 >            If Groupe4.Checked = True Then EnregistrementCode.PogAutomatique = True
181  
182              vNumberENG = NumberENG.Value
183              vNumberbox1 = numberbox1.Value

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines