Demetrio Cassarino
953 lines
42 KiB
VB.net
953 lines
42 KiB
VB.net
Imports EgtUILib
|
|
Imports EgtUILib.EgtInterface
|
|
Imports OmagCUT.MainWindow
|
|
|
|
Public Class FlatteningCut
|
|
|
|
' Riferimenti a pagine
|
|
Private m_MainWindow As MainWindow = DirectCast(Application.Current.MainWindow, MainWindow)
|
|
Private WithEvents m_CurrProjPage As CurrentProjectPageUC
|
|
' Flag di pagina attiva
|
|
Private m_bActive As Boolean = False
|
|
' Flag di simulazione in corso
|
|
Private m_bSimul As Boolean = False
|
|
' Definizione del taglio diretto di questa pagina
|
|
Private Const FLATTENING As String = "Flattening"
|
|
|
|
' Origine tavola e dati grezzo
|
|
Private m_bRawOk As Boolean = False
|
|
Private m_ptTabOri As Point3d
|
|
Private m_ptRawMin As Point3d
|
|
Private m_ptRawMax As Point3d
|
|
' Parametri P1 acquisito
|
|
Private m_bPointP1Ok As Boolean = False
|
|
Private m_ptTipP1 As Point3d
|
|
Private m_vtToolP1 As Vector3d
|
|
' Parametri P2 acquisito
|
|
Private m_bPointP2Ok As Boolean = False
|
|
Private m_ptTipP2 As Point3d
|
|
Private m_vtToolP2 As Vector3d
|
|
' Parametri della lavorazione
|
|
Private m_bCutOk As Boolean = False
|
|
Private m_dDepth As Double = 0
|
|
Private m_dAngO As Double = 180
|
|
Private m_dLen As Double = 500
|
|
Private m_dWid As Double = 500
|
|
Private m_dOverlap As Double = 1
|
|
Private m_dZReleased As Double = 50 ' alteza di uscita utensile
|
|
|
|
Private m_bHeadSide As Boolean = False
|
|
Private m_nMachType As Integer = 1
|
|
Private m_bRotLock As Boolean = False
|
|
Private m_bChainedPath As Boolean = True
|
|
Private m_nTool As Integer = 0
|
|
' Array delle modalità di acquisizione dei punti
|
|
Private m_PointsModeArray(2) As String
|
|
' Array delle tipologia di lavorazione della spianatura
|
|
Private m_TypeArray(2) As String
|
|
' Punto selezionato nel disegno
|
|
Private m_ptPrev As Point3d
|
|
' Layer per crocette temporanee
|
|
Private m_nTempLay As Integer = GDB_ID.NULL
|
|
' Array degliutensili disponibili (lama e fresa)
|
|
Private m_ToolsArray(1) As String
|
|
|
|
' Costanti
|
|
Private Const MAX_TAB_DEPTH As Double = 10.0
|
|
Private Const MIN_CUT_LEN As Double = 10.0
|
|
Private Const MIN_CUT_WID As Double = 10.0
|
|
Private Const MAX_SIDE_ANG As Double = 60.0
|
|
' Costanti che indicano la modalità di acquisizione dei punti
|
|
Private Enum PT_MODE As Integer
|
|
SAW = 0
|
|
LASER = 1
|
|
DRAW = 2
|
|
End Enum
|
|
' Costanti che indicano la tipologia di lavorazione della spianatura
|
|
Private Enum MACH_TYPE As Integer
|
|
ZIGZAG = 0
|
|
ONEWAY = 1
|
|
SPIRAL = 2
|
|
End Enum
|
|
'Costante che indica il lato in cui posizionare i tagli
|
|
Private Enum CutSide As Integer
|
|
Left
|
|
Right
|
|
End Enum
|
|
|
|
Private Enum TOOL As Integer
|
|
SAW = 0
|
|
MILL = 1
|
|
End Enum
|
|
|
|
' Per abilitare la spianatura con la FRESA deve essere imposatato a TRUE il flag "Usa Fresa" nella pagina MACCHINA (campo INCISIONI)
|
|
Private Sub FlatteningCut_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
|
|
' Creo lista modalità di acquisizione punto
|
|
m_PointsModeArray(PT_MODE.SAW) = EgtMsg(90224) ' Lama
|
|
m_PointsModeArray(PT_MODE.LASER) = EgtMsg(90212) ' Laser
|
|
m_PointsModeArray(PT_MODE.DRAW) = EgtMsg(90225) ' Disegno
|
|
' la associo alla combobox
|
|
PointModeCmBx.ItemsSource = m_PointsModeArray
|
|
' Creo lista tipo lavorazione
|
|
m_TypeArray(MACH_TYPE.ZIGZAG) = EgtMsg(90838) ' ZigZag
|
|
m_TypeArray(MACH_TYPE.ONEWAY) = EgtMsg(90839) ' OneWay
|
|
m_TypeArray(MACH_TYPE.SPIRAL) = EgtMsg(90851) ' Spirale
|
|
' la associo alla combobox
|
|
TypeCmBx.ItemsSource = m_TypeArray
|
|
' assegno messaggi
|
|
Point1Btn.ToolTip = EgtMsg(90210) ' Acquisisci P1
|
|
Point2Btn.ToolTip = EgtMsg(90211) ' Acquisisci P2
|
|
DepthTxBl.Text = EgtMsg(90213) ' Affondamento
|
|
LenghtTxBl.Text = EgtMsg(90214) ' Lunghezza
|
|
DirectionTxBl.Text = EgtMsg(90215) ' Direzione
|
|
WidthTxBl.Text = EgtMsg(90226) ' Larghezza
|
|
OverlapTxBl.Text = EgtMsg(90227) ' Sovrapposizione
|
|
ZReleasedTxBl.Text = EgtMsg(91235) ' Z Svincolo
|
|
SideTxBl.Text = EgtMsg(90223) ' Tagli lato motore
|
|
RotLockTxBl.Text = EgtMsg(90229) ' Blocca Asse C
|
|
ChainedPathTxBl.Text = EgtMsg(91236) ' Chained path
|
|
SimulBtn.ToolTip = EgtMsg(90301) ' Simula
|
|
OkBtn.ToolTip = EgtMsg(90230) ' Esegui
|
|
' tipo di utensile in uso per la lavorazione
|
|
m_ToolsArray(TOOL.SAW) = EgtMsg(90224) ' Lama
|
|
m_ToolsArray(TOOL.MILL) = EgtMsg(91237) ' Mill
|
|
SelToolCmBx.ItemsSource = m_ToolsArray
|
|
' Carico i dati dell'ultimo taglio
|
|
m_dDepth = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_FLATT_DEPTH, m_dDepth, m_MainWindow.GetIniFile())
|
|
m_dAngO = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_FLATT_ANGH, m_dAngO, m_MainWindow.GetIniFile())
|
|
m_dLen = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_FLATT_LENGTH, m_dLen, m_MainWindow.GetIniFile())
|
|
m_dWid = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_FLATT_WIDTH, m_dWid, m_MainWindow.GetIniFile())
|
|
m_dOverlap = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_FLATT_OVERLAP, m_dOverlap, m_MainWindow.GetIniFile())
|
|
m_dZReleased = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_FLATT_Z_RELEASED, m_dZReleased, m_MainWindow.GetIniFile())
|
|
m_bHeadSide = (GetPrivateProfileInt(S_DIRECTCUTS, K_DC_FLATT_HEADSIDE, 0, m_MainWindow.GetIniFile()) <> 0)
|
|
m_nMachType = GetPrivateProfileInt(S_DIRECTCUTS, K_DC_FLATT_MACHTYPE, m_nMachType, m_MainWindow.GetIniFile())
|
|
m_bRotLock = (GetPrivateProfileInt(S_DIRECTCUTS, K_DC_FLATT_ROTLOCK, 0, m_MainWindow.GetIniFile()) <> 0)
|
|
m_bChainedPath = (GetPrivateProfileInt(S_DIRECTCUTS, K_DC_FLAT_CHAINEDPATH, 0, m_MainWindow.GetIniFile()) <> 0)
|
|
m_nTool = GetPrivateProfileInt(S_MACH_NEST, K_MACH_ENGRAVING_WITHMILL, 1, m_MainWindow.GetMachIniFile())
|
|
m_ptTipP1.x = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_FLATT_POSX, m_ptTipP1.x, m_MainWindow.GetIniFile())
|
|
m_ptTipP1.y = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_FLATT_POSY, m_ptTipP1.y, m_MainWindow.GetIniFile())
|
|
End Sub
|
|
|
|
Private Sub FlatteningCut_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
|
|
' Attivo la pagina
|
|
m_CurrProjPage = m_MainWindow.m_CurrentProjectPageUC
|
|
m_bActive = True
|
|
' Se rientro da simulazione
|
|
If m_bSimul Then
|
|
m_bSimul = False
|
|
' Disabilito registrazione progetto modificato
|
|
EgtDisableModified()
|
|
' Aggiorno visualizzazione
|
|
SetMachineInCurrPos()
|
|
m_MainWindow.m_DirectCutPageUC.m_bShowMachine = True
|
|
EgtSetMachineLook(m_MainWindow.m_DirectCutPageUC.m_nMachLook)
|
|
EgtDraw()
|
|
Return
|
|
End If
|
|
' Disabilito registrazione progetto modificato
|
|
EgtDisableModified()
|
|
' Creo layer temporaneo per crocette
|
|
m_nTempLay = EgtCreateGroup(GDB_ID.ROOT)
|
|
EgtSetLevel(m_nTempLay, GDB_LV.TEMP)
|
|
' Origine tavola
|
|
m_bRawOk = True
|
|
If Not EgtGetTableRef(1, m_ptTabOri) Then
|
|
m_bRawOk = False
|
|
EgtOutLog("Error on TableRef1")
|
|
End If
|
|
' Dati del grezzo
|
|
If Not GetRawBox(m_ptRawMin, m_ptRawMax) Then
|
|
m_bRawOk = False
|
|
EgtOutLog("Error on RawBox")
|
|
End If
|
|
' Reset punto acquisito
|
|
m_bPointP1Ok = False
|
|
m_bPointP2Ok = False
|
|
' Inizializzo primo punto acquisito dal disegno
|
|
m_ptPrev = m_ptTipP1 + (m_ptTabOri - Point3d.ORIG())
|
|
m_ptPrev.z = m_ptRawMax.z
|
|
' Disegno crocetta che indica il punto acquisito
|
|
CreateCross(m_nTempLay, m_ptPrev)
|
|
' Imposto modalità di acquisizione punti
|
|
PointModeCmBx.SelectedIndex = PT_MODE.DRAW
|
|
SetCoordVisibility(True)
|
|
ShowCoord()
|
|
' Assegno parametri di lavorazione già definiti
|
|
DepthTxBx.Text = LenToString(m_dDepth, 1)
|
|
DirectionTxBx.Text = DoubleToString(m_dAngO - m_MainWindow.m_CurrentMachine.dDeltaC, 2)
|
|
LenghtTxBx.Text = LenToString(m_dLen, 1)
|
|
WidthTxBx.Text = LenToString(m_dWid, 2)
|
|
OverlapTxBx.Text = LenToString(m_dOverlap, 2)
|
|
ZReleasedTxBx.Text = LenToString(m_dZReleased, 2)
|
|
' carico la quota di svincolo per la spianatura
|
|
EgtMdbSetGeneralParam(MCH_GP.SAFEZ, m_dZReleased)
|
|
EgtMdbSave()
|
|
SideChBx.IsChecked = m_bHeadSide
|
|
TypeCmBx.SelectedIndex = m_nMachType
|
|
RotLockChBx.IsChecked = m_bRotLock
|
|
ChainedPathChBx.IsChecked = m_bChainedPath
|
|
' Assegno l'utensile in definito in macchina per la fresatura
|
|
SelToolCmBx.SelectedIndex = m_nTool
|
|
' Reset taglio e disabilito bottone esecuzione
|
|
m_bCutOk = False
|
|
UpdateSimulOkBtn()
|
|
' Disabilito bottone secondo punto
|
|
Point2Btn.IsEnabled = False
|
|
' Deseleziono bottone primo punto
|
|
Point1Btn.IsChecked = False
|
|
' Aggiorno visualizzazione
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
Friend Sub FlatteningCut_Unloaded(sender As Object, e As RoutedEventArgs) Handles Me.Unloaded
|
|
' Salvo i dati correnti
|
|
WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_DEPTH, DoubleToString(m_dDepth, 2), m_MainWindow.GetIniFile())
|
|
WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_ANGH, DoubleToString(m_dAngO, 2), m_MainWindow.GetIniFile())
|
|
WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_LENGTH, DoubleToString(m_dLen, 2), m_MainWindow.GetIniFile())
|
|
WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_WIDTH, DoubleToString(m_dWid, 2), m_MainWindow.GetIniFile())
|
|
WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_OVERLAP, DoubleToString(m_dOverlap, 2), m_MainWindow.GetIniFile())
|
|
WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_Z_RELEASED, DoubleToString(m_dZReleased, 2), m_MainWindow.GetIniFile())
|
|
WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_HEADSIDE, If(m_bHeadSide, "1", "0"), m_MainWindow.GetIniFile())
|
|
WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_MACHTYPE, m_nMachType.ToString(), m_MainWindow.GetIniFile())
|
|
WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_ROTLOCK, If(m_bRotLock, "1", "0"), m_MainWindow.GetIniFile())
|
|
WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_POSX, DoubleToString(m_ptTipP1.x, 2), m_MainWindow.GetIniFile())
|
|
WritePrivateProfileString(S_DIRECTCUTS, K_DC_FLATT_POSY, DoubleToString(m_ptTipP1.y, 2), m_MainWindow.GetIniFile())
|
|
' Se non vado in simulazione
|
|
If Not m_bSimul Then
|
|
' imposto la Z di sicurezza corretta
|
|
EgtMdbSetGeneralParam(MCH_GP.SAFEZ, DirectCutPageUC.m_dZSafe)
|
|
EgtMdbSave()
|
|
' Dichiaro sottopagina da non riattivare
|
|
m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.m_ActiveDirectCutPage = ControlsDirectCutUC.DirectCutPages.DirectCut
|
|
' Rimuovo layer temporaneo per crocette
|
|
EgtErase(m_nTempLay)
|
|
' Rimuovo eventuale pezzo per taglio diretto
|
|
EraseDirectCutPart()
|
|
' Riattivo eventuali lavorazioni presenti
|
|
ActivateAllMachinings()
|
|
' Abilito registrazione progetto modificato
|
|
EgtEnableModified()
|
|
' Nascondo la macchina
|
|
m_MainWindow.m_DirectCutPageUC.m_bShowMachine = False
|
|
EgtSetMachineLook(MCH_LOOK.TAB)
|
|
EgtDraw()
|
|
End If
|
|
' Dichiaro pagina non attiva
|
|
m_bActive = False
|
|
End Sub
|
|
|
|
Private Sub UpdateSimulOkBtn()
|
|
If m_bCutOk Then
|
|
SimulBtn.IsEnabled = True
|
|
SimulBtn.Foreground = Brushes.Black
|
|
OkBtn.IsEnabled = True
|
|
OkBtn.Foreground = Brushes.Black
|
|
Else
|
|
SimulBtn.IsEnabled = False
|
|
SimulBtn.Foreground = Brushes.DarkGray
|
|
OkBtn.IsEnabled = False
|
|
OkBtn.Foreground = Brushes.DarkGray
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub OnMyMouseDownScene(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles m_CurrProjPage.OnMouseDownScene
|
|
' Verifico di essere il gestore attivo
|
|
If Not m_bActive Then Return
|
|
' Si può selezionare solo con il tasto sinistro e se stato NULL
|
|
If e.Button <> Windows.Forms.MouseButtons.Left Or
|
|
Not m_CurrProjPage.CurrentProjectScene.IsStatusNull() Then
|
|
Return
|
|
End If
|
|
' Rimuovo eventuali crocette create acquisendo i punti nel disegno
|
|
EgtEmptyGroup(m_nTempLay)
|
|
' Acquisisco punto da disegno
|
|
EgtUnProjectPoint(e.Location, m_ptPrev)
|
|
' Aggiusto Z punto acquisito (è in globale)
|
|
Dim dPtPrevZ As Double = m_ptPrev.z
|
|
m_ptPrev.z = m_ptRawMax.z
|
|
' Se direzione di vista calcolabile e da sopra posso aggiustare anche XY
|
|
Dim dAngVertDeg, dAngHorizDeg As Double
|
|
If EgtGetGenericView(dAngVertDeg, dAngHorizDeg) Then
|
|
Dim vtDir As Vector3d = Vector3d.FromSpherical(1, dAngVertDeg, dAngHorizDeg)
|
|
If vtDir.z > EPS_SMALL Then
|
|
m_ptPrev.z = dPtPrevZ
|
|
m_ptPrev += vtDir * (m_ptRawMax.z - m_ptPrev.z) / vtDir.z
|
|
End If
|
|
End If
|
|
' Visualizzo coordinate (rispetto a 0 tavola)
|
|
ShowCoord()
|
|
' Disegno crocetta che indica il punto acquisito
|
|
CreateCross(m_nTempLay, m_ptPrev)
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
Private Sub PointModeCmBx_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles PointModeCmBx.SelectionChanged
|
|
SetCoordVisibility(PointModeCmBx.SelectedIndex = PT_MODE.DRAW)
|
|
End Sub
|
|
|
|
Private Sub Point1Btn_Click(sender As Object, e As RoutedEventArgs) Handles Point1Btn.Click
|
|
' Rimuovo eventuali crocette create acquisendo i punti nel disegno
|
|
EgtEmptyGroup(m_nTempLay)
|
|
' Reset punto non acquisito
|
|
m_bPointP1Ok = False
|
|
' Verifico configurazione tavola e grezzo
|
|
If Not m_bRawOk Then Return
|
|
|
|
' forzo utilizzo testa H1 solo per macchina con 2 teste
|
|
Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
|
|
' Ricavo dati lama corrente
|
|
Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
|
|
If bIsMultiCut Then
|
|
EgtSetCalcTool(sSaw, "H1", 1)
|
|
End If
|
|
|
|
' Se acquisizone lama o laser
|
|
If PointModeCmBx.SelectedIndex = PT_MODE.SAW Or PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
|
|
' Recupero la posizione macchina
|
|
Dim dL1, dL2, dL3, dR1, dR2 As Double
|
|
If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
|
|
' Se macchina multicut il primo asse rotante restituito è quello della tavola
|
|
Dim vAng() As Double = {dR1, dR2, 0}
|
|
If bIsMultiCut Then
|
|
vAng(0) = 0
|
|
vAng(1) = dR1
|
|
vAng(2) = dR2
|
|
End If
|
|
' Se punto da laser
|
|
If PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
|
|
' Imposto come testa corrente il laser (senza utensile ovviamente)
|
|
If Not EgtSetCalcTool("", "H3", 1) Then Return
|
|
' Trasformo in posizione punta utensile in basso
|
|
If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
|
|
' Ora imposto la lama corrente
|
|
If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
|
|
' Altrimenti da lama
|
|
Else
|
|
' Imposto la lama corrente
|
|
If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
|
|
' Trasformo in posizione punta utensile in basso
|
|
If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP1) Then Return
|
|
End If
|
|
' Calcolo direzione asse lama
|
|
If Not EgtGetCalcToolDirFromAngles(vAng, m_vtToolP1) Then Return
|
|
' Porto il tip nell'origine tavola
|
|
m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
|
|
m_bPointP1Ok = True
|
|
' Assegno angoli
|
|
Dim dTLen, dTAngV, dTAngO As Double
|
|
m_vtToolP1.ToSpherical(dTLen, dTAngV, dTAngO)
|
|
m_dAngO = dTAngO + 90
|
|
DirectionTxBx.Text = DoubleToString(m_dAngO - m_MainWindow.m_CurrentMachine.dDeltaC, 2)
|
|
|
|
' Altrimenti da disegno
|
|
Else
|
|
' Assegno punto selezionato nel disegno a m_ptTipP1
|
|
m_ptTipP1 = m_ptPrev
|
|
' Porto il tip nell'origine tavola
|
|
m_ptTipP1.ToLoc(New Frame3d(m_ptTabOri))
|
|
m_bPointP1Ok = True
|
|
' Imposto la lama corrente
|
|
If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
|
|
End If
|
|
' Disegno il taglio
|
|
CreateFlatteningCut()
|
|
' Disegno la macchina nella sua posizione reale
|
|
SetMachineInCurrPos()
|
|
m_MainWindow.m_DirectCutPageUC.m_bShowMachine = True
|
|
EgtSetMachineLook(m_MainWindow.m_DirectCutPageUC.m_nMachLook)
|
|
EgtDraw()
|
|
' Seleziono il bottone per indicare che il primo punto è stato acquisito
|
|
Point1Btn.IsChecked = True
|
|
' Abilito e deseleziono secondo punto
|
|
Point2Btn.IsEnabled = True
|
|
Point2Btn.IsChecked = False
|
|
' Annullo secondo punto selezionato
|
|
m_bPointP2Ok = False
|
|
End Sub
|
|
|
|
Private Sub Point2Btn_Click(sender As Object, e As RoutedEventArgs) Handles Point2Btn.Click
|
|
' Rimuovo eventuali crocette create acquisendo i punti nel disegno
|
|
EgtEmptyGroup(m_nTempLay)
|
|
' Deseleziono il bottone (poichè si seleziona automaticamente) così nel caso ci sia un errore rimane deselezionato
|
|
Point2Btn.IsChecked = False
|
|
' Reset punto non acquisito
|
|
m_bPointP2Ok = False
|
|
' Verifico configurazione tavola e grezzo
|
|
If Not m_bRawOk Then Return
|
|
|
|
' forzo utilizzo testa H1 solo per macchina con 2 teste
|
|
Dim bIsMultiCut As Boolean = (EgtGetHeadId("H101") <> GDB_ID.NULL)
|
|
' Ricavo dati lama corrente
|
|
Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
|
|
If bIsMultiCut Then
|
|
EgtSetCalcTool(sSaw, "H1", 1)
|
|
End If
|
|
|
|
' Se acquisizone lama o laser
|
|
If PointModeCmBx.SelectedIndex = PT_MODE.SAW Or PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
|
|
' Recupero la posizione macchina
|
|
Dim dL1, dL2, dL3, dR1, dR2 As Double
|
|
If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return
|
|
' Se macchina multicut il primo asse rotante restituito è quello della tavola
|
|
Dim vAng() As Double = {dR1, dR2, 0}
|
|
If bIsMultiCut Then
|
|
vAng(0) = 0
|
|
vAng(1) = dR1
|
|
vAng(2) = dR2
|
|
End If
|
|
' Se punto da laser
|
|
If PointModeCmBx.SelectedIndex = PT_MODE.LASER Then
|
|
' Imposto come testa corrente il laser (senza utensile ovviamente)
|
|
If Not EgtSetCalcTool("", "H3", 1) Then Return
|
|
' Trasformo in posizione punta utensile in basso
|
|
If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
|
|
' Ora imposto la lama corrente
|
|
If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
|
|
' Altrimenti da lama
|
|
Else
|
|
' Imposto la lama corrente
|
|
If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
|
|
' Trasformo in posizione punta utensile in basso
|
|
If Not EgtGetCalcTipFromPositions(dL1, dL2, dL3, vAng, True, m_ptTipP2) Then Return
|
|
End If
|
|
' Calcolo direzione asse lama
|
|
If Not EgtGetCalcToolDirFromAngles(dR1, dR2, m_vtToolP2) Then Return
|
|
' Porto il tip nell'origine tavola
|
|
m_ptTipP2.ToLoc(New Frame3d(m_ptTabOri))
|
|
m_bPointP2Ok = True
|
|
|
|
' Altrimenti da disegno
|
|
Else
|
|
' Assegno punto selezionato nel disegno a m_ptTipP2
|
|
m_ptTipP2 = m_ptPrev
|
|
' Porto il tip nell'origine tavola
|
|
m_ptTipP2.ToLoc(New Frame3d(m_ptTabOri))
|
|
m_bPointP2Ok = True
|
|
' Imposto la lama corrente
|
|
If Not EgtSetCalcTool(sSaw, "H1", 1) Then Return
|
|
End If
|
|
|
|
' Se il secondo punto non coincide con il primo, disegno il taglio
|
|
Dim vtDiff As Vector3d = m_ptTipP2 - m_ptTipP1
|
|
vtDiff.z = 0
|
|
Dim dLen As Double
|
|
Dim dAngVertDeg As Double
|
|
Dim dAngOrizzDeg As Double
|
|
vtDiff.ToSpherical(dLen, dAngVertDeg, dAngOrizzDeg)
|
|
If dLen > EPS_SMALL Then
|
|
m_dLen = dLen
|
|
LenghtTxBx.Text = LenToString(dLen, 1)
|
|
m_dAngO = dAngOrizzDeg
|
|
DirectionTxBx.Text = DoubleToString(m_dAngO - m_MainWindow.m_CurrentMachine.dDeltaC, 2)
|
|
CreateFlatteningCut()
|
|
' Disegno la macchina nella sua posizione reale
|
|
SetMachineInCurrPos()
|
|
m_MainWindow.m_DirectCutPageUC.m_bShowMachine = True
|
|
EgtSetMachineLook(m_MainWindow.m_DirectCutPageUC.m_nMachLook)
|
|
EgtDraw()
|
|
' Seleziono il bottone per indicare che il secondo punto è stato acquisito
|
|
Point2Btn.IsChecked = True
|
|
Else
|
|
Point1Btn_Click(sender, e)
|
|
' Deseleziono il bottone per indicare che il secondo punto non è stato acquisito perchè uguale al primo
|
|
Point2Btn.IsChecked = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DepthTxBx_EgtClosed(sender As Object, e As EventArgs) Handles DepthTxBx.EgtClosed
|
|
' Verifico che l'affondamento impostato non sia superiore a quello massimo
|
|
Dim dMaxDepth = m_ptRawMax.z - m_ptRawMin.z + m_MainWindow.m_CurrentMachine.MaxTabDepth
|
|
Dim dDepth As Double = 0
|
|
StringToLen(DepthTxBx.Text, dDepth)
|
|
If dDepth < 0 Then
|
|
m_dDepth = 0
|
|
ElseIf dDepth > dMaxDepth Then
|
|
m_dDepth = dMaxDepth
|
|
Else
|
|
m_dDepth = dDepth
|
|
End If
|
|
DepthTxBx.Text = LenToString(m_dDepth, 2)
|
|
' Disegno il taglio
|
|
CreateFlatteningCut()
|
|
SetMachineInCurrPos()
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
Private Sub LenghtTxBx_EgtClosed(sender As Object, e As EventArgs) Handles LenghtTxBx.EgtClosed
|
|
' Verifico che la lunghezza del taglio impostata non sia inferiore a quella minima
|
|
Dim dLenght As Double = 0
|
|
StringToLen(LenghtTxBx.Text, dLenght)
|
|
If dLenght < MIN_CUT_LEN Then
|
|
m_dLen = MIN_CUT_LEN
|
|
Else
|
|
m_dLen = dLenght
|
|
End If
|
|
LenghtTxBx.Text = LenToString(m_dLen, 2)
|
|
' Disegno il taglio
|
|
CreateFlatteningCut()
|
|
SetMachineInCurrPos()
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
Private Sub WidthTxBx_EgtClosed(sender As Object, e As EventArgs) Handles WidthTxBx.EgtClosed
|
|
' Recupero il valore di larghezza impostato
|
|
Dim dWidth As Double = 0
|
|
StringToLen(WidthTxBx.Text, dWidth)
|
|
' Recupero lo spessore della lama corrente
|
|
EgtTdbSetCurrTool(m_MainWindow.m_CurrentMachine.sCurrSaw)
|
|
Dim dThick As Double = GetFootPrintTool()
|
|
'EgtTdbGetCurrToolParam(MCH_TP.THICK, dThick)
|
|
' La larghezza della spianatura nono può essere inferiore allo spessore della lama
|
|
m_dWid = Math.Max(dWidth, dThick)
|
|
WidthTxBx.Text = LenToString(m_dWid, 2)
|
|
' Disegno il taglio
|
|
CreateFlatteningCut()
|
|
SetMachineInCurrPos()
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
Private Sub DirectionTxBx_EgtClosed(sender As Object, e As EventArgs) Handles DirectionTxBx.EgtClosed
|
|
' Assegno il nuovo valore di direzione
|
|
Dim dDirection As Double = 0
|
|
StringToDouble(DirectionTxBx.Text, dDirection)
|
|
dDirection += m_MainWindow.m_CurrentMachine.dDeltaC
|
|
m_dAngO = dDirection
|
|
' Dichiaro non più usato P2
|
|
m_bPointP2Ok = False
|
|
Point2Btn.IsChecked = False
|
|
' Disegno il taglio
|
|
CreateFlatteningCut()
|
|
SetMachineInCurrPos()
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
Private Sub OverlapTxBx_EgtClosed(sender As Object, e As EventArgs) Handles OverlapTxBx.EgtClosed
|
|
' Recupero spessore della lama correntemente attiva
|
|
Dim dThick As Double = GetFootPrintTool()
|
|
'EgtTdbGetCurrToolParam(MCH_TP.THICK, dThick)
|
|
' Verifico che la sovrapposizione non sia superiore allo spessore della lama (meno 1mm di offset)
|
|
Dim dOverlap As Double = 0
|
|
Const MIN_OFFSET As Double = 1.0
|
|
StringToLen(OverlapTxBx.Text, dOverlap)
|
|
If dOverlap < 0 Then
|
|
m_dOverlap = 0
|
|
ElseIf dOverlap > dThick - MIN_OFFSET Then
|
|
m_dOverlap = dThick - MIN_OFFSET
|
|
Else
|
|
m_dOverlap = dOverlap
|
|
End If
|
|
OverlapTxBx.Text = LenToString(m_dOverlap, 2)
|
|
' Disegno il taglio
|
|
CreateFlatteningCut()
|
|
SetMachineInCurrPos()
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
Private Sub ZReleasedTxBx_EgtClosed(sender As Object, e As EventArgs) Handles ZReleasedTxBx.EgtClosed
|
|
Dim dSafeZ As Double = 0
|
|
StringToLen(ZReleasedTxBx.Text, dSafeZ)
|
|
m_dZReleased = dSafeZ
|
|
EgtMdbSetGeneralParam(MCH_GP.SAFEZ, dSafeZ)
|
|
'EgtMdbSave()
|
|
' Disegno il taglio
|
|
CreateFlatteningCut()
|
|
SetMachineInCurrPos()
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
Private Sub SideChBx_Click(sender As Object, e As EventArgs) Handles SideChBx.Click
|
|
m_bHeadSide = SideChBx.IsChecked
|
|
' Disegno il taglio
|
|
CreateFlatteningCut()
|
|
SetMachineInCurrPos()
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
Private Sub TypeCmBx_SelectionChanged(sender As Object, e As EventArgs) Handles TypeCmBx.SelectionChanged
|
|
m_nMachType = TypeCmBx.SelectedIndex
|
|
' Disegno il taglio
|
|
CreateFlatteningCut()
|
|
SetMachineInCurrPos()
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
Private Sub SelToolCmBx_SelectionChanged(sender As Object, e As EventArgs) Handles SelToolCmBx.SelectionChanged
|
|
m_nTool = SelToolCmBx.SelectedIndex
|
|
' Disabilito il concatenamento
|
|
ChainedPathChBx.IsEnabled = (m_nTool = TOOL.MILL)
|
|
' Disegno il taglio
|
|
CreateFlatteningCut()
|
|
SetMachineInCurrPos()
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
Private Sub RotLockChBx_Click(sender As Object, e As EventArgs) Handles RotLockChBx.Click
|
|
m_bRotLock = RotLockChBx.IsChecked
|
|
' Disegno il taglio
|
|
CreateFlatteningCut()
|
|
SetMachineInCurrPos()
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
Private Sub ChainedPathChBx_Click(sender As Object, e As EventArgs) Handles ChainedPathChBx.Click
|
|
m_bChainedPath = ChainedPathChBx.IsChecked
|
|
' Disegno il taglio
|
|
CreateFlatteningCut()
|
|
SetMachineInCurrPos()
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
Private Sub XcoordTxBx_EgtClosed(sender As Object, e As EventArgs) Handles XcoordTxBx.EgtClosed
|
|
' Recupero il valore della coordinata (in 0 Tab)
|
|
Dim dXcoord As Double = 0
|
|
StringToLen(XcoordTxBx.Text, dXcoord)
|
|
XcoordTxBx.Text = LenToString(dXcoord, 2)
|
|
' lo assegno al punto corrente (in 0 Macc)
|
|
m_ptPrev.x = dXcoord + m_ptTabOri.x
|
|
' Rimuovo eventuali crocette create acquisendo i punti nel disegno
|
|
EgtEmptyGroup(m_nTempLay)
|
|
' Disegno crocetta che indica il punto acquisito
|
|
CreateCross(m_nTempLay, m_ptPrev)
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
Private Sub YcoordTxBx_EgtClosed(sender As Object, e As EventArgs) Handles YcoordTxBx.EgtClosed
|
|
' Recupero il valore della coordinata (in 0 Tab)
|
|
Dim dYcoord As Double = 0
|
|
StringToLen(YcoordTxBx.Text, dYcoord)
|
|
YcoordTxBx.Text = LenToString(dYcoord, 2)
|
|
' lo assegno al punto corrente (in 0 Macc)
|
|
m_ptPrev.y = dYcoord + m_ptTabOri.y
|
|
' Rimuovo eventuali crocette create acquisendo i punti nel disegno
|
|
EgtEmptyGroup(m_nTempLay)
|
|
' Disegno crocetta che indica il punto acquisito
|
|
CreateCross(m_nTempLay, m_ptPrev)
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
Private Sub SimulBtn_Click(sender As Object, e As RoutedEventArgs) Handles SimulBtn.Click
|
|
' Verifico ci sia un taglio valido
|
|
If Not m_bCutOk Then Return
|
|
' Salvo il progetto con le lavorazioni
|
|
EgtSetCurrentContext(m_CurrProjPage.CurrentProjectScene.GetCtx())
|
|
Dim sMchPath As String = m_MainWindow.GetTempDir() & "\" & "DirectProj.nge"
|
|
m_MainWindow.m_CurrentProjectPageUC.SaveFile(sMchPath, False)
|
|
' Predispongo passaggio a simulazione
|
|
m_bSimul = True
|
|
m_CurrProjPage.m_SceneButtons.MeasureBtn.IsChecked = False
|
|
m_CurrProjPage.CurrProjGrid.Visibility = Windows.Visibility.Hidden
|
|
m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.LeftButtonGrid.Children.Remove(Me)
|
|
m_CurrProjPage.CurrentProjectPageGrid.Children.Remove(m_MainWindow.m_DirectCutPageUC)
|
|
m_MainWindow.m_PrevActivePage = MainWindow.Pages.DirectCut
|
|
m_CurrProjPage.CurrentProjectPageGrid.Children.Add(m_MainWindow.m_SimulationPage)
|
|
m_MainWindow.m_ActivePage = MainWindow.Pages.Simulation
|
|
End Sub
|
|
|
|
Private Sub OkBtn_Click(sender As Object, e As RoutedEventArgs) Handles OkBtn.Click
|
|
#If TRIAL Then
|
|
m_CurrProjPage.SetWarningMessage("Trial Version")
|
|
#Else
|
|
' Verifico non sia versione Ufficio
|
|
If m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.OFFICE_TYPE) Then
|
|
m_CurrProjPage.SetWarningMessage("Office Version")
|
|
Return
|
|
End If
|
|
' Verifico ci sia un taglio valido
|
|
If Not m_bCutOk Then Return
|
|
' Salvo il progetto con le lavorazioni
|
|
Dim sMchPath As String = m_MainWindow.GetTempDir() & "\" & "DirectProj.nge"
|
|
m_MainWindow.m_CurrentProjectPageUC.SaveFile(sMchPath, False)
|
|
' Genero file CNC (lancio anche se errore in precedenza)
|
|
Dim sCncPath As String = m_MainWindow.GetCncDir() & "\DirectCut" & m_MainWindow.m_CurrentMachine.sIsoFileExt
|
|
Dim bOk As Boolean = EgtGenerate(sCncPath, "OmagCut ver." & m_MainWindow.GetVersion())
|
|
' Se errore in generazione, segnalo l'errore ed esco
|
|
If Not bOk Then
|
|
m_CurrProjPage.SetErrorMessage(EgtMsg(90314)) 'Errore nella generazione del programma CN
|
|
Return
|
|
End If
|
|
Dim sNameProg As Integer = 900
|
|
sNameProg = GetPrivateProfileInt(S_PARTPROGRAM, "NameProg", sNameProg, m_MainWindow.GetMachIniFile)
|
|
' Download programma (eventuali errori sono segnalati dalla funzione)
|
|
If m_MainWindow.m_CNCommunication.SendProgram(sCncPath, sNameProg) Then
|
|
' copio il progetto corrente come progetto in lavorazione
|
|
Dim sWrkPath As String = m_MainWindow.GetTempDir() & "\" & "WorkProj.nge"
|
|
My.Computer.FileSystem.CopyFile(sMchPath, sWrkPath, True)
|
|
' lancio eventuale lua post-trasmissione
|
|
m_MainWindow.ExecSentProgScript(True)
|
|
End If
|
|
#End If
|
|
End Sub
|
|
|
|
Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs) Handles ExitBtn.Click
|
|
EgtMdbSetGeneralParam(MCH_GP.SAFEZ, DirectCutPageUC.m_dZSafe)
|
|
EgtMdbSave()
|
|
m_MainWindow.m_DirectCutPageUC.m_ControlsDirectCutUC.LeftButtonGrid.Children.Remove(Me)
|
|
End Sub
|
|
|
|
' ricavo l'ingombro di lavorazione in funzione dell'utensile selezionato
|
|
Private Function GetFootPrintTool() As Double
|
|
' vedere nella pagina Allarm il capito "Incisioni"
|
|
Dim bForceUseMill As Boolean = (m_nTool = TOOL.MILL)
|
|
Dim dFootPrint As Double = 0
|
|
' verifico quale lavorazione è attiva
|
|
If Not String.IsNullOrEmpty(m_MainWindow.m_CurrentMachine.sCurrSawing) AndAlso Not bForceUseMill Then
|
|
Dim bSetTool As Boolean = EgtTdbSetCurrTool(m_MainWindow.m_CurrentMachine.sCurrSaw)
|
|
If Not bSetTool Then EgtOutLog("Erro nel settaggio utensile lama " & m_MainWindow.m_CurrentMachine.sCurrSaw)
|
|
EgtTdbGetCurrToolParam(MCH_TP.THICK, dFootPrint)
|
|
ElseIf Not String.IsNullOrEmpty(m_MainWindow.m_CurrentMachine.sCurrMilling) Then
|
|
Dim sCurrMill = m_MainWindow.m_CurrentMachine.sCurrMill
|
|
'GetDrillFromDrilling(sCurrMill, m_MainWindow.m_CurrentMachine.sCurrMilling)
|
|
GetMillFromMilling(sCurrMill, m_MainWindow.m_CurrentMachine.sCurrMilling)
|
|
' recupero informazioni della fresa in uso
|
|
EgtTdbSetCurrTool(sCurrMill)
|
|
EgtTdbGetCurrToolParam(MCH_TP.DIAM, dFootPrint)
|
|
End If
|
|
Return dFootPrint
|
|
End Function
|
|
|
|
Private Function CreateFlatteningCut() As Boolean
|
|
' Verifico sia definito il punto iniziale e il grezzo
|
|
If Not m_bPointP1Ok Or Not m_bRawOk Then
|
|
m_bCutOk = False
|
|
Return False
|
|
End If
|
|
' Spessore grezzo
|
|
Dim dRawHeight As Double = m_ptRawMax.z - m_ptRawMin.z
|
|
' Rimuovo eventuale vecchio pezzo per taglio diretto
|
|
EraseDirectCutPart()
|
|
' Disattivo eventuali lavorazioni presenti
|
|
DeactivateAllMachinings()
|
|
' Creo nuovo pezzo per il taglio diretto
|
|
Dim nPartId = EgtCreateGroup(GDB_ID.ROOT)
|
|
EgtSetName(nPartId, NAME_DIRECTCUT)
|
|
Dim nLayerId = EgtCreateGroup(nPartId)
|
|
' EgtSetName(nLayerId, NAME_OUTLOOP)
|
|
EgtSetName(nLayerId, NAME_ONPATH)
|
|
' Creo il taglio
|
|
Dim ptStart As Point3d = m_ptTipP1
|
|
ptStart.z = 0
|
|
Dim nCutId = EgtCreateLinePDL(nLayerId, ptStart, m_dAngO, m_dLen)
|
|
' Inidico che è un taglio Diretto di tipo Flattening
|
|
EgtSetInfo(nCutId, INFO_DIRECTCUT, FlagDirectCuts.Flattening)
|
|
' Imposto affondamento e angolo di fianco sul taglio
|
|
EgtSetInfo(nCutId, INFO_DEPTH, m_dDepth)
|
|
If (m_nTool = TOOL.MILL) Then
|
|
EgtSetInfo(nCutId, INFO_WIDTH, GetFootPrintTool)
|
|
End If
|
|
EgtSetInfo(nCutId, INFO_SIDE_ANGLE, 0)
|
|
' Imposto prima direzione
|
|
EgtSetInfo(nCutId, INFO_DIR, 1)
|
|
' Imposto se iniziare la fresatura dal punto indicato
|
|
Dim bReducePath As Boolean = Not GetPrivateProfileInt(S_MACH_NEST, K_MACH_STARTCENERTOOLPATH, 0, m_MainWindow.GetMachIniFile()) <> 0
|
|
If Not bReducePath Then EgtSetInfo(nCutId, INFO_STRICT, 0)
|
|
|
|
' Eventuale bloccaggio rotazione asse C tra le passate
|
|
If RotLockChBx.IsChecked Then
|
|
EgtSetInfo(nCutId, INFO_ENABLE_INVERT, False)
|
|
End If
|
|
EgtSetInfo(nCutId, INFO_STEP_TYPE, m_nMachType)
|
|
' Funzione che crea i tagli successivi al primo
|
|
MultiplyCut(nLayerId, nCutId)
|
|
' Creo layer per crocetta di riferimento
|
|
Dim nCrossLayerId = EgtCreateGroup(nPartId)
|
|
' Aggiungo crocetta/e
|
|
If m_bPointP1Ok Then
|
|
CreateCross(nCrossLayerId, ptStart)
|
|
End If
|
|
If m_bPointP2Ok Then
|
|
Dim ptEnd As Point3d = m_ptTipP2
|
|
ptEnd.z = 0
|
|
CreateCross(nCrossLayerId, ptEnd)
|
|
End If
|
|
' Calcolo punto di inserimento nel grezzo
|
|
Dim ptMin, ptMax As Point3d
|
|
EgtGetBBoxGlob(nPartId, GDB_BB.STANDARD, ptMin, ptMax)
|
|
Dim ptIns As Point3d = ptMin + (m_ptTabOri - m_ptRawMin)
|
|
ptIns.z = dRawHeight
|
|
' Inserisco il pezzo nel grezzo
|
|
EgtAddPartToRawPart(nPartId, ptIns, m_MainWindow.m_CurrentProjectPageUC.m_nRawId)
|
|
' Inserisco la lavorazione
|
|
m_bCutOk = AddMachinings(nPartId) AndAlso UpdateAllMachiningsToolpaths()
|
|
EgtSetCurrPhase(1)
|
|
' Eventuale eliminazione Home finale
|
|
If Not m_MainWindow.m_CurrentMachine.bDirectCutsFinalHome Then
|
|
RemoveFinalHome()
|
|
End If
|
|
UpdateSimulOkBtn()
|
|
Return m_bCutOk
|
|
End Function
|
|
|
|
Private Function MultiplyCut(nLayerId As Integer, nCutId As Integer) As Boolean
|
|
Dim bEngWithMill As Boolean = (m_nTool = TOOL.MILL)
|
|
Dim bReducePath As Boolean = Not GetPrivateProfileInt(S_MACH_NEST, K_MACH_STARTCENERTOOLPATH, 0, m_MainWindow.GetMachIniFile()) <> 0
|
|
|
|
' Recupero spessore della lama (utensile) correntemente attiva
|
|
Dim dThick As Double = GetFootPrintTool()
|
|
If dThick = 0 Then Return False
|
|
|
|
' Salvo la prima curva nella lista dei percorsi da concatenare
|
|
Dim CutsList As New List(Of Integer)
|
|
CutsList.Add(nCutId)
|
|
|
|
' Imposto angolo di rotazione a seconda del lato dei tagli
|
|
Dim dRotAngO As Double = If(SideChBx.IsChecked(), -90, 90)
|
|
' Definisco vettore di spostamento
|
|
Dim vtDelta As Vector3d
|
|
vtDelta = Vector3d.FromPolar(1, m_dAngO)
|
|
vtDelta.Rotate(Vector3d.Z_AX, dRotAngO)
|
|
|
|
' Calcolo numero di iterazioni necessarie a coprire l'area impostata e lunghezza vettore delta
|
|
Dim nStepNum As Integer
|
|
Dim dDelta As Double
|
|
Dim dWidth As Double = m_dWid
|
|
dDelta = dThick - m_dOverlap
|
|
dWidth -= dThick
|
|
nStepNum = CInt(Math.Ceiling(dWidth / dDelta)) + 1
|
|
If nStepNum > 1 Then
|
|
dDelta = dWidth / (nStepNum - 1)
|
|
End If
|
|
' definisco la larghezza dell'utensile (solo per la fresa)
|
|
EgtSetInfo(nCutId, INFO_WIDTH, dThick)
|
|
' definisco il tipo di utensile da utilizzare
|
|
EgtSetInfo(nCutId, "EngravingWithMill", m_nTool)
|
|
' Creo vettore delta
|
|
vtDelta *= dDelta
|
|
' Creo indice per impostare info che indica tipologia di spianatura
|
|
Dim nTypeIndex As Integer = 1
|
|
For Index As Integer = 1 To nStepNum - 1
|
|
Dim vtPerpMove As Vector3d = Index * vtDelta
|
|
' Creo copie
|
|
Dim nCut2Id = EgtCopyGlob(nCutId, nLayerId)
|
|
EgtSetInfo(nCut2Id, INFO_WIDTH, dThick)
|
|
EgtSetInfo(nCutId, "EngravingWithMill", m_nTool)
|
|
' Assegno info direzione a seconda del tipo di spianatura
|
|
If TypeCmBx.SelectedIndex = MACH_TYPE.ZIGZAG Then
|
|
If nTypeIndex = 1 Then
|
|
EgtSetInfo(nCut2Id, INFO_DIR, 2)
|
|
nTypeIndex = 2
|
|
Else
|
|
EgtSetInfo(nCut2Id, INFO_DIR, 1)
|
|
nTypeIndex = 1
|
|
End If
|
|
Else
|
|
EgtSetInfo(nCut2Id, INFO_DIR, 1)
|
|
End If
|
|
EgtMove(nCut2Id, vtPerpMove, GDB_RT.GLOB)
|
|
|
|
' ----------------------- CREO SEGMENTI PER CONCATENAMENTO CURVE -----------------------
|
|
If m_bChainedPath And bEngWithMill Then
|
|
If bReducePath Then
|
|
If Index < nStepNum - 1 Then
|
|
ExtendLenghtMillPath(nCut2Id, -dThick / 2)
|
|
ElseIf Index = nStepNum - 1 Then
|
|
If nStepNum Mod 2 = 0 Then
|
|
ExtendLenghtMillPath(nCut2Id, -dThick / 2, False, True)
|
|
Else
|
|
ExtendLenghtMillPath(nCut2Id, -dThick / 2, True, False)
|
|
End If
|
|
End If
|
|
End If
|
|
CutsList.Add(nCut2Id)
|
|
End If
|
|
' ----------------------- CREO SEGMENTI PER CONCATENAMENTO CURVE -----------------------
|
|
|
|
Next
|
|
|
|
' ----------------------- CREO UN UNICO PERCORSO CONCATENATO -----------------------
|
|
If m_bChainedPath And bEngWithMill Then
|
|
' Decidere se accorciare i tagli del valore del raggio utensile!
|
|
If bReducePath Then
|
|
ExtendLenghtMillPath(CutsList(0), -dThick / 2, False, True)
|
|
End If
|
|
For Index As Integer = 0 To CutsList.Count - 2
|
|
If Index Mod 2 <> 0 Then
|
|
' Costruisco la linea di collegamento tra due curve adiacenti
|
|
Dim PtStart_1 As Point3d
|
|
EgtStartPoint(CutsList(Index), GDB_RT.GLOB, PtStart_1)
|
|
Dim PtStart_2 As Point3d
|
|
EgtStartPoint(CutsList(Index + 1), GDB_RT.GLOB, PtStart_2)
|
|
CutsList.Add(EgtCreateLine(nLayerId, PtStart_1, PtStart_2))
|
|
Else
|
|
' Costruisco la linea di collegamento tra due curve adiacenti
|
|
Dim PtStart_1 As Point3d
|
|
EgtEndPoint(CutsList(Index), GDB_RT.GLOB, PtStart_1)
|
|
Dim PtStart_2 As Point3d
|
|
EgtEndPoint(CutsList(Index + 1), GDB_RT.GLOB, PtStart_2)
|
|
CutsList.Add(EgtCreateLine(nLayerId, PtStart_1, PtStart_2))
|
|
End If
|
|
Next
|
|
Dim ptNear As Point3d
|
|
EgtStartPoint(CutsList(0), ptNear)
|
|
Dim IdJointCurv As Integer = EgtCreateCurveCompoByChain(nLayerId, CutsList.ToArray, ptNear, True)
|
|
' Inidico che è un taglio Diretto di tipo Flattening
|
|
EgtSetInfo(IdJointCurv, INFO_DIRECTCUT, FlagDirectCuts.Flattening)
|
|
EgtSetInfo(IdJointCurv, INFO_STEP_TYPE, m_nMachType)
|
|
EgtSetInfo(IdJointCurv, INFO_WIDTH, dThick)
|
|
' Se unisco il percorso devo per forza usare la fresa!
|
|
EgtSetInfo(IdJointCurv, "EngravingWithMill", 1)
|
|
If Not bReducePath Then EgtSetInfo(IdJointCurv, INFO_STRICT, 0)
|
|
End If
|
|
' ----------------------- CREO UN UNICO PERCORSO CONCATENATO -----------------------
|
|
|
|
Return True
|
|
End Function
|
|
|
|
Private Sub ExtendLenghtMillPath(ByVal IdCurv As Integer, ByVal ReduceVal As Double,
|
|
ByVal Optional bStart As Boolean = True, ByVal Optional bEnd As Boolean = True)
|
|
Dim PtStart As Point3d
|
|
EgtStartPoint(IdCurv, GDB_RT.GLOB, PtStart)
|
|
Dim PtEnd As Point3d
|
|
EgtEndPoint(IdCurv, GDB_RT.GLOB, PtEnd)
|
|
If bStart Then EgtTrimExtendCurveByLen(IdCurv, ReduceVal, PtStart, GDB_RT.GLOB)
|
|
If bEnd Then EgtTrimExtendCurveByLen(IdCurv, ReduceVal, PtEnd, GDB_RT.GLOB)
|
|
Dim dLenLine As Double
|
|
EgtCurveLength(IdCurv, dLenLine)
|
|
EgtOutLog("Lunghezza segmento ridotto: " & dLenLine.ToString)
|
|
End Sub
|
|
|
|
Private Function CreateCross(nLayerId As Integer, ptP As Point3d) As Boolean
|
|
' Aggiungo crocette
|
|
Dim vtCrossX As New Vector3d(20, 0, 0)
|
|
Dim vtCrossY As New Vector3d(0, 20, 0)
|
|
Dim nCrossId1 = EgtCreateLine(nLayerId, ptP + (-vtCrossX), ptP + vtCrossX)
|
|
EgtSetColor(nCrossId1, New Color3d(255, 0, 0))
|
|
Dim nCrossId2 = EgtCreateLine(nLayerId, ptP + (-vtCrossY), ptP + vtCrossY)
|
|
EgtSetColor(nCrossId2, New Color3d(255, 0, 0))
|
|
Return True
|
|
End Function
|
|
|
|
Private Sub SetCoordVisibility(bShow As Boolean)
|
|
XcoordTxBl.Visibility = If(bShow, Windows.Visibility.Visible, Windows.Visibility.Hidden)
|
|
XcoordTxBx.Visibility = If(bShow, Windows.Visibility.Visible, Windows.Visibility.Hidden)
|
|
YcoordTxBl.Visibility = If(bShow, Windows.Visibility.Visible, Windows.Visibility.Hidden)
|
|
YcoordTxBx.Visibility = If(bShow, Windows.Visibility.Visible, Windows.Visibility.Hidden)
|
|
End Sub
|
|
|
|
Private Sub ShowCoord()
|
|
Dim ptText As Point3d = m_ptPrev
|
|
ptText.ToLoc(New Frame3d(m_ptTabOri))
|
|
XcoordTxBx.Text = LenToString(ptText.x, 2)
|
|
YcoordTxBx.Text = LenToString(ptText.y, 2)
|
|
End Sub
|
|
|
|
Private Function SetMachineInCurrPos() As Boolean
|
|
' Recupero la posizione macchina
|
|
Dim dL1, dL2, dL3, dR1, dR2 As Double
|
|
If Not m_MainWindow.m_CNCommunication.GetAxesPositions(dL1, dL2, dL3, dR1, dR2) Then Return False
|
|
' Recupero il nome degli assi macchina
|
|
Dim sL1 As String = String.Empty
|
|
Dim sL2 As String = String.Empty
|
|
Dim sL3 As String = String.Empty
|
|
Dim sR1 As String = String.Empty
|
|
Dim sR2 As String = String.Empty
|
|
If Not m_MainWindow.m_CNCommunication.GetAxesNames(sL1, sL2, sL3, sR1, sR2) Then Return False
|
|
' Visualizzo macchina in posizione
|
|
EgtSetAxisPos(sL1, dL1)
|
|
EgtSetAxisPos(sL2, dL2)
|
|
EgtSetAxisPos(sL3, dL3)
|
|
EgtSetAxisPos(sR1, dR1)
|
|
EgtSetAxisPos(sR2, dR2)
|
|
Return True
|
|
End Function
|
|
|
|
End Class |