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

# Line 1 | Line 1
1 < Imports SwConst
1 > Imports SolidWorks.Interop
2 > Imports SolidWorks.Interop.swconst
3 > Imports SolidWorks.Interop.swpublished
4 >
5   Namespace Enregistrement
6      Module EnregistrementCode
7  
8  
9          Public Groupe2 As SldWorks.PropertyManagerPageGroup ' pour la pré-optimisation de maillage
10          Public Groupe3 As SldWorks.PropertyManagerPageGroup ' pour le découpage de la géométrie (multidimensionnel)
11 +        Public Groupe4 As SldWorks.PropertyManagerPageGroup
12 +
13          Public checkboxOriginal As SldWorks.PropertyManagerPageCheckbox
14          Public checkboxModifie As SldWorks.PropertyManagerPageCheckbox
15  
# Line 33 | Line 38 | Namespace Enregistrement
38          Public bGilles1 As Boolean
39          Public bGilles2 As Boolean
40  
41 +        Public curseur As sldworks.PropertyManagerPageSlider
42 +        Public limiteur As SldWorks.PropertyManagerPageNumberbox
43 +
44          '
45  
46          Private vNumberENG As Double
# Line 51 | Line 59 | Namespace Enregistrement
59          Private vcheckboxModifie As Boolean
60  
61          Public decoupe As Boolean ' pas le choix, si je met la variable dans le page handler, il plante à la fermeture.
62 <        Public POG As Boolean
62 >        Public POGManuel As Boolean
63 >        Public PogAutomatique As Boolean
64  
65  
66          Public Lst_BodyCL As New Collection
# Line 67 | Line 76 | Namespace Enregistrement
76  
77              If Not sauvegarder Then Return
78  
79 <            If POG Then NomFichierPog = PoGCode.debut(vNumberENG, Int(vNumberbox1), vcheckArrondi, vNumberArrondi, vcheckRentrant, vNumberRentrant, vcheckMatiere, vNumberMatiere, vcheckEntites, selectionpog, vNumberentités, vCheckEnt)
79 >            If POGManuel Then
80 >                NomFichierPog = PoGCode.DebutManuel(vNumberENG, Int(vNumberbox1), vcheckArrondi, vNumberArrondi, vcheckRentrant, vNumberRentrant, vcheckMatiere, vNumberMatiere, vcheckEntites, selectionpog, vNumberentités, vCheckEnt)
81 >            ElseIf PogAutomatique Then
82 >                NomFichierPog = PoGCode.DebutAutomatique(CDbl(curseur.position), limiteur.Value)
83 >            End If
84 >
85  
86              swModel.Save3(SwConst.swSaveAsOptions_e.swSaveAsOptions_AvoidRebuildOnSave, errors, warnings)
87  
# Line 168 | Line 182 | Namespace Enregistrement
182  
183          Public Sub MemoriserValeurs()
184              If Groupe3.Checked = True Then EnregistrementCode.decoupe = True
185 <            If Groupe2.Checked = True Then EnregistrementCode.POG = True
185 >            If Groupe2.Checked = True Then EnregistrementCode.POGManuel = True
186 >            If Groupe4.Checked = True Then EnregistrementCode.PogAutomatique = True
187  
188              vNumberENG = NumberENG.Value
189              vNumberbox1 = numberbox1.Value

Diff Legend

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