Emmanuele Sassi
44e97c3452
- introdotto calcolo volume dato contorno pareti - aggiunta in supervisore gestione tabella MDI - aggiunto salvataggio progetto dopo aggiornamento duplo - girate tutte le viste per macchine inverse, anche in supervisore - nacosti pezzi quando in ottimizzatore o supervisore senza Machgroup - scritte BTLPartList in verde se raggiunta quantita' INPROD - aggiunta gestione bottoni abilitati/disabilitati a seconda degli elementi selezionati - introdotta modifica dimensioni grezzi - corretto errore che non impostava corretamente progetto quando aperto da ottimizzatore - smontato assemblato prima di eseguire alcuni comandi per poi ripristinarlo
82 lines
3.6 KiB
VB.net
82 lines
3.6 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Module ManageView
|
|
|
|
' Tipo di progetto aperto
|
|
Private m_Type As BWType
|
|
|
|
' Per macchine pareti:
|
|
' Posizione vista
|
|
Private m_nViewDir As VT
|
|
|
|
Public Function BWSetView(nView As VT, Optional bRedraw As Boolean = True)
|
|
' condizioni che cambiano la vista del progetto
|
|
Select Case m_Type
|
|
Case BWType.BEAM
|
|
EgtSetView(VT.ISO_SW, bRedraw)
|
|
Case BWType.WALL
|
|
Select Case nView
|
|
Case VT.TOP
|
|
Select Case m_nViewDir
|
|
Case VT.ISO_SW, VT.ISO_SE
|
|
EgtSetGenericView(0, -90, bRedraw) ' equivalente a vista TOP
|
|
Case VT.ISO_NW, VT.ISO_NE
|
|
EgtSetGenericView(0, 90, bRedraw) ' equivalente a vista TOP ruotata di 180 su Z
|
|
End Select
|
|
Case VT.FRONT
|
|
Select Case m_nViewDir
|
|
Case VT.ISO_SW, VT.ISO_SE
|
|
EgtSetGenericView(90, -90, bRedraw) ' equivalente a vista FRONT
|
|
Case VT.ISO_NW, VT.ISO_NE
|
|
EgtSetGenericView(90, 90, bRedraw) ' equivalente a vista FRONT ruotata di 180 su Z
|
|
End Select
|
|
Case VT.BACK
|
|
Select Case m_nViewDir
|
|
Case VT.ISO_SW, VT.ISO_SE
|
|
EgtSetGenericView(-90, -90, bRedraw) ' equivalente a vista BACK
|
|
Case VT.ISO_NW, VT.ISO_NE
|
|
EgtSetGenericView(-90, 90, bRedraw) ' equivalente a vista BACK ruotata di 180 su Z
|
|
End Select
|
|
Case VT.RIGHT
|
|
Select Case m_nViewDir
|
|
Case VT.ISO_SW, VT.ISO_SE
|
|
EgtSetGenericView(90, 0, bRedraw) ' equivalente a vista RIGHT
|
|
Case VT.ISO_NW, VT.ISO_NE
|
|
EgtSetGenericView(-90, 0, bRedraw) ' equivalente a vista RIGHT ruotata di 180 su Z
|
|
End Select
|
|
Case VT.LEFT
|
|
Select Case m_nViewDir
|
|
Case VT.ISO_SW, VT.ISO_SE
|
|
EgtSetGenericView(-90, 0, bRedraw) ' equivalente a vista RIGHT
|
|
Case VT.ISO_NW, VT.ISO_NE
|
|
EgtSetGenericView(90, 0, bRedraw) ' equivalente a vista RIGHT ruotata di 180 su Z
|
|
End Select
|
|
Case VT.ISO_SW
|
|
Select Case m_nViewDir
|
|
Case VT.ISO_SW, VT.ISO_SE
|
|
EgtSetGenericView(60, 225, bRedraw) ' equivalente a vista ISO_SW
|
|
Case VT.ISO_NW, VT.ISO_NE
|
|
EgtSetGenericView(60, 45, bRedraw) ' equivalente a vista ISO_SW ruotata di 180 su Z
|
|
End Select
|
|
Case Else ' VT.ISO_SW
|
|
Select Case m_nViewDir
|
|
Case VT.ISO_SW, VT.ISO_SE
|
|
EgtSetGenericView(60, 225, bRedraw) ' equivalente a vista ISO_SW
|
|
Case VT.ISO_NW, VT.ISO_NE
|
|
EgtSetGenericView(60, 45, bRedraw) ' equivalente a vista ISO_SW ruotata di 180 su Z
|
|
End Select
|
|
End Select
|
|
End Select
|
|
|
|
End Function
|
|
|
|
Public Sub UpdateMachParam(ViewDir As Integer)
|
|
m_nViewDir = ViewDir
|
|
End Sub
|
|
|
|
Public Sub UpdateBWType(Type As BWType)
|
|
m_Type = Type
|
|
End Sub
|
|
|
|
End Module
|