-- Strategia: HEADCUT -- Descrizione -- HeadCut -- Feature: HeadCut --------------------------------------------------------------------------------------------------------- -- TODO: SPLITCUT è una funzione di base e si occupa di fare lo split, cioè considernado come se la trave fosse molto lunga e motore non interferisce mai -- HEADCUT è figlia della TAILCUT. Le due strategie sono identiche in caso di rimozione del grezzo in eccesso. La TAILCUT ha in più la gestione dello split -- Decidere se lasciare HEADCUT e TAILCUT divise, oppure se uniformarle e chiamare una o l'altra in base alla feature alla quale sono applicate. --------------------------------------------------------------------------------------------------------- -- carico librerie local BeamLib = require( 'BeamLib') local BeamData = require( 'BeamData') local MachiningLib = require( 'MachiningLib') local FeatureLib = require( 'FeatureLib') -- strategie di base local FaceByBlade = require('FACEBYBLADE') -- Tabella per definizione modulo local HEADCUT = {} local Strategy = {} ------------------------------------------------------------------------------------------------------------- local function LoadStrategyParameters( Proc, CustomParameters) local StrategyLib = {} StrategyLib.Config = STRATEGIES_CONFIG[CustomParameters.sStrategyId] Strategy.sName = StrategyLib.Config.sStrategyId Strategy.Parameters = BeamLib.LoadCustomParametersInStrategy( Proc, CustomParameters, StrategyLib.Config) Strategy.Result = {} Strategy.Machining = {} Strategy.Result.sInfo = '' return Strategy end ------------------------------------------------------------------------------------------------------------- local function MakeChamfer() -- TODO funzionalità da aggiungere end ------------------------------------------------------------------------------------------------------------- local function GetEdgeToMachine( Proc, vtEdge) local Edge for i = 1, #Proc.Faces[1].Edges do if AreSameVectorApprox( Proc.Faces[1].Edges[i].vtN, vtEdge) then Edge = Proc.Faces[1].Edges[i] end end return Edge end ------------------------------------------------------------------------------------------------------------- local function GetSplitStrategy( Proc, Part) -- se non sono stati caricati i parametri, si ricaricano if not Strategy.Parameters then Strategy = LoadStrategyParameters( Proc, _) end -- separazione solo se esiste grezzo successivo con pezzi o scaricabile local nNextRawId = EgtGetNextRawPart( Part.idRaw) Strategy.bSplit = ( nNextRawId and ( EgtGetPartInRawPartCount( nNextRawId) > 0 or EgtGetRawPartBBox( nNextRawId):getDimX() >= BeamData.dMinRaw)) -- imposto paraemtri di ricerca utensile in base a topologia local Machining = {} -- sTypeMachining = BladeSideSingle\ BladeSideDouble\ BladeHorizontalSingle\ BladeHorizontalDouble\ ChainSawHorizontal\ ChainSawSideSingle\ ChainSawSideDouble\ ChainSawPlusBlade\ Mill\ None Machining.sTypeMachining = 'None' local Splitting = {} local ToolSearchParameters = {} ToolSearchParameters.vtN = Proc.Faces[1].vtN -- ===== RICERCA UTENSILE ===== -- cerco lama sopra Splitting.bIsApplicable = false ToolSearchParameters.bAllowTopHead = true ToolSearchParameters.bAllowBottomHead = false Splitting.ToolInfo = {} Splitting.ToolInfo = MachiningLib.FindBlade( Proc, ToolSearchParameters) if Splitting.ToolInfo.nToolIndex then Splitting.bIsApplicable = true local ParametersMRR = {} ParametersMRR.nToolIndex = Splitting.ToolInfo.nToolIndex Splitting.dMRR = MachiningLib.GetToolMRR( ParametersMRR) end table.insert( Machining, Splitting) -- cerco lama sotto Splitting = {} Splitting.bIsApplicable = false ToolSearchParameters.bAllowTopHead = false ToolSearchParameters.bAllowBottomHead = true Splitting.ToolInfo = {} Splitting.ToolInfo = MachiningLib.FindBlade( Proc, ToolSearchParameters) if Splitting.ToolInfo.nToolIndex then Splitting.bIsApplicable = true local ParametersMRR = {} ParametersMRR.nToolIndex = Splitting.ToolInfo.nToolIndex Splitting.dMRR = MachiningLib.GetToolMRR( ParametersMRR) end table.insert( Machining, Splitting) -- cerco motosega Splitting = {} Splitting.bIsApplicable = false table.insert( Machining, Splitting) -- cerco fresa Splitting = {} Splitting.bIsApplicable = false table.insert( Machining, Splitting) -- ===== SCELTA LAVORAZIONI ===== -- forzature da parametri if Strategy.Parameters.bForceChainSaw then Machining[1].bIsApplicable = false Machining[2].bIsApplicable = false end -- setto valori di default. Impossibile che taglio di separazione sia incompleto Strategy.Result.sStatus = 'Completed' Strategy.Result.nCompletionIndex = FeatureLib.GetFeatureCompletionIndex( 100) Strategy.Result.dMRR = 1 -- correzioni sul massimo materiale lama, considerando ingombri vari local dMaxMatBladeSideSingle local dMaxMatBladeSideDouble local dMaxMatBladeHorizontalSingle local dMaxMatBladeHorizontalDouble if Machining[1].bIsApplicable then local dMaxMat = TOOLS[Machining[1].ToolInfo.nToolIndex].dMaxMaterial local dRadius = TOOLS[Machining[1].ToolInfo.nToolIndex].dDiameter / 2 local sHead = TOOLS[Machining[1].ToolInfo.nToolIndex].sHead -- se taglio di fianco disponibile, si controlla il massimo materiale reale. Per pezzi alti, bisogna controllare anche l'ingombro asse Z nelle 4 direzioni. if Part.dHeight < BeamData.MIN_DIM_HBEAM then dMaxMat = min( dMaxMat, BeamData.MAX_DIM_HTCUT) dMaxMatBladeSideSingle = dMaxMat dMaxMatBladeSideDouble = dMaxMat * 2 else if BeamData.GetMaxMatReductionBladeCut then dMaxMatBladeSideSingle = min( max( dRadius - BeamData.GetMaxMatReductionBladeCut( sHead, Y_AX()), dRadius - BeamData.GetMaxMatReductionBladeCut( sHead, -Y_AX())), TOOLS[Machining[1].ToolInfo.nToolIndex].dMaxMaterial) dMaxMatBladeSideDouble = dRadius - BeamData.GetMaxMatReductionBladeCut( sHead, Y_AX()) + dRadius - BeamData.GetMaxMatReductionBladeCut( sHead, -Y_AX()) else dMaxMatBladeSideSingle = abs( BeamData.MAX_DIM_HTCUT_HBEAM) dMaxMatBladeSideDouble = abs( BeamData.MAX_DIM_HTCUT_HBEAM) * 2 end end -- se taglio orizzontale if BeamData.GetMaxMatReductionBladeCut then dMaxMatBladeHorizontalSingle = min( TOOLS[Machining[1].ToolInfo.nToolIndex].dMaxMaterial, dRadius - BeamData.GetMaxMatReductionBladeCut( TOOLS[Machining[1].ToolInfo.nToolIndex].sHead, -Z_AX())) else dMaxMatBladeHorizontalSingle = TOOLS[Machining[1].ToolInfo.nToolIndex].dMaxMaterial end end if Machining[2].bIsApplicable then if BeamData.GetMaxMatReductionBladeCut then local dRadius = TOOLS[Machining[2].ToolInfo.nToolIndex].dDiameter / 2 dMaxMatBladeHorizontalDouble = min( TOOLS[Machining[2].ToolInfo.nToolIndex].dMaxMaterial, dRadius - BeamData.GetMaxMatReductionBladeCut( TOOLS[Machining[2].ToolInfo.nToolIndex].sHead, Z_AX())) else dMaxMatBladeHorizontalDouble = TOOLS[Machining[2].ToolInfo.nToolIndex].dMaxMaterial end end -- TODO considerare di tagliare con il massimo materiale possibile per non salire troppo in Z (macchine tipo PF), oppure non scendere troppo (tipo Kairos) -- BladeSideSingle (taglio di lama singolo di fianco) if Machining[1].bIsApplicable and ( dMaxMatBladeSideSingle - BeamData.CUT_EXTRA) > Part.dWidth + 10 * GEO.EPS_SMALL then Strategy.Result.nQuality = TOOLS[Machining[1].ToolInfo.nToolIndex].nQuality Machining.sTypeMachining = 'BladeSideSingle' Machining[2].bIsApplicable = false Machining[3].bIsApplicable = false Machining[4].bIsApplicable = false return Machining -- TODO considerare di tagliare con il massimo materiale possibile per non salire troppo in Z (macchine tipo PF), oppure non scendere troppo (tipo Kairos) -- BladeSideDouble (taglio di lama doppio di fianco) elseif Machining[1].bIsApplicable and ( dMaxMatBladeSideDouble - BeamData.CUT_EXTRA) > Part.dWidth + 10 * GEO.EPS_SMALL then Strategy.Result.nQuality = TOOLS[Machining[1].ToolInfo.nToolIndex].nQuality Strategy.Result.dMRR = Strategy.Result.dMRR/2 Machining.sTypeMachining = 'BladeSideDouble' Machining[2].bIsApplicable = false Machining[3].bIsApplicable = false Machining[4].bIsApplicable = false return Machining -- BladeHorizontalSingle (taglio di lama singolo orizzontale) elseif Machining[1].bIsApplicable and ( dMaxMatBladeHorizontalSingle - BeamData.CUT_EXTRA) > Part.dHeight + 10 * GEO.EPS_SMALL then Strategy.Result.nQuality = TOOLS[Machining[1].ToolInfo.nToolIndex].nQuality Machining.sTypeMachining = 'BladeHorizontalSingle' Machining[2].bIsApplicable = false Machining[3].bIsApplicable = false Machining[4].bIsApplicable = false return Machining -- BladeHorizontalDouble (taglio di lama doppio orizzontale) elseif Machining[1].bIsApplicable and Machining[2].bIsApplicable and ( dMaxMatBladeHorizontalSingle + dMaxMatBladeHorizontalDouble - BeamData.CUT_EXTRA) > Part.dHeight + 10 * GEO.EPS_SMALL then Strategy.Result.nQuality = 0.5 * TOOLS[Machining[1].ToolInfo.nToolIndex].nQuality + 0.5 * TOOLS[Machining[2].ToolInfo.nToolIndex].nQuality Strategy.Result.dMRR = Strategy.Result.dMRR/2 Machining.sTypeMachining = 'BladeHorizontalDouble' Machining[1].ToolInfo.dMaxMatBladeFromTop = dMaxMatBladeHorizontalSingle Machining[2].ToolInfo.dMaxMatBladeFromDown = dMaxMatBladeHorizontalDouble Machining[3].bIsApplicable = false Machining[4].bIsApplicable = false return Machining -- TODO : casi con motosega da completare -- ChainSawHorizontal (motosega) -- ChainSawSideSingle (motosega) -- ChainSawSideDouble (motosega) -- ChainSawPlusBlade (motosega più lama orizzontale) -- Mill (svuotatura) end -- se non ho trovato neanche una lavorazione completa, non posso separare if Machining.sTypeMachining == 'None' then Strategy.Result = FeatureLib.GetStrategyResultNotApplicable( 'Split not possible') end return Machining end ------------------------------------------------------------------------------------------------------------- function HEADCUT.Make( bAddMachining, Proc, Part, CustomParameters) Strategy = LoadStrategyParameters( Proc, CustomParameters) local bAreAllMachiningsAdded = true local Splitting = {} local AuxiliaryData = {} Strategy.SplitStrategy = GetSplitStrategy( Proc, Part) if bAddMachining then -- inserimento smussi su spigoli del taglio if Strategy.Parameters.bMakeChamfer then MakeChamfer() end local OptionalParameters = {} -- applico le lavorazioni ---------------------------------------------------------------------------------- if Strategy.SplitStrategy.sTypeMachining == 'BladeSideSingle' then OptionalParameters = {} OptionalParameters.nToolIndex = Strategy.SplitStrategy[1].ToolInfo.nToolIndex OptionalParameters.dRadialStepSpan = 0 -- TODO gestire lavorazione a cubetti local EdgeToMachine = GetEdgeToMachine( Proc, -Y_AX()) Splitting = FaceByBlade.Make( Proc, Part, Proc.Faces[1], EdgeToMachine, OptionalParameters) Splitting.sStage = 'Head' MachiningLib.AddMachinings( Proc, Splitting, AuxiliaryData) ---------------------------------------------------------------------------------- elseif Strategy.SplitStrategy.sTypeMachining == 'BladeSideDouble' then -- Taglio lato frontale OptionalParameters = {} OptionalParameters.nToolIndex = Strategy.SplitStrategy[1].ToolInfo.nToolIndex OptionalParameters.dDepthToMachine = Part.dWidth / 2 + BeamData.CUT_EXTRA_MIN OptionalParameters.dRadialStepSpan = 0 -- TODO gestire lavorazione a cubetti local EdgeToMachine = GetEdgeToMachine( Proc, -Y_AX()) Splitting = FaceByBlade.Make( Proc, Part, Proc.Faces[1], EdgeToMachine, OptionalParameters) Splitting.sStage = 'Head' MachiningLib.AddMachinings( Proc, Splitting, AuxiliaryData) -- Taglio lato dietro OptionalParameters = {} Splitting = {} AuxiliaryData = {} OptionalParameters.nToolIndex = Strategy.SplitStrategy[1].ToolInfo.nToolIndex OptionalParameters.dDepthToMachine = Part.dWidth / 2 + BeamData.CUT_EXTRA_MIN OptionalParameters.dRadialStepSpan = 0 -- TODO gestire lavorazione a cubetti EdgeToMachine = GetEdgeToMachine( Proc, Y_AX()) Splitting = FaceByBlade.Make( Proc, Part, Proc.Faces[1], EdgeToMachine, OptionalParameters) Splitting.sStage = 'Head' MachiningLib.AddMachinings( Proc, Splitting, AuxiliaryData) ---------------------------------------------------------------------------------- elseif Strategy.SplitStrategy.sTypeMachining == 'BladeHorizontalSingle' then OptionalParameters = {} OptionalParameters.nToolIndex = Strategy.SplitStrategy[1].ToolInfo.nToolIndex OptionalParameters.dDepthToMachine = Part.dHeight + BeamData.CUT_EXTRA OptionalParameters.dRadialStepSpan = 0 -- TODO gestire lavorazione a cubetti local EdgeToMachine = GetEdgeToMachine( Proc, Z_AX()) Splitting = FaceByBlade.Make( Proc, Part, Proc.Faces[1], EdgeToMachine, OptionalParameters) Splitting.sStage = 'Head' MachiningLib.AddMachinings( Proc, Splitting, AuxiliaryData) ---------------------------------------------------------------------------------- elseif Strategy.SplitStrategy.sTypeMachining == 'BladeHorizontalDouble' then -- Taglio lato frontale OptionalParameters = {} OptionalParameters.nToolIndex = Strategy.SplitStrategy[1].ToolInfo.nToolIndex local dExtraMaxMat = ( Strategy.SplitStrategy[1].ToolInfo.dMaxMatBladeFromTop + Strategy.SplitStrategy[2].ToolInfo.dMaxMatBladeFromDown - Part.dHeight - BeamData.CUT_EXTRA_MIN) / 2 OptionalParameters.dDepthToMachine = Strategy.SplitStrategy[1].ToolInfo.dMaxMatBladeFromTop - dExtraMaxMat OptionalParameters.dRadialStepSpan = 0 -- TODO gestire lavorazione a cubetti local EdgeToMachine = GetEdgeToMachine( Proc, Z_AX()) Splitting = FaceByBlade.Make( Proc, Part, Proc.Faces[1], EdgeToMachine, OptionalParameters) Splitting.sStage = 'Head' MachiningLib.AddMachinings( Proc, Splitting, AuxiliaryData) -- Taglio lato dietro OptionalParameters = {} Splitting = {} AuxiliaryData = {} OptionalParameters.nToolIndex = Strategy.SplitStrategy[2].ToolInfo.nToolIndex OptionalParameters.dDepthToMachine = Strategy.SplitStrategy[2].ToolInfo.dMaxMatBladeFromDown - dExtraMaxMat OptionalParameters.dRadialStepSpan = 0 -- TODO gestire lavorazione a cubetti EdgeToMachine = GetEdgeToMachine( Proc, -Z_AX()) Splitting = FaceByBlade.Make( Proc, Part, Proc.Faces[1], EdgeToMachine, OptionalParameters) Splitting.sStage = 'Head' MachiningLib.AddMachinings( Proc, Splitting, AuxiliaryData) ---------------------------------------------------------------------------------- elseif Strategy.SplitStrategy.sTypeMachining == 'ChainSawHorizontal' then ; -- TODO ---------------------------------------------------------------------------------- elseif Strategy.SplitStrategy.sTypeMachining == 'ChainSawSideSingle' then ; -- TODO ---------------------------------------------------------------------------------- elseif Strategy.SplitStrategy.sTypeMachining == 'ChainSawSideDouble' then ; -- TODO ---------------------------------------------------------------------------------- elseif Strategy.SplitStrategy.sTypeMachining == 'ChainSawPlusBlade' then ; -- TODO ---------------------------------------------------------------------------------- elseif Strategy.SplitStrategy.sTypeMachining == 'Mill' then ; -- TODO ---------------------------------------------------------------------------------- end return bAreAllMachiningsAdded, Strategy.Result else return nil, Strategy.Result end end ------------------------------------------------------------------------------------------------------------- return HEADCUT