diff --git a/DirectCuts/FlatteningCut.xaml.vb b/DirectCuts/FlatteningCut.xaml.vb index edac4ea..290a056 100644 --- a/DirectCuts/FlatteningCut.xaml.vb +++ b/DirectCuts/FlatteningCut.xaml.vb @@ -407,6 +407,7 @@ Public Class FlatteningCut 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 @@ -727,17 +728,20 @@ Public Class FlatteningCut Dim nCutId = EgtCreateLinePDL(nLayerId, ptStart, m_dAngO, m_dLen) ' -- APPLICO OFFSET AI TAGLI -- And PointModeCmBx.SelectedIndex = PT_MODE.SAW - If m_nTool = TOOL.SAW Then + If m_nTool = TOOL.SAW And PointModeCmBx.SelectedIndex = PT_MODE.SAW Then ' Applico un offset al taglio: Dim vtOffs As New Vector3d EgtStartVector(nCutId, GDB_RT.GLOB, vtOffs) vtOffs.Rotate(Vector3d.Z_AX, 90) Dim SawThick As Double = GetFootPrintTool() - Dim DirOffs As Double = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_FLATT_SAWTH, 0, m_MainWindow.GetMachIniFile) + Dim DirOffs As Double = GetPrivateProfileDouble(S_DIRECTCUTS, K_DC_FLATT_SAWTH, 0, m_MainWindow.GetIniFile) + Dim vtNormTool As Vector3d = m_vtToolP1 + vtNormTool.Normalize() + EgtOutLog("Offset flattening: " & DirOffs.ToString & "*" & SawThick.ToString) If DirOffs <> 0 Then EgtMove(nCutId, vtOffs * DirOffs * SawThick, GDB_RT.GLOB) End If - EgtSetInfo(nCutId, INFO_DIRECTCUT, 1) + EgtSetInfo(nCutId, INFO_DIRECTCUT, 1) ' Imposto affondamento e angolo di fianco sul taglio EgtSetInfo(nCutId, INFO_DEPTH, m_dDepth) If (m_nTool = TOOL.MILL) Then