Egalware/frontalini
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
develop2
frontalini/Frontalini_ecc/CompoAF/PCucinaB2.lua
T

294 lines
10 KiB
Lua
Raw Permalink Blame History

-- 2015/10/__
-- PIANO CUCINA CON LAVORAZIONE A A SPORGERE PER ANGOLO
-- Intestazioni
require('EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( false)
EgtAddToPackagePath(EgtGetSourceDir() .. 'LuaLibs\\?.lua')
require( 'EgtCompo')
local Nome = 'PCucinaB2'
-- Valori limite
local LgMin = 10 -- lati
local Q1Min = 10 -- profondità di sagomatura del profilo
local RdMin = 10 -- raggio
local AngMin =15
local AngMax = 180 - 1
-- Parametri : dichiarazione e valori standard
--.T (tipo) : 0=null, 1=bool, 2=int, 3=len, 4=num, 5=string
local CMP = {}
CMP.N1 = 'A' -- lato lungo muro
CMP.T1 = 3
CMP.V1 = 800
CMP.N2 = 'B' -- profondità lato muro
CMP.T2 = 3
CMP.V2 = 500
CMP.N3 = 'Z' -- profondità sagomatura bordo
CMP.T3 = 3
CMP.V3 = 30
CMP.N4 = 'R' -- raggio di raccordo
CMP.T4 = 3
CMP.V4 = 50
CMP.N5 = '←→' -- Simmetria dx/sx (true = svuotamento a dx)
CMP.T5 = 1
CMP.V5 = false
CMP.N6 = '↑↓' -- Simmetria su/giù ('ribaltamento') (true = 'L' capovolta)
CMP.T6 = 1
CMP.V6 = false
CMP.Npar = 6
CMP.Nome = Nome
CMP.WithInt = true
_G.CMP = CMP
-- Aggiorno con ultimi valori salvati (se presenti)
CMP.DATA = EgtGetSourceDir() .. CMP.Nome ..'.dat'
LoadCompoData()
function CMP_Draw(bPreview)
-- Carico i messaggi
local Msg = require('EgtCompoMsg')
-- Assegnazioni
local L1 = CMP.V1
local L6 = CMP.V2
local LR = CMP.V4
local LZ = CMP.V3
local Simm = CMP.V5
local Rib = CMP.V6
local K1 = sqrt(2)/2
local Kx = LR*K1
local Ky = LR - LR*K1
local L4 = LZ / K1
local L2 = L6 - Kx - LZ
local L5 = L1 - Ky - LZ
local L2label = 'D' -- lato verso pezzo PCucinaB1
local L5label = 'C' -- lunghezza interna lato muro
local D1label = 'd' -- diagonale
CMP.ERR = 0
CMP.MSG = ''
--Verifica di compatibilità dei dati di input
if L1 < LgMin then
L1 = LgMin
CMP.ERR = 1
CMP.MSG = Msg[2]..GetLenLimit(LgMin) --Le dimensioni dei lati devono essere > = a ...
end
if L6 < LgMin then
L6 = LgMin
if CMP.ERR == 0 then
CMP.ERR = 2
CMP.MSG = Msg[2]..GetLenLimit(LgMin) --Le dimensioni dei lati devono essere > = a...
end
end
if LZ < Q1Min then
LZ = Q1Min
if CMP.ERR == 0 then
CMP.ERR = 3
CMP.MSG = Msg[205]..GetLenLimit(Q1Min) --La quota Z deve essere > = di...
end
end
if LR < RdMin then
LR = RdMin
if CMP.ERR == 0 then
CMP.ERR = 4
CMP.MSG = Msg[206]..GetLenLimit(RMin) -- Il raggio R deve essere > = RMin
end
end
if L2 < LgMin then
L2 = LgMin L6 = L2 + Kx + LZ
if CMP.ERR == 0 then
CMP.ERR = 5
CMP.MSG = Msg[210]..GetLenLimit(LgMin) -- L2 risulterebbe minore di ..0
end
end
if L5 < LgMin then
L5 = LgMin L1 = L5 + Ky + LZ
if CMP.ERR == 0 then
CMP.ERR = 6
CMP.MSG = Msg[211]..GetLenLimit(LgMin) -- L5 risulterebbe troppo piccola
end
end
-- Se Preview cancello tutto
if bPreview then
EgtNewFile()
EgtSetDefaultMaterial( BLACK())
end
-- Pezzo e Layer
local Pz = EgtGroup(GDB_ID.ROOT,GDB_RT.LOC) -- pezzo
local Ly = EgtGroup(Pz,GDB_RT.LOC) -- layer della figura principale
EgtSetName(Ly,'OutLoop')
local Lr = EgtGroup(Pz,GDB_RT.LOC) -- layer regione
EgtSetName(Lr,'Region')
local Lc = EgtGroup(Pz,GDB_RT.LOC) -- layer di costruzione
local La = EgtGroup(Pz,GDB_RT.LOC) -- layer ausiliario (diagonali e relative etichette, assi)
EgtSetName(La,"LayAux")
local Le = EgtGroup(Pz,GDB_RT.LOC) -- layer delle etichette pezzo
EgtSetName(Le,"Etichette")
local Lq = EgtGroup(Pz,GDB_RT.LOC) -- layer delle linee di quotatura
EgtSetName(Lq,"Quotature")
EgtSetCurrPartLayer(Pz,Ly)
-- Costruzione della figura
local l1 = EgtLinePDL(Ly,ORIG()+Vector3d(0,L1,0),-90,L1)
EgtSetName(l1,"A1")
local l2 = EgtLinePDL(Ly,EgtEP(l1),0,L2)
local pC = EgtEP(l2) + Vector3d(0,1,0)*LR -- centro dell'arco di raccordo
local l3 = EgtArc(Ly,pC,LR,-90,45,0) -- arco di raccordo
local l4 = EgtLinePDL(Ly,EgtEP(l3),45,L4)
local l5 = EgtLinePDL(Ly,EgtEP(l4),90,L5)
EgtSetName(l5,"A3")
local l6 = EgtLine(Ly,EgtEP(l5),EgtSP(l1))
EgtSetName(l6,"A2")
-- diagonali e assi di simmetria
local d1, D1, a1
if CMP.ERR == 0 then
d1 = EgtLine(La,EgtEP(l1),EgtSP(l6))
D1 = EgtCurveLength(d1)
a1 = EgtLinePDL(La,EgtMP(l6),-90,L1)
end
if Lc then
EgtErase(Lc)
end
-- Riempimento della figura
local e1 = EgtCurveCompo(Ly,{l1,l2,l3,l4,l5,l6},false)
local s1 = EgtSurfFlatRegion(Lr,e1)
if CMP.ERR == 0 then
EgtSetColor(s1,AQUA())
else
EgtSetColor(s1,ORANGE())
end
EgtSetAlpha(s1,25)
EgtErase(e1)
local dim = EgtGetBBoxGlob(Ly,GDB_BB.STANDARD):getRadius() * 0.1
-- linee di quotatura
local pt local vr -- punto e vettore per costruzioni
pt = EgtEP(l2,Lq) + Vector3d(Kx,-dim,0)
local DimLineLZ = EgtLinePDL(Lq,pt,0,LZ)
EgtLinePDL(Lq,EgtSP(DimLineLZ)-Vector3d(0,dim*.25,0),90,dim/2) -- trattino di estensione
EgtLinePDL(Lq,EgtEP(DimLineLZ)-Vector3d(0,dim*.25,0),90,dim/2) -- trattino di estensione
pt = EgtMP(DimLineLZ,Lq)+Vector3d(0,-dim*.25,0)
local lnZ1 = EgtLinePDL(Lq,pt,-60,dim/2) -- trattino per direttrice
local lnZ2 = EgtLinePDL(Lq,EgtEP(lnZ1),-90,dim/2) -- " " "
-- raggio
pt = EgtMP(l3) vr = EgtMV(l3,Lq) --vr = VRotaded(EgtMV(l3,Lq),90) non può funzionare?
local DimLineR1 =EgtLine(Lq,pt+VRotated(-vr,-90)*2*dim,pt)
--local DimLineR2 =EgtLine(Lq,pt,pt+VRotated(-vr,90)*dim/2)
vr = EgtSV(DimLineR1,Lq) pt = EgtSP(DimLineR1)+vr*dim/2
local DimLineR3 = EgtLine(Lq,pt-VRotated(vr,90)*dim,pt)
pt = EgtEP(DimLineR1) vr = EgtEV(DimLineR1)
EgtLinePVL(Lq,pt,VRotated(-vr,-15),dim*.4) -- freccia di quotatura
EgtLinePVL(Lq,pt,VRotated(-vr, 15),dim*.4)
-- Simmetria orizzontale
if Simm then
--EgtMirror({Ly,Lr,La,Le,Lq},ORIG(),X_AX(),GDB_RT.GLOB)
GetAllSimm( Ly, Lr, La, Le, Lq)
EgtInvertCurve({l1,l2,l3,l4,l5,l6,d1})
EgtInvertCurve({DimLineLZ,lnZ2,DimLineR3})
EgtSetInfo(La,"SIMM","1")
end
-- Simmetria verticale ('ribaltamento')
if Rib then
--EgtMirror({Ly,Lr,La,Le,Lq},ORIG(),Y_AX(),GDB_RT.GLOB)
GetAllRib( Ly,Lr,La,Le,Lq)
EgtInvertCurve({l1,l2,l3,l4,l5,l6})
EgtInvertCurve({DimLineLZ,lnZ2})
EgtSetInfo(La,"RIB","1")
end
EgtReorderCurvesInGroup(Ly,ORIG())
-- Dimensioni dell'oggetto
local bbox = EgtGetBBoxGlob(Ly,GDB_BB.STANDARD)
local dimX = EgtToUiUnits(bbox:getDimX())
local dimY = EgtToUiUnits(bbox:getDimY())
dim = bbox:getRadius() * 0.1
if CMP.ERR == 0 then
CMP.MSG = Msg[1] .. EgtNumToString(dimX,2) .. ' x ' .. EgtNumToString(dimY,2)
end
local pVal
if Rib then
pVal= bbox:getMin() - Vector3d(0,dim*3,0)
else
pVal= bbox:getMin() - Vector3d(0,dim*4,0)
end
-- Dimensioni sull'oggetto
local ptP = 0.5 * ( bbox:getMin() + bbox:getMax())
local sDim = EgtNumToString(dimX,2) .. ' x ' .. EgtNumToString(dimY,2)
local dDim = bbox:getRadius() * 0.1
local dRot = 0
if dimY > dimX then
dRot = 90
end
local LbOn = AddLabelPnt(Lr,ptP,sDim,dDim,dRot,BLACK())
EgtSetStatus(LbOn,GDB_ST.OFF)
-- Etichette sulla figura
local stdoffset = 1
local LblL1 = AddLabel(Le,l1,stdoffset,CMP.N1,dim,-90,RED()) EgtSetInfo(LblL1,"Var",1)
local LblL6 = AddLabel(Le,l6,stdoffset*.75,CMP.N2,dim,-90,RED()) EgtSetInfo(LblL6,"Var",2)
local LblLR = AddLabelAl(Le,DimLineR3,stdoffset*.0,CMP.N4,dim*.8,90,RED()) EgtSetInfo(LblLR,"Var",3)
EgtErase(DimLineR3)
local LblLZ = AddLabel(Le,lnZ2,stdoffset*.5,CMP.N3,dim,90,RED()) EgtSetInfo(LblLZ,"Var",4)
EgtErase(lnZ2)
local LblL2 = AddLabel(Le,l2,stdoffset,L2label,dim*.75,-90,GREEN())
local LblL5 = AddLabel(Le,l5,stdoffset,L5label,dim*.75,-90,GREEN())
if CMP.ERR == 0 then
LblD1 = AddLabelAl(La,d1,stdoffset*.75,D1label,dim/2,90,GREEN())
end
-- Etichette sotto la figura
local lLenL2 = EgtToUiUnits(L2)
local sLenL2 = EgtNumToString(lLenL2,1)
local ValL2 = EgtTextAdv(Le,pVal,0,L2label..'='..sLenL2,'',100,'S',dim*.75,1,0,GDB_TI.BL,GDB_RT.GLOB)
EgtSetColor(ValL2,GREEN())
EgtSetStatus(ValL2,GDB_ST.SEL)
local ValL2Len = (EgtEP(ValL2,GDB_RT.GLOB)-EgtSP(ValL2,GDB_RT.GLOB)):getX() + dim/2
pVal = pVal + Vector3d(ValL2Len,0,0)
local lLenL5 = EgtToUiUnits(L5)
local sLenL5 = EgtNumToString(lLenL5,1)
local ValL5 = EgtTextAdv(Le,pVal,0,L5label..'='..sLenL5,'',100,'S',dim*.75,1,0,GDB_TI.BL,GDB_RT.GLOB)
EgtSetColor(ValL5,GREEN())
EgtSetStatus(ValL5,GDB_ST.SEL)
local ValL5Len = (EgtEP(ValL5,GDB_RT.GLOB)-EgtSP(ValL5,GDB_RT.GLOB)):getX() + dim/2
pVal = pVal + Vector3d(ValL5Len,0,0)
if CMP.ERR == 0 then
local lLenD1 = EgtToUiUnits(D1)
local sLenD1 = EgtNumToString(lLenD1,1)
local ValD1 = EgtTextAdv(La,pVal,0,D1label..'='..sLenD1,'',100,'S',dim*.5,1,0,GDB_TI.BL,GDB_RT.GLOB)
EgtSetColor(ValD1,GREEN())
EgtSetStatus(ValD1,GDB_ST.SEL)
end
-- Se non Preview
if not bPreview then
-- cancello etichette e parti ausiliarie (es.: altezze, diagonali )
EgtErase({La,Le,Lq})
-- rendo visibile label sul pezzo
EgtSetStatus(LbOn,GDB_ST.ON)
end
-- Se ok
if CMP.ERR == 0 then
-- scrivo i parametri nelle info del pezzo
WriteCompoDataToPart(Pz,CMP.Nome,CMP.Npar)
-- salvo i parametri come nuovo default
SaveCompoData(CMP.Npar)
end
end
_G.CMP_Draw = CMP_Draw
CMP_Draw(true)
EgtZoom(SCE_ZM.ALL)
Reference in New Issue View Git Blame Copy Permalink