Emmanuele Sassi
84a6cf3c2f
- Aggiunta colonna macchina in dialogo di apertura file - Impedito di cancellare parametri P e Q con tasto Canc - Migliorato caricamento macchina - Aggiunta rotazione vista per macchine pareti ruotate
47 lines
1.5 KiB
VB.net
47 lines
1.5 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 Integer
|
|
|
|
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 2, 4
|
|
EgtSetGenericView(0, -90, bRedraw) ' equivalente a vista TOP
|
|
Case 1, 3
|
|
EgtSetGenericView(0, 90, bRedraw) ' equivalente a vista TOP ruotata di 180 su Z
|
|
End Select
|
|
Case Else ' VT.ISO_SW
|
|
Select Case m_nViewDir
|
|
Case 2, 4
|
|
EgtSetGenericView(60, 225, bRedraw) ' equivalente a vista TOP
|
|
Case 1, 3
|
|
EgtSetGenericView(60, 45, bRedraw) ' equivalente a vista TOP 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
|