DataBeam :
- cambiato nome modulo ProcessBlockHouseFront.lua in ProcessBlockHausFront.lua - in BeamLib.MakeOneFaceBySaw gestito offset longitudinale per calcolo attacco/uscita - DiceCut se faccia principale inclinata verso il basso si parte sempre da sopra - in MachiningLib.FindMilling aggiunta possibilità gestione massimo affondamento richiesto - corretto riconoscimento fori da sotto - in LapJoint corretto angolo 3° asse fittizio per sega a catena - in Tenone aggiunta gestione scelta utensile in base all'altezza dello stesso.
This commit is contained in:
Dario Sassi
@@ -5,7 +5,7 @@
|
||||
-- 2019/09/25 Aggiunta gestione StepJoint e StepJointNotch
|
||||
-- 2020/01/21 Aggiunta gestione ScarfJoint
|
||||
-- 2020/02/10 Aggiunta gestione FrenchRidgeLap
|
||||
-- 2020/02/11 Aggiunta gestione BlockHouseFront
|
||||
-- 2020/02/11 Aggiunta gestione BlockHausFront
|
||||
|
||||
-- Tabella per definizione modulo
|
||||
local BeamExec = {}
|
||||
@@ -55,8 +55,8 @@ _G.package.loaded.ProcessDrill = nil
|
||||
local Drill = require( 'ProcessDrill')
|
||||
_G.package.loaded.ProcessFrenchRidgeLap = nil
|
||||
local FrenchRidgeLap = require( 'ProcessFrenchRidgeLap')
|
||||
_G.package.loaded.ProcessBlockHouseFront = nil
|
||||
local BlockHouseFront = require( 'ProcessBlockHouseFront')
|
||||
_G.package.loaded.ProcessBlockHausFront = nil
|
||||
local BlockHausFront = require( 'ProcessBlockHausFront')
|
||||
_G.package.loaded.ProcessTenon = nil
|
||||
local Tenon = require( 'ProcessTenon')
|
||||
_G.package.loaded.ProcessMortise = nil
|
||||
@@ -530,8 +530,8 @@ local function ClassifyFeatures( vProc, b3Raw, Stats)
|
||||
elseif FrenchRidgeLap.Identify( Proc) then
|
||||
bOk, bDown = FrenchRidgeLap.Classify( Proc)
|
||||
-- se block house front
|
||||
elseif BlockHouseFront.Identify( Proc) then
|
||||
bOk, bDown = BlockHouseFront.Classify( Proc)
|
||||
elseif BlockHausFront.Identify( Proc) then
|
||||
bOk, bDown = BlockHausFront.Classify( Proc)
|
||||
-- se mortasa (anche frontale)
|
||||
elseif Mortise.Identify( Proc) then
|
||||
bOk, bDown = Mortise.Classify( Proc)
|
||||
@@ -686,9 +686,9 @@ local function AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, b3
|
||||
-- esecuzione giunzione francese
|
||||
bOk, sErr = FrenchRidgeLap.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
|
||||
-- se block house front ( 3/4-038-X)
|
||||
elseif BlockHouseFront.Identify( Proc) then
|
||||
elseif BlockHausFront.Identify( Proc) then
|
||||
-- esecuzione giunzione francese
|
||||
bOk, sErr = BlockHouseFront.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
|
||||
bOk, sErr = BlockHausFront.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
|
||||
-- se tenone ( 1/2-050-X)
|
||||
elseif Tenon.Identify( Proc) then
|
||||
-- esecuzione tenone
|
||||
|
||||
+5
-3
@@ -1,4 +1,4 @@
|
||||
-- BeamLib.lua by Egaltech s.r.l. 2020/02/19
|
||||
-- BeamLib.lua by Egaltech s.r.l. 2020/02/26
|
||||
-- Libreria globale per Travi
|
||||
|
||||
-- Tabella per definizione modulo
|
||||
@@ -685,10 +685,12 @@ function BeamLib.MakeOneFaceBySaw( nSurfId, nFacet, sCutting, dSawDiam, Par5, dV
|
||||
local b3Box = BBox3d( b3Raw)
|
||||
b3Box:expand( dCutSic)
|
||||
local dLiTang, dLiPerp, dLoTang, dLoPerp
|
||||
local ptP1act = ptP1 + vtN * dCutOffset
|
||||
local ptP2act = ptP2 + vtN * dCutOffset
|
||||
if ( vtV1:getZ() > -0.1 or vtV2:getZ() > -0.1) and ( abs( vtV1:getY()) > 0.707 or abs( vtV2:getY()) > 0.707 or vtN:getZ() < 0.95) then
|
||||
dLiTang, dLiPerp, dLoTang, dLoPerp = BeamLib.CalcLeadInOutGeom( ptP1, ptP2, vtV1, vtV2, vtN, dSawDiam/2, vtRef, dCutExtra, b3Box)
|
||||
dLiTang, dLiPerp, dLoTang, dLoPerp = BeamLib.CalcLeadInOutGeom( ptP1act, ptP2act, vtV1, vtV2, vtN, dSawDiam/2, vtRef, dCutExtra, b3Box)
|
||||
else
|
||||
dLiTang, dLiPerp, dLoTang, dLoPerp = BeamLib.CalcLeadInOutTangGeom( ptP1, ptP2, vtN, dSawDiam/2, vtRef, dCutExtra, b3Box)
|
||||
dLiTang, dLiPerp, dLoTang, dLoPerp = BeamLib.CalcLeadInOutTangGeom( ptP1act, ptP2act, vtN, dSawDiam/2, vtRef, dCutExtra, b3Box)
|
||||
end
|
||||
-- posizione braccio
|
||||
EgtOutLog( 'vtN=' .. tostring( vtN) .. ' vtRef=' .. tostring( vtRef) .. ' vtOut=' .. tostring( vtOut) .. ' vtAux=' .. tostring( vtAux), 3)
|
||||
|
||||
+5
-1
@@ -1,4 +1,4 @@
|
||||
-- DiceCut.lua by Egaltech s.r.l. 2019/10/28
|
||||
-- DiceCut.lua by Egaltech s.r.l. 2020/02/26
|
||||
-- Gestione dei piano paralleli nei tagli lunghi: equidistanziamento dei piani paralleli
|
||||
|
||||
-- Tabella per definizione modulo
|
||||
@@ -466,6 +466,10 @@ function DiceCut.GetDice( nParent, BBoxRawPart, ptCPlanes, vtNPlanes, bGetOrtoPl
|
||||
-- se diretto troppo ortogonalmente all'asse trave e taglio non da sotto, lo ruoto ulteriormente
|
||||
if abs( vtO:getY()) > abs( vtO:getX()) and vtNInner:getZ() > dNzLimDwnUp then
|
||||
vtO:rotate( vtNInner, 90)
|
||||
-- se faccia principale verso il basso (almeno -3deg), lo inverto per iniziare da sopra
|
||||
if vtNInner:getZ() < -0.05 then
|
||||
vtO = -vtO
|
||||
end
|
||||
else
|
||||
if ptCInner:getX() > BBoxRawPart:getCenter():getX() then
|
||||
if vtO:getX() < 0 then vtO = - vtO end
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
-- MachiningLib.lua by Egaltech s.r.l. 2020/02/14
|
||||
-- MachiningLib.lua by Egaltech s.r.l. 2020/02/26
|
||||
-- Libreria ricerca lavorazioni per Travi
|
||||
|
||||
-- Tabella per definizione modulo
|
||||
@@ -38,11 +38,14 @@ function MachiningLib.FindCutting( sType)
|
||||
end
|
||||
|
||||
---------------------------------------------------------------------
|
||||
function MachiningLib.FindMilling( sType)
|
||||
function MachiningLib.FindMilling( sType, dDepth)
|
||||
for i = 1, #Millings do
|
||||
local Milling = Millings[i]
|
||||
if Milling.On and Milling.Type == sType and SetCurrMachiningAndTool( Milling.Name) then
|
||||
return Milling.Name
|
||||
local dTMaxDepth = EgtTdbGetCurrToolMaxDepth()
|
||||
if not dDepth or dTMaxDepth > dDepth - GEO.EPS_SMALL then
|
||||
return Milling.Name
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@@ -1,8 +1,8 @@
|
||||
-- ProcessBlockHouseFront.lua by Egaltech s.r.l. 2020/02/11
|
||||
-- ProcessBlockHausFront.lua by Egaltech s.r.l. 2020/02/11
|
||||
-- Gestione calcolo giunzione block house in testa
|
||||
|
||||
-- Tabella per definizione modulo
|
||||
local ProcessBlockHouseFront = {}
|
||||
local ProcessBlockHausFront = {}
|
||||
|
||||
-- Include
|
||||
require( 'EgtBase')
|
||||
@@ -10,7 +10,7 @@ local BL = require( 'BeamLib')
|
||||
local DC = require( 'DiceCut')
|
||||
local Cut = require( 'ProcessCut')
|
||||
|
||||
EgtOutLog( ' ProcessBlockHouseFront started', 1)
|
||||
EgtOutLog( ' ProcessBlockHausFront started', 1)
|
||||
|
||||
-- Dati
|
||||
local BD = require( 'BeamData')
|
||||
@@ -18,13 +18,13 @@ local ML = require( 'MachiningLib')
|
||||
|
||||
---------------------------------------------------------------------
|
||||
-- Riconoscimento della feature
|
||||
function ProcessBlockHouseFront.Identify( Proc)
|
||||
function ProcessBlockHausFront.Identify( Proc)
|
||||
return (( Proc.Grp == 3 or Proc.Grp == 4) and Proc.Prc == 38)
|
||||
end
|
||||
|
||||
---------------------------------------------------------------------
|
||||
-- Classificazione della feature
|
||||
function ProcessBlockHouseFront.Classify( Proc)
|
||||
function ProcessBlockHausFront.Classify( Proc)
|
||||
-- verifico le normali delle facce
|
||||
local nFacetCnt = EgtSurfTmFacetCount( Proc.Id)
|
||||
for i = 1, nFacetCnt do
|
||||
@@ -42,7 +42,7 @@ end
|
||||
|
||||
---------------------------------------------------------------------
|
||||
-- Applicazione della lavorazione
|
||||
function ProcessBlockHouseFront.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
|
||||
function ProcessBlockHausFront.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
|
||||
-- recupero l'ingombro del grezzo di appartenenza
|
||||
local b3Raw = EgtGetRawPartBBox( nRawId)
|
||||
-- ingombro del pezzo
|
||||
@@ -300,4 +300,4 @@ function ProcessBlockHouseFront.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
|
||||
end
|
||||
|
||||
---------------------------------------------------------------------
|
||||
return ProcessBlockHouseFront
|
||||
return ProcessBlockHausFront
|
||||
@@ -1,4 +1,4 @@
|
||||
-- ProcessDrill.lua by Egaltech s.r.l. 2020/02/20
|
||||
-- ProcessDrill.lua by Egaltech s.r.l. 2020/02/26
|
||||
-- Gestione calcolo forature per Travi
|
||||
|
||||
-- Tabella per definizione modulo
|
||||
@@ -26,7 +26,27 @@ end
|
||||
---------------------------------------------------------------------
|
||||
-- Classificazione della feature
|
||||
function ProcessDrill.IsHeadFeature( Proc, b3Raw, dCurrOvmH)
|
||||
return false
|
||||
-- verifico se è in testa
|
||||
if Proc.Box:getMax():getX() < b3Raw:getMax():getX() - dCurrOvmH - BD.MAX_DIST_HTFEA then
|
||||
return false
|
||||
end
|
||||
-- recupero e verifico l'entità foro
|
||||
local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i') or 0
|
||||
if AuxId then AuxId = AuxId + Proc.Id end
|
||||
if not AuxId or EgtGetType( AuxId) ~= GDB_TY.CRV_ARC then
|
||||
return false
|
||||
end
|
||||
local vtExtr = EgtCurveExtrusion( AuxId, GDB_RT.GLOB)
|
||||
-- se entrata principale
|
||||
if Proc.Flg > 0 then
|
||||
local nFcs = EgtGetInfo( Proc.Id, 'FCS', 'i') or 0
|
||||
return ( ( nFcs == 5 or nFcs == 6) and vtExtr:getX() > 0.5)
|
||||
-- altrimenti entrata opposta
|
||||
else
|
||||
local nFce = EgtGetInfo( Proc.Id, 'FCE', 'i') or 0
|
||||
return ( ( nFce == 5 or nFce == 6) and vtExtr:getX() < -0.5)
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
---------------------------------------------------------------------
|
||||
@@ -101,7 +121,7 @@ function ProcessDrill.Classify( Proc, b3Raw)
|
||||
return false, false
|
||||
end
|
||||
local bOpen = ( Proc.Fce ~= 0)
|
||||
local bFaceDown = ( ptCen:getZ() < b3Raw:getMin():getZ() + dDiam)
|
||||
local bFaceDown = ( ptCen:getZ() < b3Raw:getMin():getZ() + dDiam / 2 and not Proc.Head and not Proc.Tail)
|
||||
-- verifico se il foro è fattibile solo da sotto
|
||||
local bDown = (( vtExtr:getZ() < BD.DRILL_VZ_MIN or bFaceDown) and ( not bOpen or Proc.Flg ~= 1))
|
||||
return true, bDown
|
||||
|
||||
@@ -1,5 +1,4 @@
|
||||
-- ProcessLapJoint.lua by Egaltech s.r.l. 2020/02/18
|
||||
-- Gestione calcolo mezzo-legno per Travi
|
||||
-- ProcessLapJoint.lua by Egaltech s.r.l. 2020/02/26
|
||||
-- 2019/10/08 Agg. gestione OpenPocket.
|
||||
|
||||
-- Tabella per definizione modulo
|
||||
@@ -705,7 +704,8 @@ local function MakeByChainOrSaw( Proc, nPhase, nRawId, nPartId, nFacInd, rfFac,
|
||||
local vtN = EgtSurfTmFacetNormVersor( Proc.Id, nFacAdj, GDB_ID.ROOT)
|
||||
local ptP1, ptP2 = EgtSurfTmFacetOppositeSide( Proc.Id, nFacAdj, rfFac:getVersZ(), GDB_ID.ROOT)
|
||||
local vtT = vtN ^ (ptP2 - ptP1)
|
||||
local d3RotAng = EgtIf( abs( vtT:getZ()) < GEO.EPS_SMALL, 0, 90)
|
||||
vtT:normalize()
|
||||
local d3RotAng = EgtIf( abs( vtT:getZ()) < 0.1, 0, 90)
|
||||
-- Recupero la lavorazione
|
||||
local sSawing = ML.FindSawing( 'Sawing')
|
||||
if not sSawing then
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
-- ProcessTenon.lua by Egaltech s.r.l. 2020/02/07
|
||||
-- ProcessTenon.lua by Egaltech s.r.l. 2020/02/26
|
||||
-- Gestione calcolo tenone per Travi
|
||||
|
||||
-- Tabella per definizione modulo
|
||||
@@ -168,7 +168,7 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
|
||||
end
|
||||
end
|
||||
-- recupero la lavorazione
|
||||
local sMilling = ML.FindMilling( 'Tenon')
|
||||
local sMilling = ML.FindMilling( 'Tenon', dTenH) or ML.FindMilling( 'Tenon')
|
||||
if not sMilling then
|
||||
local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' milling not found in library'
|
||||
EgtOutLog( sErr)
|
||||
|
||||
Reference in New Issue
Block a user