Egalware/DataWall
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DataWall :

Browse Source 
- aggiunta gestione baffi tagli lama tra pezzi adiacenti.
This commit is contained in:
Dario Sassi
2020-06-30 07:31:00 +00:00
parent 96e3d29fb9
commit ee13b3aca8
7 changed files with 168 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files
BatchProcess.lua
+17 -9
View File
@@ -1,4 +1,4 @@
-- BatchProcess.lua by Egaltech s.r.l. 2020/06/12
-- BatchProcess.lua by Egaltech s.r.l. 2020/06/29
-- Gestione calcolo batch disposizione e lavorazioni per Pareti
@@ -247,16 +247,24 @@ if bToProcess then
local b3Solid = vWall[i].Box
-- rotazione
local dRotAng = EgtGetInfo( vWall[i].Id, 'ROTATED', 'd')
if dRotAng and abs( dRotAng) > GEO.EPS_ANG_SMALL then
local ptRotCen = b3Solid:getCenter()
EgtRotate( vWall[i].Id, ptRotCen, X_AX(), dRotAng, GDB_RT.GLOB)
b3Solid:rotate( ptRotCen, X_AX(), dRotAng)
if dRotAng then
if abs( dRotAng) > GEO.EPS_ANG_SMALL then
local ptRotCen = b3Solid:getCenter()
EgtRotate( vWall[i].Id, ptRotCen, X_AX(), dRotAng, GDB_RT.GLOB)
b3Solid:rotate( ptRotCen, X_AX(), dRotAng)
end
EgtSetInfo( vWall[i].Id, 'ROTATED_DONE', dRotAng)
EgtRemoveInfo( vWall[i].Id, 'ROTATED')
end
-- inversione
local dInvAng = 180 - ( EgtGetInfo( vWall[i].Id, 'INVERTED', 'd') or 0)
if abs( dInvAng) > GEO.EPS_ANG_SMALL then
local ptInvCen = b3Solid:getCenter()
EgtRotate( vWall[i].Id, ptInvCen, Z_AX(), dInvAng, GDB_RT.GLOB)
local dInvAng = EgtGetInfo( vWall[i].Id, 'INVERTED', 'd')
if dInvAng then
if abs( 180 - dInvAng) > GEO.EPS_ANG_SMALL then
local ptInvCen = b3Solid:getCenter()
EgtRotate( vWall[i].Id, ptInvCen, Z_AX(), 180 - dInvAng, GDB_RT.GLOB)
end
EgtSetInfo( vWall[i].Id, 'INVERTED_DONE', dInvAng)
EgtRemoveInfo( vWall[i].Id, 'INVERTED')
end
end