- Aggiunti ProcessEvents su calcolo solido
- Lettura pezzi per Icarus
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user