EgtCAM5 1.6x1 :

- modifiche in gestione lavorazioni per selezione faccia di superficie.
2016-12-08 16:40:39 +00:00
parent 8363328614
commit 1ed1817716
7 changed files with 25 additions and 23 deletions
@@ -265,9 +265,8 @@ Namespace EgtCAM5
                  Dim EntityIndex As Integer = 0
                  Dim SubEntityIndex As Integer = 0     ' Nell'interfaccia non si usa ma devo comunque definirla perchè la funzione la restituisce obbligatoriamente
                  While EgtGetMachiningGeometry(CountIndex, EntityIndex, SubEntityIndex)
-                     If SubEntityIndex = GDB_ID.NULL Then
-                        EgtSelectObj(EntityIndex)
-                     End If
+                     EgtSelectObj(EntityIndex)
+                     IniFile.m_LastSubEntityId = SubEntityIndex
                     CountIndex += 1
                  End While
                  ' La salvo come ultima operazione selezionata