Egalware/DataBeam
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DataBeam :

Browse Source 
- aggiunta gestione feature senza geometria
- migliorato calcolo attacchi/uscite lama con angoli 45deg
- in foratura si tiene conto anche della profondità del foro per scegliere la punta più adatta
- in tagli corretto problema con tagli orizzontali (da sotto o sopra) con taglio più alto dell'utile lama
- in LapJoint e simili migliorati antischeggia con lama
- in Tenoni migliorata lavorazione faccia di testa con fresa.
This commit is contained in:
Dario Sassi
2020-09-22 17:31:47 +00:00
parent e3b00fbcbc
commit 162d3870f2
9 changed files with 234 additions and 95 deletions
Download Patch File Download Diff File Expand all files Collapse all files
LuaLibs/MachiningLib.lua
+14 -4
View File
@@ -1,4 +1,4 @@
-- MachiningLib.lua by Egaltech s.r.l. 2020/05/16
-- MachiningLib.lua by Egaltech s.r.l. 2020/09/15
-- Libreria ricerca lavorazioni per Travi
-- Tabella per definizione modulo
@@ -79,15 +79,20 @@ function MachiningLib.FindSawing( sType)
end
---------------------------------------------------------------------
function MachiningLib.FindDrilling( dDiam)
function MachiningLib.FindDrilling( dDiam, dDepth)
-- ricerca sulle forature, dal diametro maggiore al minore
for i = #Drillings, 1, -1 do
local Drilling = Drillings[i]
if Drilling.On and Drilling.Type == 'Drill' and SetCurrMachiningAndTool( Drilling.Name) then
local dTDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM)
local dTMaxMat = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT)
local dMaxToolLength = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN)
local dToolDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM)
local dDiamTh = EgtTdbGetCurrToolThDiam()
if dTDiam < dDiam + 10 * GEO.EPS_SMALL and dTDiam > dDiam - BD.DRILL_TOL - 10 * GEO.EPS_SMALL then
return Drilling.Name, Drilling.Type, dTMaxMat
if not dDepth or dTMaxMat > dDepth - GEO.EPS_SMALL then
return Drilling.Name, Drilling.Type, dTMaxMat, dMaxToolLength, dToolDiam, dDiamTh
end
end
end
end
@@ -97,8 +102,13 @@ function MachiningLib.FindDrilling( dDiam)
if Drilling.On and Drilling.Type == 'Pocket' and SetCurrMachiningAndTool( Drilling.Name) then
local dTDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM)
local dTMaxDepth = EgtTdbGetCurrToolMaxDepth()
local dMaxToolLength = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN)
local dToolDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM)
local dDiamTh = EgtTdbGetCurrToolThDiam()
if dTDiam < dDiam - 10 * GEO.EPS_SMALL then
return Drilling.Name, Drilling.Type, dTMaxDepth
if not dDepth or dTMaxDepth > dDepth - GEO.EPS_SMALL then
return Drilling.Name, Drilling.Type, dTMaxDepth, dMaxToolLength, dToolDiam, dDiamTh
end
end
end
end