DataWindow :
- aggiunta preview soglia.
This commit is contained in:
@@ -7099,6 +7099,22 @@ local function CalcFillPreview( nPartId, nPreviewGrp)
|
||||
EgtErase( nCompoOutlineId)
|
||||
end
|
||||
|
||||
----------------------------------------------------------------------------------
|
||||
local function CalcThresholdPreview( nAreaId, nPreviewGrp)
|
||||
-- recupero il bottom del telaio
|
||||
local nOutlineGrpId = EgtGetFirstNameInGroup( nAreaId, WIN_OUTLINE)
|
||||
local nBottomId = EgtGetFirstNameInGroup( nOutlineGrpId, WIN_BOTTOM)
|
||||
local nProfileId = GetOutlineProfileId( nBottomId, false)
|
||||
local b3Profile = GetProfileLocalBox( nProfileId)
|
||||
-- creo il rettangolo della soglia e lo posiziono sullo sfondo
|
||||
local ptOrig = EgtSP( nBottomId)
|
||||
local nSurfId = EgtSurfFrRectangle( nPreviewGrp, ptOrig, ptOrig + EgtCurveLength( nBottomId) * X_AX() + b3Profile:getDimX() * Y_AX())
|
||||
EgtSetColor( nSurfId, Color3d( 128, 128, 128))
|
||||
EgtMove( nSurfId, - 500 * Z_AX())
|
||||
local nCompoId = EgtExtractSurfFrChunkLoops( nSurfId, 0, nPreviewGrp)
|
||||
EgtSetColor( nCompoId, EgtStdColor( 'BLACK'))
|
||||
end
|
||||
|
||||
----------------------------------------------------------------------------------
|
||||
local function CalcHardwarePreview( nAreaId, nPreviewGrp)
|
||||
|
||||
@@ -7163,6 +7179,12 @@ local function CalcPreview( nFrameId)
|
||||
nPartId = EgtGetNextPart( nPartId)
|
||||
end
|
||||
|
||||
-- preview soglia
|
||||
local bThreshold = EgtGetInfo( nFrameId, WIN_THRESHOLD, 'b') or false
|
||||
if bThreshold then
|
||||
CalcThresholdPreview( nFrameId, nPreviewGrp)
|
||||
end
|
||||
|
||||
-- copio i disegni di apertura delle ante dal gruppo delle aree
|
||||
local vStack = { nFrameId}
|
||||
local i = 1
|
||||
|
||||
Reference in New Issue
Block a user