EgtCAM5 :
- aggiunta gestione parametri Oscillazione Fresatura in DB lavorazioni e in lavorazioni applicate.
This commit is contained in:
Dario Sassi
@@ -194,23 +194,23 @@ Public Class MachiningTreeViewItem
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_IsModifiedOscillEnable As Boolean = False
|
||||
Private m_OscillEnable As Boolean
|
||||
Private m_IsModifiedOscEnable As Boolean = False
|
||||
Private m_OscEnable As Boolean
|
||||
''' <summary>
|
||||
''' Property that read and write to the Machining's database the Invert
|
||||
''' </summary>
|
||||
Public Property OscillEnable As Boolean
|
||||
Public Property OscEnable As Boolean
|
||||
Get
|
||||
Return m_OscillEnable
|
||||
Return m_OscEnable
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
If value <> m_OscillEnable Then
|
||||
m_OscillEnable = value
|
||||
Dim DbOscillEnable As Boolean = False
|
||||
EgtMdbGetCurrMachiningParam(MCH_MP.TOOLINVERT, DbOscillEnable)
|
||||
m_IsModifiedOscillEnable = If(value <> DbOscillEnable, True, False)
|
||||
If value <> m_OscEnable Then
|
||||
m_OscEnable = value
|
||||
Dim DbOscEnable As Boolean = False
|
||||
EgtMdbGetCurrMachiningParam(MCH_MP.OSCENABLE, DbOscEnable)
|
||||
m_IsModifiedOscEnable = If(value <> DbOscEnable, True, False)
|
||||
m_delIsEnabledBtns(IsValid And Not IsModified, IsValid And (IsModified Or NewMachining), True)
|
||||
NotifyPropertyChanged("OscillEnable")
|
||||
NotifyPropertyChanged("OscEnable")
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
@@ -1567,71 +1567,71 @@ Public Class MachiningTreeViewItem
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_IsModifiedOscillHeight As Boolean = False
|
||||
Private m_OscillHeight As String
|
||||
Private m_IsModifiedOscHeight As Boolean = False
|
||||
Private m_OscHeight As String
|
||||
''' <summary>
|
||||
''' Property that read and write to the Machining's database the Vert Feed
|
||||
''' Property that read and write to the Machining's database the Oscillation Height
|
||||
''' </summary>
|
||||
Public Property OscillHeight As String
|
||||
Public Property OscHeight As String
|
||||
Get
|
||||
Return m_OscillHeight
|
||||
Return m_OscHeight
|
||||
End Get
|
||||
Set(value As String)
|
||||
If value <> m_OscillHeight Then
|
||||
m_OscillHeight = value
|
||||
Dim DbOscillHeight As Double = 0
|
||||
If value <> m_OscHeight Then
|
||||
m_OscHeight = value
|
||||
Dim DbOscHeight As Double = 0
|
||||
Dim dValue As Double = 0
|
||||
EgtMdbGetCurrMachiningParam(MCH_MP.VERTFEED, DbOscillHeight)
|
||||
EgtMdbGetCurrMachiningParam(MCH_MP.OSCHEIGHT, DbOscHeight)
|
||||
StringToLen(value, dValue)
|
||||
m_IsModifiedVertFeed = Math.Abs(dValue - DbOscillHeight) > 10 * EPS_SMALL
|
||||
m_IsModifiedOscHeight = Math.Abs(dValue - DbOscHeight) > 10 * EPS_SMALL
|
||||
m_delIsEnabledBtns(IsValid And Not IsModified, IsValid And (IsModified Or NewMachining), True)
|
||||
NotifyPropertyChanged("OscillHeight")
|
||||
NotifyPropertyChanged("OscHeight")
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_IsModifiedOscillRampL As Boolean = False
|
||||
Private m_OscillRampL As String
|
||||
Private m_IsModifiedOscRampLen As Boolean = False
|
||||
Private m_OscRampLen As String
|
||||
''' <summary>
|
||||
''' Property that read and write to the Machining's database the Vert Feed
|
||||
''' Property that read and write to the Machining's database the Oscillation Ramp Length
|
||||
''' </summary>
|
||||
Public Property OscillRampL As String
|
||||
Public Property OscRampLen As String
|
||||
Get
|
||||
Return m_OscillRampL
|
||||
Return m_OscRampLen
|
||||
End Get
|
||||
Set(value As String)
|
||||
If value <> m_OscillRampL Then
|
||||
m_OscillRampL = value
|
||||
Dim DbOscillRampL As Double = 0
|
||||
If value <> m_OscRampLen Then
|
||||
m_OscRampLen = value
|
||||
Dim DbOscRampLen As Double = 0
|
||||
Dim dValue As Double = 0
|
||||
EgtMdbGetCurrMachiningParam(MCH_MP.VERTFEED, DbOscillRampL)
|
||||
EgtMdbGetCurrMachiningParam(MCH_MP.OSCRAMPLEN, DbOscRampLen)
|
||||
StringToLen(value, dValue)
|
||||
m_IsModifiedVertFeed = Math.Abs(dValue - DbOscillRampL) > 10 * EPS_SMALL
|
||||
m_IsModifiedOscRampLen = Math.Abs(dValue - DbOscRampLen) > 10 * EPS_SMALL
|
||||
m_delIsEnabledBtns(IsValid And Not IsModified, IsValid And (IsModified Or NewMachining), True)
|
||||
NotifyPropertyChanged("OscillRampL")
|
||||
NotifyPropertyChanged("OscRampLen")
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_IsModifiedOscillHorizL As Boolean = False
|
||||
Private m_OscillHorizL As String
|
||||
Private m_IsModifiedOscFlatLen As Boolean = False
|
||||
Private m_OscFlatLen As String
|
||||
''' <summary>
|
||||
''' Property that read and write to the Machining's database the Vert Feed
|
||||
''' Property that read and write to the Machining's database the Oscillation Flat Lenght
|
||||
''' </summary>
|
||||
Public Property OscillHorizL As String
|
||||
Public Property OscFlatLen As String
|
||||
Get
|
||||
Return m_OscillHorizL
|
||||
Return m_OscFlatLen
|
||||
End Get
|
||||
Set(value As String)
|
||||
If value <> m_OscillHorizL Then
|
||||
m_OscillHorizL = value
|
||||
Dim DbOscillHorizL As Double = 0
|
||||
If value <> m_OscFlatLen Then
|
||||
m_OscFlatLen = value
|
||||
Dim DbOscFlatLen As Double = 0
|
||||
Dim dValue As Double = 0
|
||||
EgtMdbGetCurrMachiningParam(MCH_MP.VERTFEED, DbOscillHorizL)
|
||||
EgtMdbGetCurrMachiningParam(MCH_MP.OSCFLATLEN, DbOscFlatLen)
|
||||
StringToLen(value, dValue)
|
||||
m_IsModifiedVertFeed = Math.Abs(dValue - DbOscillHorizL) > 10 * EPS_SMALL
|
||||
m_IsModifiedOscFlatLen = Math.Abs(dValue - DbOscFlatLen) > 10 * EPS_SMALL
|
||||
m_delIsEnabledBtns(IsValid And Not IsModified, IsValid And (IsModified Or NewMachining), True)
|
||||
NotifyPropertyChanged("OscillHorizL")
|
||||
NotifyPropertyChanged("OscFlatLen")
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
@@ -1901,6 +1901,7 @@ Public Class MachiningTreeViewItem
|
||||
EgtMdbGetCurrMachiningParam(MCH_MP.INVERT, Invert)
|
||||
EgtMdbGetCurrMachiningParam(MCH_MP.LEAVETAB, LeaveTab)
|
||||
EgtMdbGetCurrMachiningParam(MCH_MP.TOOLINVERT, InvertToolDir)
|
||||
EgtMdbGetCurrMachiningParam(MCH_MP.OSCENABLE, OscEnable)
|
||||
EgtMdbGetCurrMachiningParam(MCH_MP.WORKSIDE, nValue)
|
||||
SelectedWorkSide = If(IsNothing(WorkSideList), nValue, IdNameStruct.IndFromId(nValue, WorkSideList))
|
||||
EgtMdbGetCurrMachiningParam(MCH_MP.HEADSIDE, nValue)
|
||||
@@ -1991,6 +1992,12 @@ Public Class MachiningTreeViewItem
|
||||
SideStep = LenToString(dValue, 4)
|
||||
EgtMdbGetCurrMachiningParam(MCH_MP.VERTFEED, dValue)
|
||||
VertFeed = LenToString(dValue, 4)
|
||||
EgtMdbGetCurrMachiningParam(MCH_MP.OSCHEIGHT, dValue)
|
||||
OscHeight = LenToString(dValue, 4)
|
||||
EgtMdbGetCurrMachiningParam(MCH_MP.OSCRAMPLEN, dValue)
|
||||
OscRampLen = LenToString(dValue, 4)
|
||||
EgtMdbGetCurrMachiningParam(MCH_MP.OSCFLATLEN, dValue)
|
||||
OscFlatLen = LenToString(dValue, 4)
|
||||
EgtMdbGetCurrMachiningParam(MCH_MP.DEPTH_STR, DepthStr)
|
||||
EgtMdbGetCurrMachiningParam(MCH_MP.UUID, m_Uuid)
|
||||
EgtMdbGetCurrMachiningParam(MCH_MP.USERNOTES, UserNotes)
|
||||
@@ -2042,6 +2049,7 @@ Public Class MachiningTreeViewItem
|
||||
EgtMdbSetCurrMachiningParam(MCH_MP.INVERT, Invert)
|
||||
EgtMdbSetCurrMachiningParam(MCH_MP.LEAVETAB, LeaveTab)
|
||||
EgtMdbSetCurrMachiningParam(MCH_MP.TOOLINVERT, InvertToolDir)
|
||||
EgtMdbSetCurrMachiningParam(MCH_MP.OSCENABLE, OscEnable)
|
||||
EgtMdbSetCurrMachiningParam(MCH_MP.TYPE, Type)
|
||||
nValue = If(IsNothing(WorkSideList), m_SelectedWorkSide, IdNameStruct.IdFromInd(m_SelectedWorkSide, WorkSideList))
|
||||
EgtMdbSetCurrMachiningParam(MCH_MP.WORKSIDE, nValue)
|
||||
@@ -2128,6 +2136,12 @@ Public Class MachiningTreeViewItem
|
||||
EgtMdbSetCurrMachiningParam(MCH_MP.SIDESTEP, dValue)
|
||||
StringToLen(VertFeed, dValue)
|
||||
EgtMdbSetCurrMachiningParam(MCH_MP.VERTFEED, dValue)
|
||||
StringToLen(OscHeight, dValue)
|
||||
EgtMdbSetCurrMachiningParam(MCH_MP.OSCHEIGHT, dValue)
|
||||
StringToLen(OscRampLen, dValue)
|
||||
EgtMdbSetCurrMachiningParam(MCH_MP.OSCRAMPLEN, dValue)
|
||||
StringToLen(OscFlatLen, dValue)
|
||||
EgtMdbSetCurrMachiningParam(MCH_MP.OSCFLATLEN, dValue)
|
||||
EgtMdbSetCurrMachiningParam(MCH_MP.DEPTH_STR, DepthStr)
|
||||
EgtMdbSetCurrMachiningParam(MCH_MP.USERNOTES, UserNotes)
|
||||
EgtMdbSetCurrMachiningParam(MCH_MP.INITANGS, InitAngs)
|
||||
@@ -2196,7 +2210,7 @@ Public Class MachiningTreeViewItem
|
||||
Return m_IsModifiedInvert OrElse
|
||||
m_IsModifiedLeaveTab OrElse
|
||||
m_IsModifiedToolInvert OrElse
|
||||
m_IsModifiedOscillEnable OrElse
|
||||
m_IsModifiedOscEnable OrElse
|
||||
m_IsModifiedSelectedWorkSide OrElse
|
||||
m_IsModifiedSelectedHeadSide OrElse
|
||||
m_IsModifiedSelectedLeadInType OrElse
|
||||
@@ -2241,10 +2255,10 @@ Public Class MachiningTreeViewItem
|
||||
m_IsModifiedStepIntArc OrElse
|
||||
m_IsModifiedSideStep OrElse
|
||||
m_IsModifiedVertFeed OrElse
|
||||
m_IsModifiedOscillHeight OrElse
|
||||
m_IsModifiedOscillRampL OrElse
|
||||
m_IsModifiedOscillHorizL OrElse
|
||||
m_IsModifiedOscillHeight OrElse
|
||||
m_IsModifiedOscHeight OrElse
|
||||
m_IsModifiedOscRampLen OrElse
|
||||
m_IsModifiedOscFlatLen OrElse
|
||||
m_IsModifiedOscHeight OrElse
|
||||
m_IsModifiedName OrElse
|
||||
m_IsModifiedSelectedTool OrElse
|
||||
m_IsModifiedDepthStr OrElse
|
||||
@@ -2259,7 +2273,7 @@ Public Class MachiningTreeViewItem
|
||||
m_IsModifiedInvert = False
|
||||
m_IsModifiedLeaveTab = False
|
||||
m_IsModifiedToolInvert = False
|
||||
m_IsModifiedOscillEnable = False
|
||||
m_IsModifiedOscEnable = False
|
||||
m_IsModifiedSelectedWorkSide = False
|
||||
m_IsModifiedSelectedHeadSide = False
|
||||
m_IsModifiedSelectedLeadInType = False
|
||||
@@ -2304,9 +2318,9 @@ Public Class MachiningTreeViewItem
|
||||
m_IsModifiedStepIntArc = False
|
||||
m_IsModifiedSideStep = False
|
||||
m_IsModifiedVertFeed = False
|
||||
m_IsModifiedOscillHeight = False
|
||||
m_IsModifiedOscillRampL = False
|
||||
m_IsModifiedOscillHorizL = False
|
||||
m_IsModifiedOscHeight = False
|
||||
m_IsModifiedOscRampLen = False
|
||||
m_IsModifiedOscFlatLen = False
|
||||
m_IsModifiedName = False
|
||||
m_IsModifiedSelectedTool = False
|
||||
m_IsModifiedDepthStr = False
|
||||
|
||||
Reference in New Issue
Block a user