'---------------------------------------------------------------------------- ' 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_LOCKID As String = "LockId" Public Const K_KEY As String = "Key" Public Const K_NESTKEY As String = "NestKey" ' 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" ' Sottodirettorio di default per i generatori di utensili Public Const TOOLMAKER_DFL_DIR As String = "ToolMakers" ' 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" ' Chiave di Info in gruppo di lavoro per none part-program Public Const KEY_MCHGRP_NCNAME As String = "NcName" ' 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