Carlo Baronchelli
60 lines
1.4 KiB
Lua
60 lines
1.4 KiB
Lua
-- 2018/06/20
|
|
-- Offset di una regione
|
|
-- Istruzioni :
|
|
-- 1) selezionare la regione
|
|
-- 2) eseguire il componente
|
|
-- 3) inserire i parametri richiesti nel dialogo.
|
|
|
|
-- Intestazioni
|
|
require( 'EgtBase')
|
|
_ENV = EgtProtectGlobal()
|
|
EgtEnableDebug( false)
|
|
|
|
|
|
-- Recupero primo oggetto selezionato (regione da offsettare)
|
|
local nId1 = EgtGetFirstSelectedObj()
|
|
if not nId1 or EgtGetType( nId1) ~= GDB_TY.SRF_FRGN then
|
|
EgtOutText( 'Il primo oggetto selezionato non è una regione')
|
|
EgtPause( 1000)
|
|
return
|
|
end
|
|
|
|
-- Chiedo i parametri di offset
|
|
local vsVal = EgtDialogBox( 'Region Offset', { 'Distanza', '0.0'}, { 'Tipo', 'CB:Raccordo,Smusso,Estendi'}, { 'Copia', 'CB:True,*False'})
|
|
if not vsVal or #vsVal ~= 3 then return end
|
|
local dDist = tonumber( vsVal[1])
|
|
local nType = GDB_OT.FILLET
|
|
if vsVal[2] == 'Smusso' then
|
|
nType = GDB_OT.CHAMFER
|
|
elseif vsVal[2] == 'Estendi' then
|
|
nType = GDB_OT.EXTEND
|
|
end
|
|
local bCopy = true
|
|
if vsVal[3] == 'False' then
|
|
bCopy = false
|
|
end
|
|
|
|
-- Se richiesta copia, la eseguo
|
|
local nId2 = nId1
|
|
if bCopy then
|
|
nId2 = EgtCopy( nId1, nId1, GDB_IN.AFTER)
|
|
if not nId2 then
|
|
EgtOutText( 'Errore nella copia della regione')
|
|
EgtPause( 1000)
|
|
end
|
|
end
|
|
|
|
-- Eseguo l'offset della superficie
|
|
local bOk = EgtSurfFrOffset( nId2, dDist, nType)
|
|
|
|
-- Se copia, sistemazioni finali
|
|
if bCopy then
|
|
if bOk then
|
|
EgtSetAlpha( nId1, 30)
|
|
else
|
|
EgtErase( nId2)
|
|
end
|
|
end
|
|
|
|
EgtDraw()
|