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 47 by bournival, Wed Aug 22 18:28:53 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  
# 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  
44          '
# Line 73 | Line 76 | Namespace Enregistrement
76  
77              If Not sauvegarder Then Return
78  
79 <            If POGManuel Then NomFichierPog = PoGCode.DebutManuel(vNumberENG, Int(vNumberbox1), vcheckArrondi, vNumberArrondi, vcheckRentrant, vNumberRentrant, vcheckMatiere, vNumberMatiere, vcheckEntites, selectionpog, vNumberentités, vCheckEnt)
80 <            If pogAutomatique Then NomFichierPog = PoGCode.DebutAutomatique(CDbl(curseur.position), limiteur.Value)
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)

Diff Legend

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