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 46 by bournival, Wed Aug 22 18:28:53 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  
# Line 35 | Line 38 | Namespace Enregistrement
38          Public bGilles1 As Boolean
39          Public bGilles2 As Boolean
40  
41 <        Public curseur As Object
41 >        Public curseur As sldworks.PropertyManagerPageSlider
42          Public limiteur As SldWorks.PropertyManagerPageNumberbox
43 +        Public labelRemi1 As sldworks.PropertyManagerPageLabel
44  
41 –        '
45  
46          Private vNumberENG As Double
47          Private vNumberbox1 As Double
# Line 52 | 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  
# Line 60 | Line 65 | Namespace Enregistrement
65          Public PogAutomatique As Boolean
66  
67  
68 +
69 +
70          Public Lst_BodyCL As New Collection
71  
72          Public sauvegarder As Boolean = False
# Line 73 | Line 80 | Namespace Enregistrement
80  
81              If Not sauvegarder Then Return
82  
83 <            If POGManuel Then NomFichierPog = PoGCode.DebutManuel(vNumberENG, Int(vNumberbox1), vcheckArrondi, vNumberArrondi, vcheckRentrant, vNumberRentrant, vcheckMatiere, vNumberMatiere, vcheckEntites, selectionpog, vNumberentités, vCheckEnt)
84 <            If pogAutomatique Then NomFichierPog = PoGCode.DebutAutomatique(CDbl(curseur.position), limiteur.Value)
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)

Diff Legend

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