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 50 by bournival, Fri Aug 24 21:19:38 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 <        '
41 >        Public curseur As sldworks.PropertyManagerPageSlider
42 >        Public limiteur As SldWorks.PropertyManagerPageNumberbox
43 >        Public labelRemi1 As sldworks.PropertyManagerPageLabel
44 >
45  
46          Private vNumberENG As Double
47          Private vNumberbox1 As Double
# Line 47 | Line 55 | Namespace Enregistrement
55          Private vNumberentités As Double
56          Private vCheckEnt As Boolean
57  
58 +        Public ValeurSliderRemi As Double
59 +
60          Private vcheckboxOriginal As Boolean
61          Private vcheckboxModifie As Boolean
62  
63          Public decoupe As Boolean ' pas le choix, si je met la variable dans le page handler, il plante à la fermeture.
64 <        Public POG As Boolean
64 >        Public POGManuel As Boolean
65 >        Public PogAutomatique As Boolean
66 >
67 >
68  
69  
70          Public Lst_BodyCL As New Collection
# Line 67 | Line 80 | Namespace Enregistrement
80  
81              If Not sauvegarder Then Return
82  
83 <            If POG Then NomFichierPog = PoGCode.debut(vNumberENG, Int(vNumberbox1), vcheckArrondi, vNumberArrondi, vcheckRentrant, vNumberRentrant, vcheckMatiere, vNumberMatiere, vcheckEntites, selectionpog, vNumberentités, vCheckEnt)
83 >            If POGManuel Then
84 >                NomFichierPog = PoGCode.DebutManuel(vNumberENG, Int(vNumberbox1), vcheckArrondi, vNumberArrondi, vcheckRentrant, vNumberRentrant, vcheckMatiere, vNumberMatiere, vcheckEntites, selectionpog, vNumberentités, vCheckEnt)
85 >            ElseIf PogAutomatique Then
86 >                NomFichierPog = PoGCode.DebutAutomatique(ValeurSliderRemi, limiteur.Value)
87 >            End If
88 >
89  
90              swModel.Save3(SwConst.swSaveAsOptions_e.swSaveAsOptions_AvoidRebuildOnSave, errors, warnings)
91  
# Line 168 | Line 186 | Namespace Enregistrement
186  
187          Public Sub MemoriserValeurs()
188              If Groupe3.Checked = True Then EnregistrementCode.decoupe = True
189 <            If Groupe2.Checked = True Then EnregistrementCode.POG = True
189 >            If Groupe2.Checked = True Then EnregistrementCode.POGManuel = True
190 >            If Groupe4.Checked = True Then EnregistrementCode.PogAutomatique = True
191  
192              vNumberENG = NumberENG.Value
193              vNumberbox1 = numberbox1.Value

Diff Legend

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