- modifiche per aggiunta strategia BladePlusChain

- in BeamExec versione  primordiale di FindBlade
This commit is contained in:
luca.mazzoleni
2024-05-17 18:45:36 +02:00
parent 5dcc75587d
commit 7165db47f6
8 changed files with 948 additions and 52 deletions
+6 -1
View File
@@ -120,6 +120,7 @@ function FaceData.GetFacesInfo( Proc, Part)
local frHV, dFaceWidth, dFaceHeight = BeamLib.GetFaceHvRefDim( Proc.id, i - 1, Part)
-- frame OCS faccia
Faces[i].vtFrameHV = frHV
-- TODO valutare se Width e Height si possono rimuovere
-- larghezza OCS faccia
Faces[i].dWidth = dFaceWidth
-- altezza OCS faccia
@@ -195,6 +196,7 @@ local function GetTunnelFaces( Proc)
EgtCutSurfTmPlane( TunnelAddedFaces.MiddleFaceTm.id, Proc.Faces[i].ptCenter, -Proc.Faces[i].vtN, false, GDB_ID.ROOT)
end
TunnelAddedFaces.MiddleFaceTm.Type = 'Tunnel'
-- TODO aggiungere anche informazioni Edges tunnel??
return TunnelAddedFaces
end
@@ -379,6 +381,8 @@ local function GetSideFaces( Proc, MainFaces)
error( 'GetSideFaces : Topology not implemented')
end
-- TODO da sistemare come Bottom e Long
local idBottomFace = GDB_ID.NULL
if Proc.Topology.sFamily ~= 'Tunnel' then
if MainFaces.BottomFace then
@@ -396,7 +400,6 @@ local function GetSideFaces( Proc, MainFaces)
LongFaces = GetLongFaces( Proc, MainFaces)
end
for i = 1, Proc.nFct do
if not idBottomFace or i ~= ( idBottomFace + 1) then
local bIsSideFace = true
@@ -413,6 +416,8 @@ local function GetSideFaces( Proc, MainFaces)
end
end
-- TODO aggiungere anche informazioni Edges??
return SideFaces
end