OmagOFFICE 1.8d3 :

- sistemato inizio simulazione
- corretta seleziona tutto riferita ai pezzi in parcheggio
- migliorata gestione eliminazione gruppo di lavoro.
This commit is contained in:
Dario Sassi
2017-04-20 08:36:53 +00:00
parent 1f5bd17912
commit f9a9b59338
5 changed files with 114 additions and 12 deletions
+4 -2
View File
@@ -171,7 +171,7 @@ Public Class NestingTabVM
' Garantisco visibilità pezzi parcheggiati
ShowParkedParts()
' Garantisco visibilità eventuale contorno da foto
' m_CurrProjPage.ShowContour(True)
EstPhoto.ShowContour(True)
EgtZoom(ZM.ALL)
Return True
End Function
@@ -668,7 +668,9 @@ Public Class NestingTabVM
' Seleziono tutti i pezzi in parcheggio
Dim nPartId As Integer = EgtGetFirstPart()
While nPartId <> GDB_ID.NULL
EgtSetStatus(nPartId, GDB_ST.SEL)
If PartIsFree(nPartId) Then
EgtSetStatus(nPartId, GDB_ST.SEL)
End If
nPartId = EgtGetNextPart(nPartId)
End While
End If