CamAuto 3.1d3 :

- correzioni in calcolo preview per UpdateSawing.
This commit is contained in:
Dario Sassi
2026-04-30 17:47:20 +02:00
parent 6205ef4963
commit 499d06227c
+15 -7
View File
@@ -1,4 +1,4 @@
-- 2026/04/21 19:30:00
-- 2026/04/29 19:00:00
-- Programma per Cam automatico in OmagCut
-- Legenda codici errore (CAM.ERR) :
-- 0 = tutto bene
@@ -17,7 +17,7 @@ _ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Versione
local CAMAUTO_VER = 'ver 3.1d2'
local CAMAUTO_VER = 'ver 3.1d3'
-- Determino il tipo di macchina
local bIsMultiCut = ( EgtGetHeadId( 'H101') ~= nil)
@@ -4779,10 +4779,8 @@ function CAM.UpdateSawing()
-- recupero il nome del layer cui appartiene
local sName = EgtGetName( EgtGetParent( Geo[1][1]) or GDB_ID.NULL)
if sName then sLay = sName end
-- recupero la preview dal pezzo (taglio di lama) e la elimino
local PartId = EgtGetFirstNameInGroup( CAM.OPERID, "PV")
local PvId = EgtGetInfo( PartId, 'PvId', 'i')
EgtErase( PvId)
-- cancello la preview nel pezzo
CAM.ErasePreview( CAM.OPERID)
-- recupero l'info da applicare in fase di costruzione della lavorazione
j = EgtGetInfo( CAM.OPERID, 'Index_j')
-- recupero variazioni su attacco e uscita
@@ -4802,7 +4800,17 @@ function CAM.UpdateSawing()
EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, nLoType)
EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEal)
EgtApplyMachining()
EgtPreviewMachining()
if EgtPreviewMachining() then
if not EgtIsMachiningEmpty() then
local nEntId = CAM.GetEntIdFromMachining( CAM.NEW_OPERATION)
local nPartId = EgtGetParent( EgtGetParent( nEntId) or GDB_ID.NULL) or GDB_ID.NULL
CAM.CopyPreviewToPiece( CAM.NEW_OPERATION, nPartId)
local sCurrSaw = EgtTdbGetToolFromUUID( EgtGetMachiningParam( MCH_MP.TUUID) or '')
if sCurrSaw and EgtTdbSetCurrTool( sCurrSaw) then
CAM.ApplyPvColor( sCurrSaw, CAM.NEW_OPERATION)
end
end
end
else
CAM.ERR = 58
EgtOutLog( ' Error updating sawing')