DarioS
110 lines
3.7 KiB
Lua
110 lines
3.7 KiB
Lua
-- RunPartPositioning.lua by Egaltech s.r.l. 2022/04/13
|
|
-- Gestione calcolo disposizione e lavorazioni per stampa 3d
|
|
-- 2022/03/21 Creazione file
|
|
|
|
-- Tabella per definizione modulo
|
|
local RunPartPositioning = {}
|
|
|
|
-- Intestazioni
|
|
require( 'EgtBase')
|
|
|
|
EgtOutLog( ' RunPartPositioning started', 1)
|
|
|
|
-- Costanti generali
|
|
local AMD = require( 'AddManData')
|
|
|
|
function RunPartPositioning.Exec()
|
|
-- Recupero ultimo oggetto selezionato
|
|
local nPartId = EgtGetParent(EgtGetParent( EgtGetLastSelectedObj()))
|
|
-- verifico sia un pezzo valido
|
|
if nPartId then
|
|
local nParentId = EgtGetParent( nPartId)
|
|
while nParentId ~= GDB_ID.ROOT do
|
|
nPartId = nParentId
|
|
nParentId = EgtGetParent( nPartId)
|
|
end
|
|
if EgtIsPart( nPartId) then
|
|
local sName = EgtGetName( nPartId)
|
|
if sName == TABLE then
|
|
EgtOutBox( 'No selected part. Please select a part before moving it on the table.', 'Warning', 'WARNING')
|
|
return
|
|
end
|
|
else
|
|
EgtOutBox( 'No selected part. Please select a part before moving it on the table.', 'Warning', 'WARNING')
|
|
return
|
|
end
|
|
else
|
|
EgtOutBox( 'No selected part. Please select a part before moving it on the table.', 'Warning', 'WARNING')
|
|
return
|
|
end
|
|
|
|
-- gli assegno nome pezzo e layer
|
|
if not EgtGetName( nPartId) then
|
|
local nPartIndex = 1
|
|
while EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex) do
|
|
nPartIndex = nPartIndex + 1
|
|
end
|
|
EgtSetName( nPartId, PART .. nPartIndex)
|
|
local nLayerId = EgtGetFirstInGroup( nPartId)
|
|
EgtSetName( nLayerId, ORIGINAL_SOLID)
|
|
end
|
|
|
|
-- Recupero dati tavola (creando gruppo di lavoro temporaneo)
|
|
local nQqqId = EgtAddMachGroup( 'qqq')
|
|
EgtSetTable( 'Tab')
|
|
local b3Tab = EgtGetTableArea()
|
|
dTabX = b3Tab:getDimX()
|
|
dTabY = b3Tab:getDimY()
|
|
EgtRemoveMachGroup( nQqqId or GDB_ID.NULL)
|
|
|
|
-- Richiedo coordinata posizionamento pezzo
|
|
local b3Part = EgtGetBBoxGlob( nPartId, GDB_BB.EXACT)
|
|
local dPosX = b3Tab:getDimX() / 2
|
|
local dPosY = b3Tab:getDimY() / 2
|
|
local Positions = EgtDialogBox( 'Part position on table:', { 'X', EgtNumToString( EgtToUiUnits(dPosX), 1)}, { 'Y', EgtNumToString( EgtToUiUnits(dPosY), 1)})
|
|
if not Positions then return end
|
|
dPosX = EgtFromUiUnits( tonumber( Positions[1])) - b3Part:getDimX() / 2
|
|
dPosY = EgtFromUiUnits( tonumber( Positions[2])) - b3Part:getDimY() / 2
|
|
|
|
-- Creo disegno tavola
|
|
local nTabPart = EgtGetFirstNameInGroup( GDB_ID.ROOT, TABLE)
|
|
if not nTabPart then
|
|
-- Disegno tavola
|
|
nTabPart = EgtGroup( GDB_ID.ROOT)
|
|
--EgtSetLevel( nTabPart, GDB_LV.SYSTEM)
|
|
EgtSetName( nTabPart, TABLE)
|
|
local nTabLayer = EgtGroup( nTabPart)
|
|
EgtSetName( nTabLayer, TABLE)
|
|
local nTabOutlineId = EgtRectangle2P( nTabLayer, Point3d( 0, 0, 0), Point3d( dTabX, dTabY, 0))
|
|
EgtSetName( nTabOutlineId, TABLE_OUTLINE)
|
|
local nTabSurfId = EgtSurfFlatRegion( nTabLayer, nTabOutlineId)
|
|
EgtSetName( nTabSurfId, TABLE_SURFACE)
|
|
EgtSetColor( nTabSurfId, 'GRAY')
|
|
EgtSetAlpha( nTabSurfId, 70)
|
|
end
|
|
|
|
-- Posiziono il pezzo
|
|
EgtMove( nPartId, Point3d( dPosX, dPosY, 0) - b3Part:getMin())
|
|
|
|
local nMchGrpId = EgtGetMachGroupId( '3dPrint')
|
|
EgtRemoveMachGroup( nMchGrpId or GDB_ID.NULL)
|
|
EgtAddMachGroup( '3dPrint')
|
|
EgtSetTable( 'Tab')
|
|
|
|
local nRawId = EgtAddRawPartWithPart( nPartId, GDB_ID.NULL, 0, Color3d( 128, 128, 128, 30))
|
|
EgtMoveToCornerRawPart( nRawId, Point3d( dPosX, dPosY, 0), MCH_CR.BL)
|
|
|
|
EgtResetCurrMachGroup()
|
|
|
|
|
|
EgtSetView( SCE_VD.ISO_SW, false)
|
|
EgtZoom( SCE_ZM.ALL)
|
|
|
|
|
|
EgtOutLog( ' +++ PlacePart completed')
|
|
|
|
end
|
|
|
|
---------------------------------------------------------------------
|
|
return RunPartPositioning
|