prima versione funzionante completamente

2023-05-24 11:48:51 +02:00
parent bd0dbbb41c
commit 358df3cfdb
10 changed files with 39 additions and 30 deletions
@@ -180,5 +180,13 @@ function WMachiningLib.FindSurfacing( sType)
   end
 end

+---------------------------------------------------------------------
+function WMachiningLib.AddMachining( nProcId, sName, sMachining)
+   local nMchId, sFinalName = EgtAddMachining( sName, sMachining)
+   local nPriority = EgtGetInfo( nProcId, 'PRIORITY', 'i')
+   EgtSetInfo( nMchId, 'PRIORITY', nPriority)
+   return nMchId, sFinalName
+end
+
 -------------------------------------------------------------------------------------------------------------
 return WMachiningLib