Emmanuele Sassi
90adb8b200
- Corretto slice senza parametri di lavorazione - Corretta aggiunta di piu' none in lista lavorazioni - Aggiunto modulo per gestione colori delle superfici
58 lines
1.4 KiB
VB.net
58 lines
1.4 KiB
VB.net
Imports EgtUILib
|
|
|
|
Module GeomEntityColors
|
|
|
|
Private m_c3Print As Color3d
|
|
Public ReadOnly Property c3Print As Color3d
|
|
Get
|
|
Return m_c3Print
|
|
End Get
|
|
End Property
|
|
|
|
Private m_c3MachStart As Color3d
|
|
Public ReadOnly Property c3MachStart As Color3d
|
|
Get
|
|
Return m_c3MachStart
|
|
End Get
|
|
End Property
|
|
|
|
Private m_c3Rib As Color3d
|
|
Public ReadOnly Property c3Rib As Color3d
|
|
Get
|
|
Return m_c3Rib
|
|
End Get
|
|
End Property
|
|
|
|
Private m_c3ShellNumber As Color3d
|
|
Public ReadOnly Property c3ShellNumber As Color3d
|
|
Get
|
|
Return m_c3ShellNumber
|
|
End Get
|
|
End Property
|
|
|
|
Private m_c3AuxSolids As Color3d
|
|
Public ReadOnly Property c3AuxSolids As Color3d
|
|
Get
|
|
Return m_c3AuxSolids
|
|
End Get
|
|
End Property
|
|
|
|
Private m_c3Others As Color3d
|
|
Public ReadOnly Property c3Others As Color3d
|
|
Get
|
|
Return m_c3Others
|
|
End Get
|
|
End Property
|
|
|
|
Sub New()
|
|
' imposto colori superfici
|
|
m_c3Print.FromColor(System.Drawing.Color.Yellow)
|
|
m_c3MachStart.FromColor(System.Drawing.Color.Red)
|
|
m_c3Rib.FromColor(System.Drawing.Color.MediumOrchid)
|
|
m_c3ShellNumber.FromColor(System.Drawing.Color.Lime)
|
|
m_c3AuxSolids.FromColor(System.Drawing.Color.DarkGoldenrod)
|
|
m_c3Others.FromColor(System.Drawing.Color.LightGray)
|
|
End Sub
|
|
|
|
End Module
|