- Aggiunti ProcessEvents su calcolo solido

- Lettura pezzi per Icarus
This commit is contained in:
Emmanuele Sassi
2022-09-27 17:20:33 +02:00
parent 0d356741ae
commit f84c491295
3 changed files with 33 additions and 3 deletions
+2 -2
View File
@@ -203,7 +203,7 @@ end
function RunCalcSolids.Exec()
local nPartIndex = 1
local nPartId = EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex)
local nPartId = EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex) or EgtGetFirstNameInGroup( GDB_ID.ROOT, PART)
while nPartId do
if EgtGetInfo( nPartId, KEY_PART_ON_TABLE, 'b') then
@@ -295,7 +295,7 @@ function RunCalcSolids.Exec()
end
nPartIndex = nPartIndex + 1
nPartId = EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex)
nPartId = EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex) or EgtGetNextName( nPartId, PART)
end
end