luca.mazzoleni
663 lines
26 KiB
Plaintext
663 lines
26 KiB
Plaintext
-- Descrizione macchina Essetre-FAST by EgalTech s.r.l. 2024/03/28
|
|
-- 2021/12/29 DS ver 2.3l4 Per NUM non va considerato MillOffs negli offset in Z.
|
|
-- 2022/01/27 DS ver 2.4a2 Modifiche per tagli testa/coda su pezzi alti.
|
|
-- 2022/02/10 DS ver 2.4a3 Ridotto di 10mm pinzaggio con pezzi alti ma sottili.
|
|
-- 2022/02/26 DS ver 2.4b1 Aggiunta verifica collisioni spalle per sega a catena.
|
|
-- 2022/03/19 DS ver 2.4c1 Unificazione con BH.
|
|
-- 2022/05/24 DS ver 2.4e1 Corretto carico utensile punta lunga su T111.
|
|
-- 2022/05/24 DS ver 2.4e2 Corretto scarico utensile punta lunga su T111.
|
|
-- 2022/06/16 DS ver 2.4f1 Per Rinvio Angolare SecondSupport >= 3, se 2 è Mortiser. Aggiunta gestione Dist per seghe a catena e mortasatrici.
|
|
-- 2022/07/22 DS ver.2.4g2 Modifiche per ribaltamento pezzo con molto scarto iniziale.
|
|
-- 2022/07/29 DS ver.2.4g3 Migliorata modellazione testa con solidi per collisione.
|
|
-- 2022/08/17 DS ver 2.4h1 Correzione nuova gestione distanza di sega a catena.
|
|
-- 2022/08/24 DS ver 2.4h2 Correzioni per rinvio angolare (Angular Transmission).
|
|
-- 2022/09/20 DS ver 2.4i1 Aggiunta gestione NUM FlexiumPlus (NUM_PLUS).
|
|
-- 2022/10/22 DS ver 2.4j3 Ottimizzazioni per NUM FlexiumPlus.
|
|
-- 2022/11/09 DS ver 2.4k1 Per Num e NumPlus ora E30033 è ST (dim. verticale) e E30036 è HT (dim. orizzontale).
|
|
-- 2022/12/05 DS ver 2.4l1 In OnLinear di genera CN per Num e NumPlus eliminato recupero sovramateriale di testa EMT.X_OFF dopo riutilizzo EMT.L1o.
|
|
-- 2023/01/23 DS Ver.2.5a2 In simulazione corretta visualizzazione Sega a catena.
|
|
-- 2023/02/09 DS Ver.2.5b1 Correzioni NumPlus per parametri G115 e EG2/EG3 al cambio orientazione sega a catena.
|
|
-- 2023/03/20 DS Ver.2.5c1 Inserita gestione fresa BH al posto della lama.
|
|
-- 2023/07/26 DS ver.2.5g1 Per NUM e NUM_PLUS aggiunta gestione rotazione in alto su pezzi alti (G101 EH1) come per TPA in versione 2.3f2.
|
|
-- 2023/07/26 DS ver.2.5g2 Per NUM e NUM_PLUS tolta segnalazione errore rotazione a Zmax per pezzi alti non gestita (era su EMT.FLAG == 5).
|
|
-- 2023/07/27 DS ver.2.5g3 Il parametro di cui alle modifiche precedenti ora viene emesso solo se anche EMT.FLAG2==1.
|
|
-- 2023/08/17 DS ver 2.5h2 Possibilità di nuova gestione SawCOffs e SawBOffs con flag NewBCOffs.
|
|
-- 2023/08/22 DS ver 2.5h3 Eliminata nuova gestione di 2.5h2 perchè inclinando la direzione utensile rispetto al primo rotante limitava le direzioni raggiungibili.
|
|
-- 2023/09/29 ver 2.5i1 In BeamData e mlde aggiunta la lettura di alcuni parametri da Ts3Data.
|
|
-- 2023/10/18 DS ver 2.5j1 Con SpliRot ora si assegna da primo movimento di M111/G111 a EE/P8 il corretto valore 2.
|
|
-- 2023/10/19 DS ver 2.5j2 Per NUM_PLUS correzione per scarico con pezzo dopo oppure passando da Y a V per eliminare ET2 e scommentare ET2004.
|
|
-- 2023/10/21 DS ver 2.5j3 Gestione caso speciale di rotazione dopo separazione senza lavorazioni sul posizionamento finale.
|
|
-- 2023/11/04 DS ver 2.5k1 Eliminata testa H4. Aggiunta visualizzazione rinvio su TC.Aggiunta gestione MIN_MACH_VER per simulazione e generazione.
|
|
-- 2023/12/13 AV ver.2.5l1 Piccola correzione per errore digitazione variabile in calcolo riposizionamento carrelli (SpecAdjustCarrB3)
|
|
-- Corretto segno di una variabile in calcolo posizionamento carrelli
|
|
-- 2023/12/15 AV ver.2.5l2 Migliorato calcolo stima tempi di lavorazione
|
|
-- 2024/01/19 DS ver 2.6a1 Piccola modifica per direzione preferenziale rinvio da sotto (per evitare di accedere dal lato della barra).
|
|
-- 2024/01/29 DS ver 2.6a2 In portautensili per mortasa e sega a catena aggiunti ingombri dello stesso.
|
|
-- 2024/02/09 LM ver 2.6b1 In BeamData aggiunta funzione GetBlockedAxis che sostituisce la GetChainSawBlockedAxis.
|
|
-- 2024/02/23 AV ver 2.6c1 Prima versione con post-processore common
|
|
-- Allineamento con common ver. 2.6c1
|
|
-- 2024/02/23 AV ver 2.6c2 Rimossa chiamata funzione EgtGetSourceDir
|
|
-- Allineamento con common ver. 2.6c2
|
|
-- 2024/02/23 AV ver 2.6c3 Allineamento con common ver. 2.6c3
|
|
-- 2024/02/27 AV ver 2.6c4 Allineamento con common ver. 2.6c4. Aggiunto parametro 'SafeXRotAxes' per rotazione motosega con pezzi alti
|
|
-- 2024/02/29 AV ver 2.6c5 Allineamento con common ver. 2.6c5
|
|
-- 2024/03/04 AV ver 2.6c6 Modificato log con nome macchina
|
|
-- Allineamento con common ver. 2.6c6
|
|
-- 2024/03/09 DS ver 2.6c7 Migliorie alla geometria macchina e suo caricamento.
|
|
-- 2024/03/12 AV ver 2.6c8 Allineamento con common ver. 2.6c7.
|
|
-- 2024/03/28 DS ver 2.6c9 Modificata posizione supporto rinvio.
|
|
-- 2024/03/28 AV ver 2.6d1 Allineamento con common ver. 2.6c8
|
|
-- 2024/04/15 AV ver 2.6d2 Allineamento con common ver. 2.6d1
|
|
-- 2024/04/18 AV ver 2.6d3 Allineamento con common ver. 2.6d2
|
|
-- 2024/04/30 AV ver 2.6e1 Allineamento con common ver. 2.6e1
|
|
-- Aggiunta variabile WoodDensity per gestione WOOD_DENSITY
|
|
-- 2024/05/06 AV ver 2.6e2 Allineamento con common ver. 2.6e2
|
|
-- 2024/05/06 AV ver 2.6e3 Allineamento con common ver. 2.6e3
|
|
-- Aggiunte variabili MinJoin(xx) per gestione MIN_JOIN_(xx)
|
|
-- 2024/06/03 AV ver 2.6f1 Aggiunta funzione GetSetupInfo a BeamData per nuovo automatismo
|
|
-- 2024/06/13 LM ver 2.6f2 Aggiunta lettura NewTopC da offset Ts3
|
|
-- 2024/06/13 AV ver 2.6f3_Dev Per controllo NUM, se arco maggiore di 99999mm, si approssima con una retta.
|
|
-- 2024/07/03 AV ver 2.6g1 Allineamento con common ver. 2.6g1
|
|
-- 2024/07/04 LM ver 2.6g2 In MachData.ini aggiunto MIN_JOIN_SS
|
|
-- 2024/09/02 AV ver 2.6i1 Allineamento con common ver. 2.6i1, Rimossi file "Common-"
|
|
-- 2024/09/02 AV ver 2.6i2 Corretto file YML per compilare file "Common_"
|
|
-- 2024/09/05 LM ver 2.6i3 In BeamData aggiunte costanti MIN_HEIGHT_ADDED_CUTS, PRECUT_HEAD, PRECUT_TAIL
|
|
-- 2024/09/06 LM ver 2.6i4 In BeamData le costanti sopra sono configurabili anche da offsets Ts3v7
|
|
-- 2024/09/16 AV ver 2.6i5 Allineamento con common ver. 2.6i2
|
|
|
|
require( 'EmtGenerator')
|
|
EgtEnableDebug( false)
|
|
|
|
PP_VER = '2.6i10'
|
|
PP_NVER = '2.6.9.10'
|
|
MIN_MACH_VER = '2.5k1'
|
|
MACH_NAME = 'Essetre-FAST'
|
|
|
|
-- Carico i dati globali
|
|
local sMachDir = EgtGetCurrMachineDir()
|
|
-- Elimino direttori altre macchine e imposto direttorio macchina corrente per ricerca librerie
|
|
EgtRemoveBaseMachineDirFromPackagePath()
|
|
EgtAddToPackagePath( sMachDir .. '\\Beam\\?.lua')
|
|
EgtAddToPackagePath( sMachDir .. '\\?.lua')
|
|
local BD = require( 'BeamData')
|
|
local INFO_STD_PP = require( 'Version')
|
|
|
|
-- prendo la versione kernel minima necessaria più nuova tra macchina e script comuni
|
|
if INFO_STD_PP.MIN_MACH_VER_PP_COMMON > MIN_MACH_VER then
|
|
MIN_MACH_VER = INFO_STD_PP.MIN_MACH_VER_PP_COMMON
|
|
end
|
|
|
|
EgtOutLog ( '** ' .. MACH_NAME..' '..PP_VER..' ** ( '..INFO_STD_PP.NAME..': '..INFO_STD_PP.VERSION..' - MinMach: '.. MIN_MACH_VER ..') **', 1)
|
|
|
|
-- Parametri macchina
|
|
NumericalControl = 'TPA' -- NUM o TPA o NUM_PLUS
|
|
MinX = 0
|
|
MaxX = 1350
|
|
MinZ = -1350
|
|
MaxZ = 0
|
|
MinB = -180
|
|
MaxB = 360
|
|
MinC = -360
|
|
MaxC = 360
|
|
MinY = 110.0
|
|
MaxY = 3760.0
|
|
ParkY = 480.0
|
|
MinV = -3760.0
|
|
MaxV = -110.0
|
|
ParkV = -480.0
|
|
LoadT = 1454.2
|
|
UnloadT = -1700
|
|
MaxOpen = 305
|
|
MillOffs = 177.35
|
|
SawOffs = -242.68
|
|
SawBOffs = 0
|
|
SawCOffs = 0
|
|
ChSawLen = 90.0
|
|
AngTr1Offs = 170
|
|
AngTr1Len = 150
|
|
TurnerOffs = 200.0
|
|
DeltaTabY = 898.0
|
|
DeltaTabZ = -1017.8 + MillOffs -- per TPA : -1013.3 + MillOffs -- per NUM : -838.4
|
|
DimTabY = 400
|
|
DimTabX = 34000
|
|
LenToPress = 900
|
|
StartRotation = true
|
|
AutomaticRotation = true
|
|
AutoRotMinLen = 2600
|
|
DefTcPos = 'T2'
|
|
SecondSupport = 0
|
|
SpecialBH = false
|
|
MaxUnloadLen = 0
|
|
BeamHeightForFixRot = 9999 -- per abilitare assegnare 500
|
|
CoeffVM = 0.5
|
|
NewTopC = true
|
|
SafeXRotAxes = 150
|
|
|
|
-- leggo e aggiorno con parametri da BeamData
|
|
if BD then
|
|
BeamHeightForFixRot = BD.MAX_HEIGHT_ROT_B_ABOVE or BeamHeightForFixRot
|
|
end
|
|
|
|
-- Aggiornamento con dati da TechnoEssetre7
|
|
local sTs3Data = EgtGetStringFromIni( 'Beam', 'DATA_DIR', "C:\\TechnoEssetre7\\EgtData", EgtGetIniFile()).."\\Essetre-Fast.data"
|
|
local sData = sMachDir .. "\\Beam\\Ts3Data.lua"
|
|
if EgtExistsFile( sTs3Data) then
|
|
EgtCopyFile( sTs3Data, sData)
|
|
local sTs3DataOld = sTs3Data..'.old'
|
|
EgtEraseFile( sTs3DataOld)
|
|
EgtRenameFile( sTs3Data, sTs3DataOld)
|
|
end
|
|
if EgtExistsFile( sData) then
|
|
local Machine = dofile( sData)
|
|
if Machine then
|
|
if Machine.Offsets then
|
|
if Machine.Offsets.TIPO_CN == 0 then
|
|
NumericalControl = 'NUM'
|
|
elseif Machine.Offsets.TIPO_CN == 2 then
|
|
NumericalControl = 'NUM_PLUS'
|
|
else
|
|
NumericalControl = 'TPA'
|
|
end
|
|
if Machine.Offsets.MAX_X then MinX = - Machine.Offsets.MAX_X end
|
|
if Machine.Offsets.MIN_X then MaxX = - Machine.Offsets.MIN_X end
|
|
if Machine.Offsets.MIN_Z then MinZ = Machine.Offsets.MIN_Z end
|
|
if Machine.Offsets.MAX_Z then MaxZ = Machine.Offsets.MAX_Z end
|
|
if Machine.Offsets.MIN_B then MinB = Machine.Offsets.MIN_B end
|
|
if Machine.Offsets.MAX_B then MaxB = Machine.Offsets.MAX_B end
|
|
if Machine.Offsets.MIN_C then MinC = Machine.Offsets.MIN_C end
|
|
if Machine.Offsets.MAX_C then MaxC = Machine.Offsets.MAX_C end
|
|
MinY = Machine.Offsets.MIN_Y or Machine.Offsets.MINY or MinY
|
|
MaxY = Machine.Offsets.MAX_Y or Machine.Offsets.MAXY or MaxY
|
|
ParkY = Machine.Offsets.PARKYY or ParkY
|
|
MinV = Machine.Offsets.MIN_V or Machine.Offsets.MINV or MinV
|
|
MaxV = Machine.Offsets.MAX_V or Machine.Offsets.MAXV or MaxV
|
|
ParkV = Machine.Offsets.PARKVV or ParkV
|
|
if Machine.Offsets.YCARICO then LoadT = - Machine.Offsets.YCARICO end
|
|
if Machine.Offsets.YSCARICO then UnloadT = - Machine.Offsets.YSCARICO end
|
|
if Machine.Offsets.PIVOTFRESA then MillOffs = - Machine.Offsets.PIVOTFRESA end
|
|
if Machine.Offsets.PIVOTLAMA then SawOffs = - Machine.Offsets.PIVOTLAMA end
|
|
if Machine.Offsets.OFFSETBLAMA then SawBOffs = Machine.Offsets.OFFSETBLAMA end
|
|
if Machine.Offsets.OFFSETCLAMA then SawCOffs = Machine.Offsets.OFFSETCLAMA end
|
|
if Machine.Offsets.OFFSETZ_RINV_1 then AngTr1Offs = Machine.Offsets.OFFSETZ_RINV_1 - EgtIf( NumericalControl == 'TPA', MillOffs, 0) end
|
|
AngTr1Len = Machine.Offsets.OFFSETX_RINV_1 or AngTr1Len
|
|
--if Machine.Offsets.OFFSETZ_RINV_2 then AngTr2Offs = Machine.Offsets.OFFSETZ_RINV_2 - EgtIf( NumericalControl == 'TPA', MillOffs, 0) end
|
|
--AngTr2Len = Machine.Offsets.OFFSETX_RINV_2 or AngTr2Len
|
|
TurnerOffs = Machine.Offsets.OFFSETRIB or TurnerOffs
|
|
if Machine.Offsets.OFFSETX then DeltaTabY = - Machine.Offsets.OFFSETX end
|
|
if Machine.Offsets.OFFSETZ then DeltaTabZ = Machine.Offsets.OFFSETZ + EgtIf( NumericalControl == 'TPA', MillOffs, 0) end
|
|
if Machine.Offsets.SECSUP then SecondSupport = Machine.Offsets.SECSUP end
|
|
if Machine.Offsets.BLOCKHAUS then SpecialBH = ( Machine.Offsets.BLOCKHAUS == 1) end
|
|
if Machine.Offsets.RIB_AUTO then AutomaticRotation = ( Machine.Offsets.RIB_AUTO == 1) end
|
|
if Machine.Offsets.NOULOAD then MaxUnloadLen = Machine.Offsets.NOULOAD end
|
|
if Machine.Offsets.DEFTCPOS then DefTcPos = ( 'T' .. Machine.Offsets.DEFTCPOS) end
|
|
if Machine.Offsets.WOOD_DENSITY then WoodDensity = Machine.Offsets.WOOD_DENSITY end
|
|
if Machine.Offsets.MIN_JOIN_VV then MinJoinVV = Machine.Offsets.MIN_JOIN_VV end
|
|
if Machine.Offsets.MIN_JOIN_SS then MinJoinSS = Machine.Offsets.MIN_JOIN_SS end
|
|
if Machine.Offsets.MIN_JOIN_LS then MinJoinLS = Machine.Offsets.MIN_JOIN_LS end
|
|
if Machine.Offsets.MIN_JOIN_SL then MinJoinSL = Machine.Offsets.MIN_JOIN_SL end
|
|
if Machine.Offsets.MIN_JOIN_LL then MinJoinLL = Machine.Offsets.MIN_JOIN_LL end
|
|
if Machine.Offsets.NEWTOPC then NewTopC = ( Machine.Offsets.NEWTOPC == 1) end
|
|
end
|
|
end
|
|
end
|
|
if SpecialBH then SecondSupport = 0 end
|
|
|
|
EmtGeneral {
|
|
File='Essetre-FAST.nge',
|
|
Offset = Vector3d( 0, 1150.16, -1500.0),
|
|
AxisMaxAdjust = 30,
|
|
AxisMaxRotAdj = 0.5,
|
|
ExitMaxAdjust = 30,
|
|
ExitMaxRotAdj = 0.5,
|
|
AngDeltaMinForHome = 165,
|
|
Special = 'Common_FAST.mlse',
|
|
Processor = 'Common_FAST.mlpe'}
|
|
local BaseId = EmtBase {
|
|
Name = 'Base',
|
|
Geo='BASE/GEO',
|
|
Aux={'BASE/SOLID', 'BASE/TC', 'BASE/SIGN', 'BASE/COLLISION'}}
|
|
local XId = EmtAxis {
|
|
Name = 'X',
|
|
Parent = 'Base',
|
|
Invert = true,
|
|
Type = MCH_AT.LINEAR,
|
|
Dir = Y_AX(),
|
|
Pos = Point3d( -639.5, 372.66, 945.7),
|
|
Stroke = {MinX, MaxX},
|
|
Home = 0,
|
|
Geo = 'X_AXIS/GEO',
|
|
Aux = 'X_AXIS/SOLID'}
|
|
EmtAxis {
|
|
Name = 'Z',
|
|
Parent = 'X',
|
|
Type = MCH_AT.LINEAR,
|
|
Dir = Z_AX(),
|
|
Pos = Point3d( -19.25, -113.54, 790.0),
|
|
Stroke = {MinZ, MaxZ},
|
|
Home = MaxZ,
|
|
Geo = 'Z_AXIS/GEO',
|
|
Aux = {'Z_AXIS/SOLID', 'Z_AXIS/COLLISION'}}
|
|
local CId = EmtAxis {
|
|
Name = 'C',
|
|
Parent = 'Z',
|
|
Type = MCH_AT.ROTARY,
|
|
Dir = Z_AX(),
|
|
Pos = Point3d( 0, 0, 0),
|
|
Stroke = {MinC, MaxC},
|
|
Home = 0,
|
|
Geo = 'C_AXIS/GEO',
|
|
Aux = {'C_AXIS/SOLID', 'C_AXIS/COLLISION'}}
|
|
if NewTopC then
|
|
local vtMove = Vector3d( 65,0,0)
|
|
local SolidArmId = EgtGetFirstNameInGroup( EgtGetFirstNameInGroup( CId, 'SOLID'), 'ARM')
|
|
if EgtSurfTmMoveFacet then
|
|
EgtSurfTmMoveFacet( SolidArmId, 11, vtMove, GDB_RT.GLOB)
|
|
else
|
|
EgtSurfTmMoveVertex( SolidArmId, 23, EgtSurfTmGetVertex( SolidArmId, 23, GDB_RT.GLOB) + vtMove, GDB_RT.GLOB)
|
|
EgtSurfTmMoveVertex( SolidArmId, 25, EgtSurfTmGetVertex( SolidArmId, 25, GDB_RT.GLOB) + vtMove, GDB_RT.GLOB)
|
|
EgtSurfTmMoveVertex( SolidArmId, 35, EgtSurfTmGetVertex( SolidArmId, 35, GDB_RT.GLOB) + vtMove, GDB_RT.GLOB)
|
|
EgtSurfTmMoveVertex( SolidArmId, 36, EgtSurfTmGetVertex( SolidArmId, 36, GDB_RT.GLOB) + vtMove, GDB_RT.GLOB)
|
|
end
|
|
local CollTopId = EgtGetFirstNameInGroup( EgtGetFirstNameInGroup( CId, 'COLLISION'), 'TOP')
|
|
EgtMove( CollTopId, vtMove, GDB_RT.GLOB)
|
|
EgtSetName( CollTopId, 'BOX')
|
|
else
|
|
local CollTopId = EgtGetFirstNameInGroup( EgtGetFirstNameInGroup( CId, 'COLLISION'), 'TOP')
|
|
EgtSetName( CollTopId, 'BOX')
|
|
end
|
|
EmtAxis {
|
|
Name = 'B',
|
|
Parent = 'C',
|
|
Type = MCH_AT.ROTARY,
|
|
Dir = X_AX(),
|
|
Pos = Point3d( 0, 0, MillOffs),
|
|
Stroke = {MinB, MaxB},
|
|
Home = 0,
|
|
Geo = 'B_AXIS/GEO',
|
|
Aux = {'B_AXIS/SOLID', 'B_AXIS/COLLISION'}}
|
|
-- Frese
|
|
local H1Id = EmtHead {
|
|
Name = 'H1',
|
|
Parent = 'B',
|
|
HSet = 'H1',
|
|
Type = MCH_HT.STD,
|
|
Pos = Point3d( 0, 0, 0),
|
|
TDir = Z_AX(),
|
|
ADir = X_AX(),
|
|
Rot1W = 2,
|
|
OthColl = {'H2', 'B/SOLID', 'C/SOLID'},
|
|
Geo = 'H1_HEAD/GEO'}
|
|
EgtSetInfo( H1Id, 'ZMAXONROT', '1,60')
|
|
if BeamHeightForFixRot < 1000 then
|
|
EgtSetInfo( H1Id, 'ROTATZMAX', '1')
|
|
end
|
|
-- Lama
|
|
local H2Id = EmtHead {
|
|
Name = 'H2',
|
|
Parent = 'B',
|
|
HSet = 'H2',
|
|
Type = MCH_HT.STD,
|
|
Pos = Point3d( 0, 0, ( MillOffs - SawOffs)),
|
|
TDir = VectorFromRotated( -Z_AX(), X_AX(), -SawBOffs),
|
|
ADir = X_AX(),
|
|
Rot1W = 0.2,
|
|
OthColl = {'H1', 'H3', 'B/SOLID', 'C/SOLID'},
|
|
Geo = 'H2_HEAD/GEO'}
|
|
EgtSetInfo( H2Id, 'ZMAXONROT', '1,5')
|
|
if BeamHeightForFixRot < 1000 then
|
|
EgtSetInfo( H2Id, 'ROTATZMAX', '1')
|
|
end
|
|
-- Sega a catena
|
|
EmtAxis {
|
|
Name = 'A',
|
|
Parent = 'B',
|
|
Token = '**',
|
|
Type = MCH_AT.ROTARY,
|
|
Dir = Z_AX(),
|
|
Pos = Point3d( 0, 0, 0),
|
|
Stroke = { 0, 270},
|
|
Home = 0,
|
|
Geo = 'A_AXIS/GEO'}
|
|
local H3Id = EmtHead {
|
|
Name = 'H3',
|
|
Parent = 'A',
|
|
HSet = 'H1',
|
|
Type = MCH_HT.STD,
|
|
Pos = Point3d( 0, 0, -ChSawLen),
|
|
TDir = X_AX(),
|
|
ADir = Z_AX(),
|
|
Rot1W = 0.2,
|
|
SolCh = MCH_SCC.ADIR_NEAR,
|
|
OthColl = {'H2', 'B/SOLID', 'C/SOLID'},
|
|
Geo = 'H3_HEAD/GEO'}
|
|
EgtSetInfo( H3Id, 'ZMAXONROT', '1,5')
|
|
if BeamHeightForFixRot < 1000 then
|
|
EgtSetInfo( H3Id, 'ROTATZMAX', '1')
|
|
end
|
|
-- Eventuale rinvio angolare
|
|
if SecondSupport >= 3 then
|
|
local H5Id = EmtHead {
|
|
Name = 'H5',
|
|
Parent = 'B',
|
|
HSet = 'H1',
|
|
Type = MCH_HT.MULTI,
|
|
ExitNbr = 2,
|
|
Pos1 = Point3d( 0, -AngTr1Len, -AngTr1Offs),
|
|
TDir1 = Y_AX(),
|
|
Pos2 = Point3d( 0, AngTr1Len, -AngTr1Offs),
|
|
TDir2 = -Y_AX(),
|
|
ADir = Z_AX(),
|
|
Rot1W = 0.2,
|
|
Rot2Stroke = { -120, 120},
|
|
OthColl = { 'H2', 'B/SOLID', 'C/SOLID'},
|
|
Geo = 'H5_HEAD/GEO',
|
|
Aux = {'H5_HEAD/SOLID', 'H5_HEAD/COLLISION'}}
|
|
EgtSetInfo( H5Id, 'AGB_TYPE', 2)
|
|
EgtSetInfo( H5Id, 'AGB_DMAX', 240)
|
|
EgtSetInfo( H5Id, 'AGB_ENCH', 44)
|
|
EgtSetInfo( H5Id, 'AGB_ENCV', 380)
|
|
EgtSetInfo( H5Id, 'AGB_MDIR', X_AX())
|
|
EgtSetInfo( H5Id, 'ZMAXONROT', '1,15')
|
|
end
|
|
-- Morse
|
|
local YId = EmtAxis {
|
|
Name = 'Y',
|
|
Parent = 'Base',
|
|
Type = MCH_AT.LINEAR,
|
|
Dir = -X_AX(),
|
|
Pos = Point3d( -953.0, 111.75, 1450.0),
|
|
Stroke = { MinY, MaxY},
|
|
Home = ParkY,
|
|
Geo = 'Y_AXIS/GEO',
|
|
Aux = {'Y_AXIS/SOLID', 'Y_AXIS/COLLISION'}}
|
|
local PYId = EmtAxis {
|
|
Name = 'PY',
|
|
Parent = 'Y',
|
|
Type = MCH_AT.LINEAR,
|
|
Dir = -Y_AX(),
|
|
Pos = Point3d( -904.0, -276.5, 1449.0),
|
|
Stroke = { 0, MaxOpen},
|
|
Home = MaxOpen,
|
|
Geo = 'PY_AXIS/GEO',
|
|
Aux = {'PY_AXIS/SOLID', 'PY_AXIS/COLLISION'}}
|
|
local VId = EmtAxis {
|
|
Name = 'V',
|
|
Parent = 'Base',
|
|
Type = MCH_AT.LINEAR,
|
|
Dir = -X_AX(),
|
|
Pos = Point3d( 953.0, 111.75, 1450.0),
|
|
Stroke = { MinV, MaxV},
|
|
Home = ParkV,
|
|
Geo = 'V_AXIS/GEO',
|
|
Aux = {'V_AXIS/SOLID', 'V_AXIS/COLLISION'}}
|
|
local PVId = EmtAxis {
|
|
Name = 'PV',
|
|
Parent = 'V',
|
|
Type = MCH_AT.LINEAR,
|
|
Dir = -Y_AX(),
|
|
Pos = Point3d( 904.0, -276.5, 1449.0),
|
|
Stroke = { 0, MaxOpen},
|
|
Home = MaxOpen,
|
|
Geo = 'PV_AXIS/GEO',
|
|
Aux = {'PV_AXIS/SOLID', 'PV_AXIS/COLLISION'}}
|
|
EmtAxis {
|
|
Name = 'T',
|
|
Parent = 'Base',
|
|
--Token = '**',
|
|
Type = MCH_AT.LINEAR,
|
|
Dir = - X_AX(),
|
|
Pos = Point3d( 0, 613.16, -830.037),
|
|
Stroke = { -30000, 30000},
|
|
Home = LoadT,
|
|
Geo = 'T_AXIS/GEO'}
|
|
EmtTable {
|
|
Name = 'Tab',
|
|
Parent = 'T',
|
|
Type = MCH_TT.FLAT,
|
|
Ref1 = Point3d( -DimTabX, DeltaTabY - DimTabY, DeltaTabZ),
|
|
Scale = { DimTabX / 20000, DimTabY / 400, 1},
|
|
Geo = 'TABLE/GEO',
|
|
Aux = 'TABLE/SOLID'}
|
|
-- ToolChanger
|
|
EmtTcPos {
|
|
Name = 'T1',
|
|
Parent = 'Base',
|
|
Pos = Point3d( 523.8, 88.0, 172.5),
|
|
TDir = -X_AX(),
|
|
ADir = -Y_AX(),
|
|
Geo = 'BASE/T1'}
|
|
EmtTcPos {
|
|
Name = 'T2',
|
|
Parent = 'Base',
|
|
Pos = Point3d( 523.8, 88.0, 67.5),
|
|
TDir = -X_AX(),
|
|
ADir = -Y_AX(),
|
|
Geo = 'BASE/T2'}
|
|
EmtTcPos {
|
|
Name = 'T3',
|
|
Parent = 'Base',
|
|
Pos = Point3d( 523.8, 88.0, -37.5),
|
|
TDir = -X_AX(),
|
|
ADir = -Y_AX(),
|
|
Geo = 'BASE/T3'}
|
|
EmtTcPos {
|
|
Name = 'T4',
|
|
Parent = 'Base',
|
|
Pos = Point3d( 523.8, 88.0, -142.5),
|
|
TDir = -X_AX(),
|
|
ADir = -Y_AX(),
|
|
Geo = 'BASE/T4'}
|
|
EmtTcPos {
|
|
Name = 'T5',
|
|
Parent = 'Base',
|
|
Pos = Point3d( 523.8, 88.0, -247.5),
|
|
TDir = -X_AX(),
|
|
ADir = -Y_AX(),
|
|
Geo = 'BASE/T5'}
|
|
EmtTcPos {
|
|
Name = 'T6',
|
|
Parent = 'Base',
|
|
Pos = Point3d( 523.8, 88.0, -352.5),
|
|
TDir = -X_AX(),
|
|
ADir = -Y_AX(),
|
|
Geo = 'BASE/T6'}
|
|
EmtTcPos {
|
|
Name = 'T7',
|
|
Parent = 'Base',
|
|
Pos = Point3d( 523.8, 88.0, -457.5),
|
|
TDir = -X_AX(),
|
|
ADir = -Y_AX(),
|
|
Geo = 'BASE/T7'}
|
|
EmtTcPos {
|
|
Name = 'T8',
|
|
Parent = 'Base',
|
|
Pos = Point3d( 523.8, 88.0, -562.5),
|
|
TDir = -X_AX(),
|
|
ADir = -Y_AX(),
|
|
Geo = 'BASE/T8'}
|
|
EmtTcPos {
|
|
Name = 'T9',
|
|
Parent = 'Base',
|
|
Pos = Point3d( 523.8, 88.0, -667.5),
|
|
TDir = -X_AX(),
|
|
ADir = -Y_AX(),
|
|
Geo = 'BASE/T9'}
|
|
EmtTcPos {
|
|
Name = 'T10',
|
|
Parent = 'Base',
|
|
Pos = Point3d( 523.8, 88.0, -772.5),
|
|
TDir = -X_AX(),
|
|
ADir = -Y_AX(),
|
|
Geo = 'BASE/T10'}
|
|
EmtTcPos {
|
|
Name = 'T11',
|
|
Parent = 'Base',
|
|
Pos = Point3d( 523.8, 88.0, -877.5),
|
|
TDir = -X_AX(),
|
|
ADir = -Y_AX(),
|
|
Geo = 'BASE/T11'}
|
|
if not SpecialBH then
|
|
EmtTcPos {
|
|
Name = 'T101',
|
|
Parent = 'Base',
|
|
Pos = Point3d( -510.4, 113.2, -160.8),
|
|
TDir = X_AX(),
|
|
ADir = Z_AX(),
|
|
Geo = 'BASE/T101'}
|
|
else
|
|
EmtTcPos {
|
|
Name = 'T101',
|
|
Parent = 'Base',
|
|
Pos = Point3d( -510.4, 113.2, -1160.8),
|
|
TDir = X_AX(),
|
|
ADir = Z_AX(),
|
|
Geo = 'BASE/T101S'}
|
|
end
|
|
if SecondSupport == 1 then
|
|
-- supporto per punta
|
|
EmtTcPos {
|
|
Name = 'T111',
|
|
Parent = 'Base',
|
|
Pos = Point3d( -510.4, 113.2, -329.8),
|
|
TDir = Z_AX(),
|
|
ADir = X_AX(),
|
|
Geo = 'BASE/T111'}
|
|
elseif SecondSupport == 2 then
|
|
-- supporto per mortasatrice
|
|
local TcpSsId = EmtTcPos {
|
|
Name = 'T111',
|
|
Parent = 'Base',
|
|
Pos = Point3d( -510.4, 113.2, -430.8),
|
|
TDir = X_AX(),
|
|
ADir = Z_AX(),
|
|
Geo = 'BASE/T111M'}
|
|
EgtSetInfo( TcpSsId, 'Mortiser', true)
|
|
elseif SecondSupport == 3 then
|
|
-- supporto per rinvio angolare
|
|
local TcpSsId = EmtTcPos {
|
|
Name = 'T91',
|
|
Parent = 'Base',
|
|
ExitNbr = 2,
|
|
Pos1 = Point3d( -710.4-150, 113.2, -329.8-170),
|
|
TDir1 = X_AX(),
|
|
Pos2 = Point3d( -710.4+150, 113.2, -329.8-170),
|
|
TDir2 = -X_AX(),
|
|
ADir = Z_AX(),
|
|
Geo = 'BASE/T91',
|
|
Aux = 'BASE/T91_HS'}
|
|
end
|
|
if SpecialBH then
|
|
EmtTcPos {
|
|
Name = 'T111',
|
|
Parent = 'Base',
|
|
Pos = Point3d( -810.4, 113.2, -329.8),
|
|
TDir = Y_AX(),
|
|
ADir = X_AX(),
|
|
Geo = 'BASE/T111S'}
|
|
end
|
|
|
|
-- Aggiusto posizioni geometriche
|
|
local vtMove = Vector3d( 0, ( DeltaTabY - 913.16), ( DeltaTabZ + 830.037))
|
|
local vtMoveX = Vector3d( 0, 0, ( DeltaTabZ + 830.037))
|
|
EgtMove( EgtGetFirstNameInGroup( BaseId, 'SOLID'), vtMove, GDB_RT.GLOB)
|
|
EgtMove( EgtGetFirstNameInGroup( BaseId, 'TC'), vtMove, GDB_RT.GLOB)
|
|
EgtMove( EgtGetFirstNameInGroup( BaseId, 'SIGN'), vtMove, GDB_RT.GLOB)
|
|
EgtMove( EgtGetFirstNameInGroup( BaseId, 'COLLISION'), vtMove, GDB_RT.GLOB)
|
|
EgtMove( EgtGetFirstNameInGroup( YId, 'SOLID'), vtMove, GDB_RT.GLOB)
|
|
EgtMove( EgtGetFirstNameInGroup( YId, 'COLLISION'), vtMove, GDB_RT.GLOB)
|
|
EgtMove( EgtGetFirstNameInGroup( PYId, 'SOLID'), vtMove, GDB_RT.GLOB)
|
|
EgtMove( EgtGetFirstNameInGroup( PYId, 'COLLISION'), vtMove, GDB_RT.GLOB)
|
|
EgtMove( EgtGetFirstNameInGroup( VId, 'SOLID'), vtMove, GDB_RT.GLOB)
|
|
EgtMove( EgtGetFirstNameInGroup( VId, 'COLLISION'), vtMove, GDB_RT.GLOB)
|
|
EgtMove( EgtGetFirstNameInGroup( PVId, 'SOLID'), vtMove, GDB_RT.GLOB)
|
|
EgtMove( EgtGetFirstNameInGroup( PVId, 'COLLISION'), vtMove, GDB_RT.GLOB)
|
|
EgtMove( EgtGetFirstNameInGroup( XId, 'SOLID'), vtMoveX, GDB_RT.GLOB)
|
|
|
|
-- Assegno identificativi alle spie delle morse
|
|
PYLightId = EgtGetFirstNameInGroup( EgtGetFirstNameInGroup( PYId, 'SOLID') or GDB_ID.NULL, 'Light')
|
|
PVLightId = EgtGetFirstNameInGroup( EgtGetFirstNameInGroup( PVId, 'SOLID') or GDB_ID.NULL, 'Light')
|
|
|
|
---------------------------------------------------------------------
|
|
-- Funzioni richiamate per modificare i dati macchina in casi particolari
|
|
--function OnSetTable()
|
|
--end
|
|
|
|
---------------------------------------------------------------------
|
|
function OnSetHead()
|
|
-- se testa lama
|
|
if EMC.HEAD == 'H2' then
|
|
EmtModifyAxisDirection( 'B', VectorFromRotated( X_AX(), Z_AX(), -SawCOffs))
|
|
-- altrimenti
|
|
else
|
|
EmtModifyAxisDirection( 'B', X_AX())
|
|
if EMC.HEAD == 'H3' then
|
|
local dDist = EgtIf( EMC.DIST and abs( EMC.DIST) > 1, EMC.DIST, ChSawLen)
|
|
EmtModifyExitPosition( EMC.HEAD, EMC.EXIT, Point3d( 0, 0, -dDist))
|
|
if not EMC.VER or EMC.VER < '2.5h2' then
|
|
local vtMove = Point3d( 0, 0, -dDist) - Point3d( EMC.EXITPOS)
|
|
local ExitId = EgtGetFirstNameInGroup( EgtGetHeadId( EMC.HEAD), 'T'..tostring( EMC.EXIT))
|
|
EgtMove( ExitId, vtMove)
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
---------------------------------------------------------------------
|
|
-- Funzione per impostare spia stato morsa carrello Y
|
|
function SetPYLight( bClosed)
|
|
if not PYLightId then return end
|
|
EgtSetColor( PYLightId, EgtIf( bClosed, 'RED', 'LIME'))
|
|
if bClosed then
|
|
EgtSetInfo( PYLightId, 'On', '1')
|
|
else
|
|
EgtRemoveInfo( PYLightId, 'On')
|
|
end
|
|
end
|
|
|
|
---------------------------------------------------------------------
|
|
-- Funzione per leggere lo stato della morsa carrello Y
|
|
function GetPYLight()
|
|
if not PYLightId then return false end
|
|
return ( EgtGetInfo( PYLightId, 'On') == '1')
|
|
end
|
|
|
|
---------------------------------------------------------------------
|
|
-- Funzione per impostare spia stato morsa carrello V
|
|
function SetPVLight( bClosed)
|
|
if not PVLightId then return end
|
|
EgtSetColor( PVLightId, EgtIf( bClosed, 'RED', 'LIME'))
|
|
if bClosed then
|
|
EgtSetInfo( PVLightId, 'On', '1')
|
|
else
|
|
EgtRemoveInfo( PVLightId, 'On')
|
|
end
|
|
end
|
|
|
|
---------------------------------------------------------------------
|
|
-- Funzione per leggere lo stato della morsa carrello V
|
|
function GetPVLight()
|
|
if not PVLightId then return false end
|
|
return ( EgtGetInfo( PVLightId, 'On') == '1')
|
|
end
|
|
|
|
---------------------------------------------------------------------
|
|
-- Funzione per resettare tutte le attivazioni della macchina
|
|
function OnResetMachine()
|
|
EmtUnlinkAllRawPartsFromGroups()
|
|
EmtUnlinkAllFixturesFromGroups()
|
|
SetPYLight( false)
|
|
SetPVLight( false)
|
|
-- nascondo Vmill
|
|
local nRawId = EgtGetFirstRawPart()
|
|
while nRawId do
|
|
local nVmId = EgtGetFirstNameInGroup( nRawId, 'VMill')
|
|
local nId = EgtGetFirstInGroup( nRawId)
|
|
while nId do
|
|
EgtSetStatus( nId, EgtIf( nId ~= nVmId, GDB_ST.ON, GDB_ST.OFF))
|
|
nId = EgtGetNext( nId)
|
|
end
|
|
nRawId = EgtGetNextRawPart( nRawId)
|
|
end
|
|
EgtSetStatus( EgtGetFirstNameInGroup( GDB_ID.ROOT, 'VMill') or GDB_ID.NULL, GDB_ST.OFF)
|
|
end
|