Dario Sassi
22ace7cbe6
- aggiunta attivazione/disattivazione Vmill da interfaccia simulazione, se attivata dalla macchina.
73 lines
2.4 KiB
VB.net
73 lines
2.4 KiB
VB.net
'----------------------------------------------------------------------------
|
|
' EgalTech 2015-2015
|
|
'----------------------------------------------------------------------------
|
|
' File : ConstGen.vb Data : 12.02.15 Versione : 1.6b3
|
|
' Contenuto : Modulo costanti generali.
|
|
'
|
|
'
|
|
'
|
|
' Modifiche : 12.02.15 DS Creazione modulo.
|
|
'
|
|
'
|
|
'----------------------------------------------------------------------------
|
|
Imports EgtUILib
|
|
|
|
Module ConstGen
|
|
|
|
' File con direttorio radice dei dati
|
|
Public Const DAT_FILE_NAME As String = "DataRoot.Ini"
|
|
Public Const S_DATA As String = "Data"
|
|
Public Const K_DATAROOT As String = "DataRoot"
|
|
|
|
' File con dati di licenza
|
|
Public Const LIC_FILE_NAME As String = "EgtCAM5.lic"
|
|
Public Const S_LICENCE As String = "Licence"
|
|
Public Const K_KEY As String = "Key"
|
|
|
|
' File di log generale
|
|
Public Const GENLOG_FILE_NAME As String = "EgtCAM5Log#.txt"
|
|
' File di log dei comandi
|
|
Public Const CMDLOG_FILE_NAME As String = "EgtCAM5Log#.tua"
|
|
|
|
' Sottodirettorio di configurazione
|
|
Public Const CONF_DIR As String = "Config"
|
|
' Sottodirettorio delle risorse
|
|
Public Const RES_DIR As String = "Resources"
|
|
' Sottodirettorio temporaneo
|
|
Public Const TEMP_DIR As String = "Temp"
|
|
' Sottodirettorio di default per le macchine
|
|
Public Const MACHINES_DFL_DIR As String = "Machines"
|
|
|
|
' Nome file Lua con le funzioni di attrezzaggio
|
|
Public Const SETUP_LUA As String = "SetUp.lua"
|
|
|
|
' Chiave di Info in gruppo di lavoro per attivazione Virtual Milling
|
|
Public Const KEY_MCHGRP_VM As String = "Vm"
|
|
|
|
' Costante per flag di BBox
|
|
Public Const BBFLAG As Integer = GDB_BB.ONLY_VISIBLE + GDB_BB.IGNORE_TEXT + GDB_BB.IGNORE_DIM
|
|
|
|
' Colori per lavorazioni
|
|
Public Function COL_MCH_CUT() As Color3d
|
|
Return New Color3d(0, 255, 0)
|
|
End Function
|
|
Public Function COL_MCH_DISABLED() As Color3d
|
|
Return New Color3d(192, 192, 192)
|
|
End Function
|
|
Public Function COL_MCH_DIS_INTERF() As Color3d
|
|
Return New Color3d(255, 128, 128)
|
|
End Function
|
|
Public Function COL_MCH_FREE() As Color3d
|
|
Return New Color3d(0, 0, 255)
|
|
End Function
|
|
Public Function COL_MCH_INTERF() As Color3d
|
|
Return New Color3d(255, 0, 0)
|
|
End Function
|
|
|
|
' Colore superficie di cornice
|
|
Public Function COL_FRAME() As Color3d
|
|
Return New Color3d(128, 192, 96)
|
|
End Function
|
|
|
|
End Module
|