DataBeam :
- modifiche per nuova interfaccia (Lele).
This commit is contained in:
+5
-2
@@ -188,20 +188,22 @@ while Raws.Count > 0 and PartsToFill( Parts) > 0 do
|
||||
EgtSetInfo(nMachGroup, "AUTONEST", 1)
|
||||
-- Disegno i pezzi
|
||||
local CurrX = Raws.StartGap
|
||||
local nInfoIndex = 1
|
||||
for i = 1, Res.DiffParts do
|
||||
local PartIndex = Res.Data[i].Id
|
||||
local PartId = Parts[PartIndex].Id
|
||||
local dLen = Parts[PartIndex].Len
|
||||
local dLen = Parts[PartIndex].Len
|
||||
for j = 1, Res.Data[i].Count do
|
||||
-- creo pezzo copia
|
||||
local nPartDuploId = EgtDuploNew(PartId)
|
||||
EgtSetInfo(nMachGroup, "PART" .. i, nPartDuploId .. "," .. CurrX)
|
||||
EgtSetInfo(nMachGroup, "PART" .. nInfoIndex, nPartDuploId .. "," .. CurrX)
|
||||
-- local PtId = EgtSurfFrRectangle( GDB_ID.CL, ptOrig + Vector3d( CurrX, 10, 0), ptOrig + Vector3d( CurrX + dLen, 190, 0))
|
||||
-- EgtSetColor( PtId, Color3d( 256 - 4 * PartId, 16 * PartId, 8 * PartId, 40))
|
||||
-- EgtExtractSurfFrChunkLoops( PtId, 0, EgtGetParent( PtId))
|
||||
-- local sText = string.format( 'P%d (%.0f)', Res.Data[i].Id, Parts[Res.Data[i].Id].Len)
|
||||
-- EgtTextAdv( GDB_ID.CL, ptOrig + Vector3d( CurrX + 0.5 * dLen, 100,0), 0, sText, 'ModernPropS.Nfe', 100, 'S', 60, 0.8, 0, GDB_TI.MC)
|
||||
CurrX = CurrX + dLen + Raws.MidGap
|
||||
nInfoIndex = nInfoIndex + 1
|
||||
end
|
||||
end
|
||||
|
||||
@@ -227,6 +229,7 @@ while nMachGroup do
|
||||
EgtSetCurrMachGroup(nMachGroup)
|
||||
if EgtGetInfo(nMachGroup, "AUTONEST",'i') == 1 then
|
||||
EgtSetInfo(nMachGroup, "AUTONEST", "")
|
||||
EgtSetInfo(nMachGroup, "UPDATEUI", 1)
|
||||
dofile(EgtGetSourceDir() .. "BatchProcessNew.lua")
|
||||
end
|
||||
nMachGroup = EgtGetNextMachGroup(nMachGroup)
|
||||
|
||||
Reference in New Issue
Block a user