- colori pezzi serramenti uniformi
- piccole modifiche per utilizzo manuale da EgtCAM5.
This commit is contained in:
Dario Sassi
2026-07-24 16:28:07 +02:00
parent 4ae5012c67
commit 2254a52cb0
4 changed files with 36 additions and 35 deletions
+14 -8
View File
@@ -3710,13 +3710,14 @@ local function CreateOutlinePart( nOutlineId, sName, dDim, nBottomRail)
EgtSetName( nPartId, sPartName)
-- imposto colore
if sOutlineName == WIN_BOTTOM or sOutlineName == WIN_TOP or nBottomRail then
EgtSetColor( nPartId, Color3d( 204, 102, 0))
elseif sOutlineName == WIN_RIGHT or sOutlineName == WIN_LEFT then
EgtSetColor( nPartId, Color3d( 251, 128, 4))
else
EgtSetColor( nPartId, Color3d( 255, 159, 57))
end
EgtSetColor( nPartId, Color3d( 204, 102, 0))
--if sOutlineName == WIN_BOTTOM or sOutlineName == WIN_TOP or nBottomRail then
-- EgtSetColor( nPartId, Color3d( 204, 102, 0))
--elseif sOutlineName == WIN_RIGHT or sOutlineName == WIN_LEFT then
-- EgtSetColor( nPartId, Color3d( 251, 128, 4))
--else
-- EgtSetColor( nPartId, Color3d( 255, 159, 57))
--end
-- creo il profilo associato al pezzo con la dimensione opportuna
CreatePartProfile( nPartId, nOutlineId, dDim, nBottomRail)
@@ -4927,6 +4928,7 @@ local function CalcGeo( nPartId, nOutlineId)
-- creo layer per ingombro
local nGeoLayerId = EgtGroup( nPartId)
EgtSetName( nGeoLayerId, WIN_GEO)
EgtSetStatus( nGeoLayerId, GDB_ST.OFF)
-- recupero il tipo di giunzioni
local vStartJoints
@@ -4964,6 +4966,8 @@ local function CalcFillGeo( nPartId, nOutlineLayerId)
-- creo layer per ingombro
local nGeoLayerId = EgtGroup( nPartId)
EgtSetName( nGeoLayerId, WIN_GEO)
EgtSetStatus( nGeoLayerId, GDB_ST.OFF)
-- copio lati da Outline
local vOutlineIds = EgtGetAllInGroup( nOutlineLayerId)
for i = 1, #vOutlineIds do
@@ -6729,7 +6733,9 @@ local function CalcSolid( nPartId, nOutlineId)
for i = 1, #vTrimEnd do
EgtSurfTmIntersect( nMainExtrusionId, vTrimEnd[i])
end
EgtSurfTmSetShowEdges( nMainExtrusionId, true)
return nMainExtrusionId
end