Files
trimming/ResetEditBezierBorders.lua
T
Riccardo Elitropi 5dd7acad75 Trimming 3.1a1 :
- Primo Commit
2026-01-19 11:31:08 +01:00

46 lines
1.6 KiB
Lua

-- ResetEditBezierBorders.lua by Egalware s.r.l. 2026/01/05
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
-- Carico le costanti di Trimming
EgtAddToPackagePath( EgtGetSourceDir() .. '?.lua')
local GlobVar = require( 'TrimmingLib')
-- Costante di Errore
local ERROR_EDIT_CURVE = 'Error in Edit Borders : '
-- Recupero Part, Layer di Edit e di Trimming corrente
local nCurrPartId = EgtGetCurrPart()
local nTmpLayerId = EgtGetCurrLayer()
if not nTmpLayerId or nTmpLayerId == GDB_ID.NULL then
EgtOutBox( ERROR_EDIT_CURVE .. 'Not a valid Current Editing Layer', 'Error', 'ERROR', 'OK')
return
end
local nCurrLayerId = nil
if GlobVar.IsTrimmingLayer( nTmpLayerId) then nCurrLayerId = nTmpLayerId
else nCurrLayerId = GlobVar.GetTrimmingLayerRefId( nTmpLayerId) end
if not nCurrLayerId or nCurrLayerId == GDB_ID.NULL then
EgtOutBox( ERROR_EDIT_CURVE .. 'Not a valid Trimming Layer', 'Error', 'ERROR', 'OK')
return
end
-- Recupero il Layer di Edit delle Curve, se non esiste allora errore
local nLayerEditId = GlobVar.GetCurrentEditLayer( nCurrPartId)
if not nLayerEditId or nLayerEditId == GDB_ID.NULL then
EgtOutBox( ERROR_EDIT_CURVE .. 'Not a valid Trimming Edit Layer', 'Error', 'ERROR', 'OK')
return
end
-- Chiedo Conferma dell'Operazione
local bDelete = EgtOutBox( 'Do you want to end the Editing mode ?', 'Deleting', 'QUESTION', 'YESNO')
if not bDelete then EgtSetCurrPartLayer( nCurrPartId, nLayerEditId) return end
-- Cancello il Layer di Edit e rendo quello di Trimming come corrente
EgtErase( nLayerEditId)
EgtSetCurrPartLayer( nCurrPartId, nCurrLayerId)
EgtSetStatus( nCurrLayerId, GDB_ST.ON)
-- Aggiorno la Grafica
EgtDraw()