CamAuto 3.1d3 :
- correzioni in calcolo preview per UpdateSawing.
This commit is contained in:
+15
-7
@@ -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')
|
||||
|
||||
Reference in New Issue
Block a user