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:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user