Dario Sassi
2031 lines
85 KiB
VB.net
2031 lines
85 KiB
VB.net
'----------------------------------------------------------------------------
|
|
' EgalTech 2014-2015
|
|
'----------------------------------------------------------------------------
|
|
' File : Form1.vb Data : 27.01.15 Versione : 1.6a6
|
|
' Contenuto : Classe Form1 (dialogo principale dell'applicazione).
|
|
'
|
|
'
|
|
'
|
|
' Modifiche : 25.08.14 DS Creazione modulo.
|
|
'
|
|
'
|
|
'----------------------------------------------------------------------------
|
|
|
|
Imports System.Runtime.InteropServices
|
|
Imports System.Threading
|
|
Imports System.Text
|
|
Imports System.Math
|
|
Imports System.IO
|
|
Imports System.Globalization
|
|
Imports TestEIn.EgtInterface
|
|
Imports TestEIn.GenInterface
|
|
Imports TestEIn.Controller
|
|
|
|
|
|
Public Class Form1
|
|
|
|
Private m_objMutex As New Mutex
|
|
Private m_nInstance As Integer = 0
|
|
Private m_sDataRoot As String = String.Empty
|
|
Private m_sConfigDir As String = String.Empty
|
|
Private m_sTempDir As String = String.Empty
|
|
Private m_sMachinesRoot As String = String.Empty
|
|
Private m_sToolMakersDir As String = String.Empty
|
|
Private m_sIniFile As String = String.Empty
|
|
Private m_nDebug As Integer = 0
|
|
Private m_nUserLevel As Integer = 1
|
|
Private m_bShowGrid As Boolean
|
|
Private m_bShowGridFrame As Boolean
|
|
Private m_bCPlaneTypePos As Boolean
|
|
Private m_bMmUnits As Boolean
|
|
Private WithEvents m_Controller As New Controller
|
|
Private m_MruFiles As New MruList
|
|
Private m_MruScripts As New MruList
|
|
Private m_bScriptRunning As Boolean = False
|
|
Private m_bStopScript As Boolean = False
|
|
Private m_ProcEventsCallback As New ProcessEventsCallback(AddressOf ProcessEvents)
|
|
Private m_OutTextCallback As New OutTextCallback(AddressOf OutText)
|
|
|
|
|
|
Public Function GetInstance() As Integer
|
|
Return m_nInstance
|
|
End Function
|
|
|
|
Public Function GetExeRoot() As String
|
|
Return Application.StartupPath
|
|
End Function
|
|
|
|
Public Function GetDataRoot() As String
|
|
Return m_sDataRoot
|
|
End Function
|
|
|
|
Public Function GetMachinesRoot() As String
|
|
Return m_sMachinesRoot
|
|
End Function
|
|
|
|
Public Function GetTempDir() As String
|
|
Return m_sTempDir
|
|
End Function
|
|
|
|
Public Function GetIniFile() As String
|
|
Return m_sIniFile
|
|
End Function
|
|
|
|
Public Function GetDebug() As Integer
|
|
Return m_nDebug
|
|
End Function
|
|
|
|
Public Function GetUserLevel() As Integer
|
|
Return m_nUserLevel
|
|
End Function
|
|
|
|
Public Function GetCtx() As Integer
|
|
Return Scene1.GetCtx()
|
|
End Function
|
|
|
|
'-------------------------------- Form ------------------------------------------------------------
|
|
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
|
' Installo aggiornamento interfaccia
|
|
AddHandler System.Windows.Forms.Application.Idle, AddressOf Application_Idle
|
|
' Abilito drag and drop
|
|
Me.AllowDrop = True
|
|
' Title
|
|
EmitTitle()
|
|
' Impostazione path radice per i dati
|
|
m_sDataRoot = Application.StartupPath
|
|
If GetPrivateProfileString(S_DATA, K_DATAROOT, "", m_sDataRoot, m_sDataRoot & "\" & DAT_FILE_NAME) = 0 Then
|
|
m_sDataRoot = Application.StartupPath
|
|
End If
|
|
' Impostazione direttorio di configurazione
|
|
m_sConfigDir = m_sDataRoot & "\" & CONF_DIR
|
|
' Impostazione direttorio per file temporanei
|
|
m_sTempDir = m_sDataRoot & "\" & TEMP_DIR
|
|
' Impostazione path Ini file
|
|
m_sIniFile = m_sConfigDir & "\" & INI_FILE_NAME
|
|
' Impostazione direttorio per le macchine
|
|
If GetPrivateProfileString(S_MACH, K_MACHINESDIR, "", m_sMachinesRoot, m_sIniFile) = 0 Then
|
|
m_sMachinesRoot = m_sDataRoot & "\" & MACHINES_DFL_DIR
|
|
End If
|
|
' Impostazione direttorio toolmakers
|
|
If GetPrivateProfileString(S_MACH, K_TOOLMAKERSDIR, "", m_sToolMakersDir, m_sIniFile) = 0 Then
|
|
m_sToolMakersDir = m_sDataRoot & "\" & TOOLMAKER_DFL_DIR
|
|
End If
|
|
' Verifico indice di istanza
|
|
ManageIstance()
|
|
' Leggo e imposto chiave di protezione
|
|
Dim sLicFileName As String = String.Empty
|
|
GetPrivateProfileString(S_GENERAL, K_LICENCE, LIC_FILE_NAME, sLicFileName, m_sIniFile)
|
|
Dim sLicFile As String = m_sConfigDir & "\" & sLicFileName
|
|
Dim sKey As String = String.Empty
|
|
GetPrivateProfileString(S_LICENCE, K_KEY, "", sKey, sLicFile)
|
|
EgtSetKey(sKey)
|
|
' Inizializzazione generale di EgtInterface
|
|
m_nDebug = GetPrivateProfileInt(S_GENERAL, K_DEBUG, 0, m_sIniFile)
|
|
Dim sLogFile As String = m_sTempDir & "\" & GENLOG_FILE_NAME.Replace("#", m_nInstance.ToString())
|
|
Dim sLogMsg As String = "User " & SystemInformation.UserName & "\" & SystemInformation.ComputerName & " (" & GetInstance() & ")" & vbLf &
|
|
My.Application.Info.Description.ToString() & " ver. " &
|
|
My.Application.Info.Version.Major.ToString() & "." &
|
|
My.Application.Info.Version.Minor.ToString() &
|
|
(ChrW(97 - 1 + My.Application.Info.Version.Build)).ToString() &
|
|
My.Application.Info.Version.Revision.ToString()
|
|
EgtInit(m_nDebug, sLogFile, sLogMsg)
|
|
' Se versione realease, verifico presenza debugger
|
|
#If Not Debug Then
|
|
Dim bDebuggerPresent As Boolean = False
|
|
CheckRemoteDebuggerPresent(System.Diagnostics.Process.GetCurrentProcess().Handle, bDebuggerPresent)
|
|
If bDebuggerPresent Then
|
|
EgtOutLog("Error in EgtCheckInit")
|
|
End
|
|
End If
|
|
#End If
|
|
' Leggo direttorio dei messaggi (se manca uso direttorio di configurazione)
|
|
Dim sMsgDir As String = String.Empty
|
|
If GetPrivateProfileString(S_GENERAL, K_MESSAGESDIR, "", sMsgDir, m_sIniFile) = 0 Then
|
|
sMsgDir = m_sConfigDir
|
|
End If
|
|
' Leggo file messaggi
|
|
Dim sMsgFile As String = String.Empty
|
|
GetPrivateProfileString(S_GENERAL, K_MESSAGES, "", sMsgFile, m_sIniFile)
|
|
Dim sMsgFilePath As String = sMsgDir & "\" & sMsgFile
|
|
If Not EgtLoadMessages(sMsgFilePath) Then EgtOutLog("Error in EgtLoadMessages")
|
|
' Leggo e imposto livello utilizzatore
|
|
m_nUserLevel = GetPrivateProfileInt(S_GENERAL, K_USERLEVEL, 1, m_sIniFile)
|
|
' imposto dir font Nfe e font default
|
|
Dim sNfeDir As String = String.Empty
|
|
GetPrivateProfileString(S_GEOMDB, K_NFEFONTDIR, "", sNfeDir, m_sIniFile)
|
|
Dim sDefFont As String = String.Empty
|
|
GetPrivateProfileString(S_GEOMDB, K_DEFAULTFONT, "", sDefFont, m_sIniFile)
|
|
EgtSetFont(sNfeDir, sDefFont)
|
|
' imposto dir di default per libreria Lua e lancio libreria di base
|
|
Dim sLuaLibsDir As String = String.Empty
|
|
GetPrivateProfileString(S_LUA, K_LIBSDIR, "", sLuaLibsDir, m_sIniFile)
|
|
EgtSetLuaLibs(sLuaLibsDir)
|
|
Dim sLuaBaseLib As String = String.Empty
|
|
GetPrivateProfileString(S_LUA, K_BASELIB, "EgtBase", sLuaBaseLib, m_sIniFile)
|
|
EgtLuaRequire(sLuaBaseLib)
|
|
' imposto colore di default
|
|
Dim DefColor As New Color3d(0, 0, 0)
|
|
GetPrivateProfileColor(S_GEOMDB, K_DEFAULTCOLOR, DefColor, m_sIniFile)
|
|
Scene1.SetDefaultMaterial(DefColor)
|
|
' imposto colori sfondo
|
|
Dim BackTopColor As New Color3d(192, 192, 192)
|
|
GetPrivateProfileColor(S_SCENE, K_BACKTOP, BackTopColor, m_sIniFile)
|
|
Dim BackBotColor As New Color3d(BackTopColor)
|
|
GetPrivateProfileColor(S_SCENE, K_BACKBOTTOM, BackBotColor, m_sIniFile)
|
|
Scene1.SetViewBackground(BackTopColor, BackBotColor)
|
|
' imposto colore di evidenziazione
|
|
Dim MarkColor As New Color3d(255, 255, 0)
|
|
GetPrivateProfileColor(S_SCENE, K_MARK, MarkColor, m_sIniFile)
|
|
Scene1.SetMarkMaterial(MarkColor)
|
|
' imposto colore per superfici selezionate
|
|
Dim SelSurfColor As New Color3d(255, 255, 192)
|
|
GetPrivateProfileColor(S_SCENE, K_SELSURF, SelSurfColor, m_sIniFile)
|
|
Scene1.SetSelSurfMaterial(SelSurfColor)
|
|
' imposto tipo e colore del rettangolo di zoom
|
|
Dim bOutline As Boolean = True
|
|
Dim ZwColor As New Color3d(0, 0, 0)
|
|
GetPrivateProfileZoomWin(S_SCENE, K_ZOOMWIN, bOutline, ZwColor, m_sIniFile)
|
|
Scene1.SetZoomWinAttribs(bOutline, ZwColor)
|
|
' imposto colore della linea di distanza
|
|
Dim DstLnColor As New Color3d(255, 0, 0)
|
|
GetPrivateProfileColor(S_SCENE, K_DISTLINE, DstLnColor, m_sIniFile)
|
|
Scene1.SetDistLineMaterial(DstLnColor)
|
|
' imposto parametri OpenGL
|
|
Dim nDriver As Integer = GetPrivateProfileInt(S_OPENGL, K_DRIVER, 3, m_sIniFile)
|
|
Dim b2Buff As Boolean = (GetPrivateProfileInt(S_OPENGL, K_DOUBLEBUFFER, 1, m_sIniFile) <> 0)
|
|
Dim nColorBits As Integer = GetPrivateProfileInt(S_OPENGL, K_COLORBITS, 32, m_sIniFile)
|
|
Dim nDepthBits As Integer = GetPrivateProfileInt(S_OPENGL, K_DEPTHBITS, 32, m_sIniFile)
|
|
Scene1.SetViewAttributes(nDriver, b2Buff, nColorBits, nDepthBits)
|
|
' inizializzo scena (DB geometrico + visualizzazione)
|
|
If Not Scene1.Init() Then
|
|
Application.Exit()
|
|
End If
|
|
' Recupero e imposto handle finestra principale
|
|
Dim hMainWnd As IntPtr = Me.Handle
|
|
EgtSetMainWindowHandle(hMainWnd)
|
|
' inizializzo gestore lavorazioni
|
|
EgtInitMachMgr(m_sMachinesRoot, m_sToolMakersDir)
|
|
' imposto unità di misura per interfaccia utente
|
|
m_bMmUnits = (GetPrivateProfileInt(S_SCENE, K_MMUNITS, 1, m_sIniFile) <> 0)
|
|
UpdateStatusUnits()
|
|
' imposto visualizzazione riferimento globale
|
|
Dim bShowGlobFrame As Boolean = (GetPrivateProfileInt(S_SCENE, K_SHOWGFRAME, 1, m_sIniFile) <> 0)
|
|
EgtSetGlobFrameShow(bShowGlobFrame)
|
|
' imposto i dati della griglia
|
|
LoadGridData()
|
|
' imposto stato di visualizzazione della griglia
|
|
m_bShowGrid = (GetPrivateProfileInt(S_GRID, K_SHOWGRID, 1, m_sIniFile) <> 0)
|
|
m_bShowGridFrame = (GetPrivateProfileInt(S_GRID, K_SHOWFRAME, 1, m_sIniFile) <> 0)
|
|
UpdateStatusGrid()
|
|
' imposto tipo coordinate
|
|
m_bCPlaneTypePos = True
|
|
Scene1.SetGridCursorPos(m_bCPlaneTypePos)
|
|
' modo di visualizzazione
|
|
Dim nShowMode As Integer = GetPrivateProfileInt(S_SCENE, K_SHOWMODE, SM.SHADING, m_sIniFile)
|
|
If nShowMode = SM.WIREFRAME Then
|
|
btnWireFrame.Checked = True
|
|
ElseIf nShowMode = SM.HIDDENLINE Then
|
|
btnHiddenLine.Checked = True
|
|
Else
|
|
btnShading.Checked = True
|
|
End If
|
|
' visualizzazione direzione curve
|
|
Dim nShowCurveDir As Integer = GetPrivateProfileInt(S_SCENE, K_CURVEDIR, 0, m_sIniFile)
|
|
chkCurveDir.Checked = (nShowCurveDir <> 0)
|
|
' visualizzazione avanzata dei triangoli costituenti le superfici
|
|
Dim bShowTriaAdv As Boolean = (GetPrivateProfileInt(S_SCENE, K_SHOWTRIAADV, 1, m_sIniFile) <> 0)
|
|
EgtSetShowTriaAdv(bShowTriaAdv, False)
|
|
' tipo visualizzazione per Zmap
|
|
Dim nShowZmap As Integer = GetPrivateProfileInt(S_SCENE, K_SHOWZMAP, 1, m_sIniFile)
|
|
EgtSetShowZmap(nShowZmap, False)
|
|
' ObjTree non selezionato
|
|
m_nObjTreeOldId = GDB_ID.NULL
|
|
' nascondo input box
|
|
ResetInputBox()
|
|
' aggiungo voce per about box nel menù di sistema
|
|
Dim hSysMenu As IntPtr = GetSystemMenu(Handle, False)
|
|
If hSysMenu <> IntPtr.Zero Then
|
|
AppendMenu(hSysMenu, MF_SEPARATOR, 0, "")
|
|
AppendMenu(hSysMenu, MF_STRING, IDM_ABOUTBOX, "About TestEIn...")
|
|
End If
|
|
' Visualizzo o nascondo TabTest
|
|
Dim bShowTabTest As Boolean = (GetPrivateProfileInt(S_TABSPECIAL, K_TSSHOW, 0, m_sIniFile) <> 0)
|
|
If Not bShowTabTest Then
|
|
TabControl2.TabPages.Remove(TabSpecial)
|
|
End If
|
|
' Posizione e dimensioni del Form
|
|
If ModifierKeys <> Keys.Shift Then
|
|
Dim nFlag As Integer
|
|
Dim nLeft As Integer
|
|
Dim nTop As Integer
|
|
Dim nWidth As Integer
|
|
Dim nHeight As Integer
|
|
GetPrivateProfileWinPos(S_GENERAL, K_WINPLACE, nFlag, nLeft, nTop, nWidth, nHeight, m_sIniFile)
|
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
|
|
Me.Location = New Point(nLeft, nTop)
|
|
Me.Size = New Size(nWidth, nHeight)
|
|
WindowState = If(nFlag = 1, FormWindowState.Maximized, FormWindowState.Normal)
|
|
End If
|
|
' Impostazioni controller
|
|
m_Controller.SetScene(Scene1)
|
|
Dim bLuaReg As Boolean = (GetPrivateProfileInt(S_GENERAL, K_COMMANDLOG, 0, m_sIniFile) <> 0)
|
|
Dim sCmdLogFile As String = CMDLOG_FILE_NAME.Replace("#", m_nInstance.ToString())
|
|
If Not m_Controller.SetCommandLog(bLuaReg, m_sTempDir, sCmdLogFile) Then
|
|
EgtOutLog("Command log not started")
|
|
If My.Application.CommandLineArgs.Count() = 0 Then
|
|
MessageBox.Show("Command log not started", "TestEIn Warning",
|
|
MessageBoxButtons.OK, MessageBoxIcon.Warning)
|
|
End If
|
|
End If
|
|
If m_Controller.GetCommandLog() Then
|
|
tsStatusReg.BackColor = Color.Lime
|
|
ElseIf bLuaReg Then
|
|
tsStatusReg.BackColor = Color.Red
|
|
End If
|
|
' Impostazioni MruLists
|
|
m_MruFiles.Init(m_sIniFile, S_MRUFILES, 8)
|
|
m_MruScripts.Init(m_sIniFile, S_MRUSCRIPTS, 8)
|
|
' Apro progetto vuoto
|
|
m_Controller.NewProject(True)
|
|
m_Controller.MouseSetObjFilterForSelect(True, True, True, True, True)
|
|
' Impostazione Testi e ToolTips
|
|
SetMessages()
|
|
' Installo funzione gestione eventi per lua
|
|
EgtSetProcessEvents(m_ProcEventsCallback)
|
|
' Installo funzione output testo su status per lua
|
|
EgtSetOutText(m_OutTextCallback)
|
|
End Sub
|
|
|
|
Private Sub LoadGridData()
|
|
Dim dSnapStep As Double = GetPrivateProfileDouble(S_GRID, If(m_bMmUnits, K_SNAPSTEP, K_SNAPSTEPINCH), 10, m_sIniFile)
|
|
Dim nMinLineSStep As Integer = GetPrivateProfileInt(S_GRID, K_MINLINESSTEP, 1, m_sIniFile)
|
|
Dim nMajLineSStep As Integer = GetPrivateProfileInt(S_GRID, K_MAJLINESSTEP, 10, m_sIniFile)
|
|
Dim nExtSStep As Integer = GetPrivateProfileInt(S_GRID, K_EXTSSTEP, 50, m_sIniFile)
|
|
Dim MinLnColor As New Color3d(160, 160, 160)
|
|
GetPrivateProfileColor(S_GRID, K_MINLNCOLOR, MinLnColor, m_sIniFile)
|
|
Dim MajLnColor As New Color3d(160, 160, 160)
|
|
GetPrivateProfileColor(S_GRID, K_MAJLNCOLOR, MajLnColor, m_sIniFile)
|
|
EgtSetGridFrame(Frame3d.GLOB)
|
|
EgtSetGridGeo(dSnapStep, nMinLineSStep, nMajLineSStep, nExtSStep)
|
|
EgtSetGridColor(MinLnColor, MajLnColor)
|
|
End Sub
|
|
|
|
Private Sub ManageIstance()
|
|
Dim bCreated As Boolean
|
|
Try
|
|
m_objMutex = New Mutex(False, "Global\TestEIn", bCreated)
|
|
Catch
|
|
bCreated = False
|
|
End Try
|
|
If bCreated Then
|
|
' Prima istanza
|
|
m_nInstance = 1
|
|
' Aggiorno stato istanze attive
|
|
WritePrivateProfileString(S_GENERAL, K_INSTANCES, m_nInstance, m_sIniFile)
|
|
Else
|
|
' Leggo il massimo numero di istanze ammesse
|
|
Dim nMaxInst As Integer = GetPrivateProfileInt(S_GENERAL, K_MAXINST, 1, m_sIniFile)
|
|
nMaxInst = Max(1, Min(nMaxInst, 32))
|
|
' Cerco il primo indice di istanza libero (max 32)
|
|
Dim nTmp As Integer = GetPrivateProfileInt(S_GENERAL, K_INSTANCES, 0, m_sIniFile)
|
|
m_nInstance = 1
|
|
Dim nMask As Integer = 1
|
|
While (nTmp And nMask) <> 0 And m_nInstance <= m_nInstance
|
|
m_nInstance += 1
|
|
nMask *= 2
|
|
End While
|
|
' Se l'indice supera il massimo
|
|
If m_nInstance > nMaxInst Then
|
|
' porto in primo piano la prima istanza
|
|
Dim bFound As Boolean = False
|
|
' processi del programma a 32 bit
|
|
Dim localProc As Process() = Process.GetProcessesByName("TestEInR32")
|
|
For Each p As Process In localProc
|
|
If p.Id <> Process.GetCurrentProcess().Id Then
|
|
bFound = True
|
|
ShowWindow(p.MainWindowHandle, SW.SHOWMAXIMIZED)
|
|
Exit For
|
|
End If
|
|
Next
|
|
' se non trovati processi a 32 bit provo a 64 bit
|
|
If Not bFound Then
|
|
localProc = Process.GetProcessesByName("TestEInR64")
|
|
For Each p As Process In localProc
|
|
If p.Id <> Process.GetCurrentProcess().Id Then
|
|
bFound = True
|
|
ShowWindow(p.MainWindowHandle, SW.SHOWMAXIMIZED)
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
' esco dal programma
|
|
End
|
|
End If
|
|
' Aggiorno stato istanze attive
|
|
nTmp += (1 << (m_nInstance - 1))
|
|
WritePrivateProfileString(S_GENERAL, K_INSTANCES, nTmp, m_sIniFile)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Form1_Shown(sender As System.Object, e As EventArgs) Handles MyBase.Shown
|
|
FormTimer.Start()
|
|
End Sub
|
|
|
|
Private Sub FormTickEvent(source As Object, e As EventArgs) Handles FormTimer.Tick
|
|
FormTimer.Stop()
|
|
' Recupero eventuali parametri da linea di comando
|
|
Dim bOpen As Boolean = False
|
|
If My.Application.CommandLineArgs.Count() > 0 Then
|
|
Dim sFile As String = My.Application.CommandLineArgs(0)
|
|
If Not String.IsNullOrWhiteSpace(sFile) Then
|
|
Dim nFileType As Integer = EgtGetFileType(sFile)
|
|
Select Case nFileType
|
|
Case FT.NGE, FT.NFE
|
|
m_Controller.OpenProject(sFile, False)
|
|
bOpen = True
|
|
Case FT.DXF, FT.STL, FT.CNC, FT.CSF, FT.BTL
|
|
m_Controller.ImportProject(sFile, False)
|
|
bOpen = True
|
|
Case FT.TSC, FT.LUA
|
|
m_Controller.Exec(sFile, False)
|
|
bOpen = True
|
|
End Select
|
|
If IO.Path.GetExtension(sFile).ToLower() = ".ddf" Then
|
|
' Se manca direttorio uso quello di default
|
|
If String.IsNullOrWhiteSpace(IO.Path.GetDirectoryName(sFile)) Then
|
|
Dim sDefDir As String = String.Empty
|
|
GetPrivateProfileString(S_DOORS, K_DDFDEFAULTDIR, "", sDefDir, m_sIniFile)
|
|
sFile = sDefDir & "\" & sFile
|
|
End If
|
|
' Ricoscimento flag
|
|
Dim nPar2 As Integer = 0
|
|
If My.Application.CommandLineArgs.Count() > 1 Then
|
|
nPar2 = CInt(My.Application.CommandLineArgs(1))
|
|
End If
|
|
Dim bNcGen As Boolean = (nPar2 >= 1)
|
|
' Esecuzione
|
|
CreateDoors(sFile, bNcGen)
|
|
EgtZoom(ZM.ALL)
|
|
' Se richiesta uscita immediata
|
|
Dim bExit As Boolean = (nPar2 >= 2)
|
|
If bExit Then
|
|
Close()
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Form1_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
|
|
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
|
|
e.Effect = DragDropEffects.Copy
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Form1_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
|
|
Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
|
|
For Each s In files
|
|
If Not String.IsNullOrWhiteSpace(s) Then
|
|
Dim nFileType As Integer = EgtGetFileType(s)
|
|
Select Case nFileType
|
|
Case FT.NGE, FT.NFE
|
|
m_Controller.OpenProject(s, False)
|
|
Case FT.DXF, FT.STL, FT.CNC, FT.CSF, FT.BTL
|
|
m_Controller.ImportProject(s, False)
|
|
Case FT.TSC, FT.LUA
|
|
m_Controller.Exec(s, False)
|
|
End Select
|
|
Exit For
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub Form1_FormClosing(sender As System.Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
|
|
' Impedisco uscita se script in esecuzione
|
|
If m_bScriptRunning Then
|
|
m_bStopScript = True
|
|
e.Cancel = True
|
|
Return
|
|
End If
|
|
' Gestisco eventuale file corrente modificato
|
|
If Not m_Controller.ManageModified() Then
|
|
e.Cancel = True
|
|
Return
|
|
End If
|
|
' Salvo modo di visualizzazione
|
|
WritePrivateProfileString(S_SCENE, K_SHOWMODE, EgtGetShowMode(), m_sIniFile)
|
|
' Salvo stato visualizzazione direzione curve
|
|
WritePrivateProfileString(S_SCENE, K_CURVEDIR, If(EgtGetShowCurveDirection(), 1, 0), m_sIniFile)
|
|
' Salvo stato visualizzazione griglia
|
|
WritePrivateProfileString(S_GRID, K_SHOWGRID, If(m_bShowGrid, 1, 0), m_sIniFile)
|
|
' Salvo stato unità di misura per interfaccia utente
|
|
WritePrivateProfileString(S_SCENE, K_MMUNITS, If(m_bMmUnits, 1, 0), m_sIniFile)
|
|
' Salvo posizione Form (se non minimizzato)
|
|
If Me.WindowState <> FormWindowState.Minimized Then
|
|
Dim nFlag As Integer = If(Me.WindowState = FormWindowState.Maximized, 1, 0)
|
|
WritePrivateProfileWinPos(S_GENERAL, K_WINPLACE, nFlag, Me.Left, Me.Top, Me.Width, Me.Height, m_sIniFile)
|
|
End If
|
|
' Terminazione generale di EgtInterface
|
|
EgtExit()
|
|
' Rilascio mutex
|
|
m_objMutex.Close()
|
|
' Aggiorno istanze usate
|
|
Dim nTmp As Integer = GetPrivateProfileInt(S_GENERAL, K_INSTANCES, 0, m_sIniFile)
|
|
nTmp -= (1 << (m_nInstance - 1))
|
|
WritePrivateProfileString(S_GENERAL, K_INSTANCES, nTmp, m_sIniFile)
|
|
' Disabilito gestore Idle
|
|
RemoveHandler Application.Idle, AddressOf Application_Idle
|
|
End Sub
|
|
|
|
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
|
|
MyBase.WndProc(m)
|
|
If m.Msg = WM_SYSCOMMAND Then
|
|
If m.WParam.ToInt32 = IDM_ABOUTBOX Then
|
|
AboutBox1.ShowDialog()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
|
|
'-------------------------------- Events management ----------------------------------------------
|
|
Private Sub OnCursorPos(ByVal sender As Object, ByVal sCursorPos As String) Handles Scene1.OnCursorPos
|
|
tsStatusCursorPos.Text = sCursorPos
|
|
End Sub
|
|
|
|
Private Sub OnMouseSetObjFilterForSelect(sender As Object, bZeroDim As Boolean, bCurve As Boolean,
|
|
bSurf As Boolean, bVolume As Boolean, bExtra As Boolean) Handles Scene1.OnMouseSetObjFilterForSelect
|
|
m_Controller.MouseSetObjFilterForSelect(bZeroDim, bCurve, bSurf, bVolume, bExtra)
|
|
End Sub
|
|
|
|
Private Sub OnMouseSelectedAll(sender As Object, bOnlyVisible As Boolean) Handles Scene1.OnMouseSelectedAll
|
|
m_Controller.MouseSelectedAll(bOnlyVisible)
|
|
End Sub
|
|
|
|
Private Sub OnMouseDeselectedAll(ByVal sender As Object) Handles Scene1.OnMouseDeselectedAll
|
|
m_Controller.MouseDeselectedAll()
|
|
End Sub
|
|
|
|
'Private Sub OnMouseSelectingObj(sender As Object, nId As Integer, ByRef bOk As Boolean) Handles Scene1.OnMouseSelectingObj
|
|
' If EgtGetType(nId) = GDB_TY.CRV_LINE Then
|
|
' bOk = False
|
|
' End If
|
|
'End Sub
|
|
|
|
Private Sub OnMouseSelectedObj(ByVal sender As Object, ByVal nId As Integer, ByVal bLast As Boolean) Handles Scene1.OnMouseSelectedObj
|
|
m_Controller.MouseSelectedObj(nId, bLast)
|
|
End Sub
|
|
|
|
Private Sub OnMouseSelectedPart(ByVal sender As Object, ByVal nId As Integer) Handles Scene1.OnMouseSelectedPart
|
|
m_Controller.MouseSelectedPart(nId)
|
|
End Sub
|
|
|
|
Private Sub OnMouseSelectedLayer(ByVal sender As Object, ByVal nId As Integer) Handles Scene1.OnMouseSelectedLayer
|
|
m_Controller.MouseSelectedLayer(nId)
|
|
End Sub
|
|
|
|
Private Sub OnMouseSelectedPath(ByVal sender As Object, ByVal nId As Integer, ByVal bHaltOnFork As Boolean) Handles Scene1.OnMouseSelectedPath
|
|
m_Controller.MouseSelectedPath(nId, bHaltOnFork)
|
|
End Sub
|
|
|
|
Private Sub OnMousePointFromSelection(ByVal sender As Object, ByVal nId As Integer, ByVal PtP As Point3d, ByVal nAux As Integer) Handles Scene1.OnMousePointFromSelection
|
|
m_Controller.SetPointFromSelection(nId, PtP, nAux)
|
|
End Sub
|
|
|
|
Private Sub OnMouseDone(ByVal sender As Object) Handles Scene1.OnMouseDone
|
|
m_Controller.Done(InputText.Text)
|
|
End Sub
|
|
|
|
Private Sub OnMouseSelectedPoint(ByVal sender As Object, ByVal PtP As Point3d, ByVal nSep As SEP, ByVal nId As Integer) Handles Scene1.OnMouseSelectedPoint
|
|
Dim bDone As Boolean = (ModifierKeys And Keys.Control) <> Keys.Control
|
|
m_Controller.MouseSelectedPoint(PtP, nSep, nId, bDone)
|
|
End Sub
|
|
|
|
Private Sub OnMouseSelectedDir(ByVal sender As Object, ByVal VtDir As Vector3d) Handles Scene1.OnMouseSelectedDir
|
|
m_Controller.SetLastVector3d(VtDir)
|
|
End Sub
|
|
|
|
Private Sub OnMouseMoveSelPoint(ByVal sender As Object, ByVal PtP As Point3d) Handles Scene1.OnMouseMoveSelPoint
|
|
m_Controller.MouseMoveInSelectionPoint(PtP)
|
|
End Sub
|
|
|
|
Private Sub OnMouseAnalyzed(ByVal sender As Object, ByVal nId As Integer) Handles Scene1.OnMouseAnalyzed
|
|
UpdateObjInObjTree(nId)
|
|
SelectIdInObjTree(nId)
|
|
End Sub
|
|
|
|
Private Sub OnShowDistance(ByVal sender As Object, ByVal sDistance As String) Handles Scene1.OnShowDistance
|
|
EmitStripStatusOutput(sDistance)
|
|
End Sub
|
|
|
|
Private Sub OnNewProject(ByVal sender As Object, ByVal bOk As Boolean) Handles m_Controller.OnNewProject
|
|
EgtZoom(ZM.ALL)
|
|
If Not bOk Then
|
|
MessageBox.Show(EgtMsg(10002), EgtMsg(10001), MessageBoxButtons.OK, MessageBoxIcon.Error) ' Error on new file - Error
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub OnOpeningProject(ByVal sender As Object) Handles m_Controller.OnOpeningProject
|
|
ClearObjTree()
|
|
End Sub
|
|
|
|
Private Sub OnOpenProject(ByVal sender As Object, ByVal sFile As String, ByVal bOk As Boolean) Handles m_Controller.OnOpenProject
|
|
EgtZoom(ZM.ALL)
|
|
WritePrivateProfileString(S_GENERAL, K_LASTNGEDIR, Path.GetDirectoryName(sFile), m_sIniFile)
|
|
If bOk Then
|
|
m_MruFiles.Add(sFile)
|
|
Else
|
|
m_MruFiles.Remove(sFile)
|
|
Dim sMsg As String = EgtMsg(10003) & " '" & sFile & "'" 'Error opening file
|
|
MessageBox.Show(sMsg, EgtMsg(10001), MessageBoxButtons.OK, MessageBoxIcon.Error) 'Error
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub OnInsertedProject(ByVal sender As Object, ByVal sFile As String, ByVal bOk As Boolean) Handles m_Controller.OnInsertedProject
|
|
EgtZoom(ZM.ALL)
|
|
End Sub
|
|
|
|
Private Sub OnSavingProject(sender As Object, sFile As String) Handles m_Controller.OnSavingProject
|
|
End Sub
|
|
|
|
Private Sub OnSavedProject(sender As Object, sFile As String, bOk As Boolean) Handles m_Controller.OnSavedProject
|
|
WritePrivateProfileString(S_GENERAL, K_LASTNGEDIR, Path.GetDirectoryName(sFile), m_sIniFile)
|
|
If bOk Then
|
|
m_MruFiles.Add(sFile)
|
|
Else
|
|
m_MruFiles.Remove(sFile)
|
|
Dim sMsg As String = EgtMsg(10004) & " '" & sFile & "'" 'Error saving file
|
|
MessageBox.Show(sMsg, EgtMsg(10001), MessageBoxButtons.OK, MessageBoxIcon.Error) ' Error
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub OnSavingObject(sender As Object, sFile As String) Handles m_Controller.OnSavingObject
|
|
End Sub
|
|
|
|
Private Sub OnSavedObject(ByVal sender As Object, ByVal sFile As String, ByVal bOk As Boolean) Handles m_Controller.OnSavedObject
|
|
WritePrivateProfileString(S_GENERAL, K_LASTNGEOBJDIR, Path.GetDirectoryName(sFile), m_sIniFile)
|
|
If bOk Then
|
|
m_MruFiles.Add(sFile)
|
|
Else
|
|
m_MruFiles.Remove(sFile)
|
|
Dim sMsg As String = EgtMsg(10004) & " '" & sFile & "'" 'Error saving file
|
|
MessageBox.Show(sMsg, EgtMsg(10001), MessageBoxButtons.OK, MessageBoxIcon.Error) ' Error
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub OnImportingProject(sender As Object, nType As Integer, ByRef nFlag As Integer) Handles m_Controller.OnImportingProject
|
|
If nType <> FT.NULL Then
|
|
ClearObjTree()
|
|
nFlag = 0
|
|
Else
|
|
MessageBox.Show(EgtMsg(10005), EgtMsg(10001), MessageBoxButtons.OK, MessageBoxIcon.Error) ' File type unknown - Error
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub OnImportedProject(ByVal sender As Object, ByVal sFile As String, ByVal bOk As Boolean) Handles m_Controller.OnImportedProject
|
|
EgtZoom(ZM.ALL)
|
|
WritePrivateProfileString(S_GENERAL, K_LASTIMPDIR, Path.GetDirectoryName(sFile), m_sIniFile)
|
|
If Not bOk Then
|
|
Dim sMsg As String = EgtMsg(10006) & " '" & sFile & "'" 'Error importing file
|
|
MessageBox.Show(sMsg, EgtMsg(10001), MessageBoxButtons.OK, MessageBoxIcon.Error) ' Error
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub OnExportingProject(ByVal sender As Object) Handles m_Controller.OnExportingProject
|
|
End Sub
|
|
|
|
Private Sub OnExportedProject(ByVal sender As Object, ByVal sFile As String, ByVal bOk As Boolean) Handles m_Controller.OnExportedProject
|
|
WritePrivateProfileString(S_GENERAL, K_LASTEXPDIR, Path.GetDirectoryName(sFile), m_sIniFile)
|
|
If Not bOk Then
|
|
Dim sMsg As String = EgtMsg(10007) & " '" & sFile & "'" 'Error exporting file
|
|
MessageBox.Show(sMsg, EgtMsg(10001), MessageBoxButtons.OK, MessageBoxIcon.Error) ' Error
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub OnExecutingScript(ByVal sender As Object) Handles m_Controller.OnExecutingScript
|
|
ClearObjTree()
|
|
' Abilito progress e bottone stop
|
|
tsStatusProgress.Value = 0
|
|
tsStatusStop.Enabled = True
|
|
m_bStopScript = False
|
|
' Dichiaro script in esecuzione
|
|
m_bScriptRunning = True
|
|
End Sub
|
|
|
|
Private Sub OnExecutedScript(ByVal sender As Object, ByVal sFile As String, ByVal bOk As Boolean, ByVal sError As String) Handles m_Controller.OnExecutedScript
|
|
' Salvo path dello script in lista recenti
|
|
WritePrivateProfileString(S_GENERAL, K_LASTLUADIR, Path.GetDirectoryName(sFile), m_sIniFile)
|
|
If bOk Then
|
|
m_MruScripts.Add(sFile)
|
|
Else
|
|
m_MruScripts.Remove(sFile)
|
|
MessageBox.Show(sError, EgtMsg(10001), MessageBoxButtons.OK, MessageBoxIcon.Error) ' Error
|
|
End If
|
|
' Disabilito progress e bottone stop
|
|
tsStatusProgress.Value = 0
|
|
tsStatusStop.Enabled = False
|
|
' Dichiaro terminata esecuzione script
|
|
m_bScriptRunning = False
|
|
End Sub
|
|
|
|
Private Sub OnPrepareInputBox(ByVal sTitle As String, ByVal sLabel As String, ByVal sCheckLabel As String,
|
|
ByVal bShowCombo As Boolean, ByVal bShowBtn As Boolean) Handles m_Controller.PrepareInputBox
|
|
PrepareInputBox(sTitle, sLabel, sCheckLabel, bShowCombo, bShowBtn)
|
|
End Sub
|
|
|
|
Private Sub OnSetInputBoxText(ByVal sText As String) Handles m_Controller.SetInputBoxText
|
|
SetInputBoxText(sText)
|
|
End Sub
|
|
|
|
Private Sub OnSetInputBoxCheck(ByVal bCheck As Boolean) Handles m_Controller.SetInputBoxCheck
|
|
SetInputBoxCheck(bCheck)
|
|
End Sub
|
|
|
|
Private Sub OnAddInputBoxCombo(ByVal sText As String, ByVal bSelected As Boolean) Handles m_Controller.AddInputBoxCombo
|
|
AddInputBoxCombo(sText, bSelected)
|
|
End Sub
|
|
|
|
Private Sub OnUpdateUI(ByVal sender As Object, ByVal bReloadUI As Boolean) Handles m_Controller.UpdateUI
|
|
' pulisco input e relativi messaggi
|
|
ResetInputBox()
|
|
If m_Controller.GetContinue() Then
|
|
EmitStripStatusOutput(EgtMsg(399)) ' Continue : 'L' with line, 'A' with arc
|
|
Else
|
|
EmitStripStatusOutput("")
|
|
End If
|
|
' aggiorno dati correnti
|
|
EmitTitle()
|
|
EmitCurrPartLayer()
|
|
If bReloadUI Then
|
|
LoadObjTree()
|
|
Else
|
|
UpdateObjTree()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub OutputInfo(ByVal sender As Object, ByVal sText As String) Handles m_Controller.OutputInfo
|
|
EmitStripStatusOutput(sText)
|
|
End Sub
|
|
|
|
' --------------------- Update UI -------------------------------
|
|
Private Sub Application_Idle(ByVal sender As Object, ByVal e As EventArgs)
|
|
' Gestione abilitazione bottoni
|
|
Dim bLayerOk As Boolean = (m_Controller.GetCurrLayer() <> GDB_ID.NULL)
|
|
Dim bSelOk As Boolean = (EgtGetFirstSelectedObj() <> GDB_ID.NULL)
|
|
' Grid
|
|
btnCplaneElevation.Enabled = m_bShowGrid
|
|
btnCplaneOrigin.Enabled = m_bShowGrid
|
|
btnCplaneRotate.Enabled = m_bShowGrid
|
|
btnCplane3P.Enabled = m_bShowGrid
|
|
btnCPlanePerpObj.Enabled = m_bShowGrid
|
|
btnCPlaneObj.Enabled = m_bShowGrid And bSelOk
|
|
' Draw
|
|
btnPoint.Enabled = bLayerOk
|
|
btnLine2P.Enabled = bLayerOk
|
|
btnLinePDL.Enabled = bLayerOk
|
|
btnCircle.Enabled = bLayerOk
|
|
btnArcCSE.Enabled = bLayerOk
|
|
btnArc3P.Enabled = bLayerOk
|
|
btnArcPDP.Enabled = bLayerOk
|
|
btnFillet.Enabled = bLayerOk
|
|
btnRectangle2P.Enabled = bLayerOk
|
|
btnPolygon.Enabled = bLayerOk
|
|
btnText.Enabled = bLayerOk
|
|
' Construct
|
|
btnPlane.Enabled = bLayerOk And bSelOk
|
|
btnExtrude.Enabled = bLayerOk And bSelOk
|
|
btnRevolve.Enabled = bLayerOk And bSelOk
|
|
btnScrew.Enabled = bLayerOk And bSelOk
|
|
btnSwept.Enabled = bLayerOk And bSelOk
|
|
btnRuled.Enabled = bLayerOk And bSelOk
|
|
btnMergeSurf.Enabled = bSelOk
|
|
btnExplodeSurf.Enabled = bSelOk
|
|
btnInvertSurf.Enabled = bSelOk
|
|
' Edit
|
|
btnDelete.Enabled = bSelOk
|
|
btnChangeLayer.Enabled = bSelOk
|
|
btnChangeColor.Enabled = bSelOk
|
|
btnInvertCurve.Enabled = bSelOk
|
|
btnChangeStartCurve.Enabled = bSelOk
|
|
btnExtendCurve.Enabled = bSelOk
|
|
btnBreakCurve.Enabled = bSelOk
|
|
btnJoinCurve.Enabled = bLayerOk And bSelOk
|
|
btnExplodeCurve.Enabled = bSelOk
|
|
btnSetCurveTh.Enabled = bSelOk
|
|
' Transform
|
|
btnMove.Enabled = bSelOk
|
|
btnRotate.Enabled = bSelOk
|
|
btnMirror.Enabled = bSelOk
|
|
btnScale.Enabled = bSelOk
|
|
btnOffset.Enabled = bSelOk
|
|
End Sub
|
|
|
|
Private Sub SetMessages()
|
|
' File
|
|
TabFile.Text = EgtMsg(1) ' File
|
|
SetTextAndToolTip(btnNew, 3, 0) ' New
|
|
SetTextAndToolTip(btnOpen, 5, 6) ' Open<br/>Recent files (Shift)
|
|
SetTextAndToolTip(btnInsert, 7, 0) ' Insert
|
|
SetTextAndToolTip(btnSave, 9, 0) ' Save
|
|
SetTextAndToolTip(btnSaveAs, 11, 0) ' SaveAs
|
|
SetTextAndToolTip(btnImport, 13, 0) ' Import
|
|
SetTextAndToolTip(btnExport, 15, 0) ' Export
|
|
SetTextAndToolTip(btnExec, 17, 0) ' Exec
|
|
' View
|
|
TabView.Text = EgtMsg(101) ' View
|
|
SetTextAndToolTip(btnWireFrame, 103, 0) ' WFrame
|
|
SetTextAndToolTip(btnHiddenLine, 105, 0) ' HLine
|
|
SetTextAndToolTip(btnShading, 107, 0) ' Shading
|
|
SetTextAndToolTip(btnZoomAll, 109, 0) ' ZoomAll
|
|
SetTextAndToolTip(btnZoomIn, 111, 0) ' ZoomIn
|
|
SetTextAndToolTip(btnZoomOut, 113, 0) ' ZoomOut
|
|
SetTextAndToolTip(btnTop, 115, 0) ' Top
|
|
SetTextAndToolTip(btnFront, 117, 0) ' Front
|
|
SetTextAndToolTip(btnRight, 119, 0) ' Right
|
|
SetTextAndToolTip(btnBack, 121, 0) ' Back
|
|
SetTextAndToolTip(btnLeft, 123, 0) ' Left
|
|
SetTextAndToolTip(btnIsoSW, 127, 0) ' Iso SW
|
|
SetTextAndToolTip(btnIsoSE, 129, 0) ' Iso SE
|
|
SetTextAndToolTip(btnIsoNE, 131, 0) ' Iso NE
|
|
SetTextAndToolTip(btnIsoNW, 133, 0) ' Iso NW
|
|
SetTextAndToolTip(btnCPlane, 135, 136) ' CPlane / SetView perpendicular to current CPlane
|
|
SetTextAndToolTip(chkCurveDir, 137, 0) ' CurveDir
|
|
SetTextAndToolTip(chkAnalyze, 139, 0) ' Analyze
|
|
SetTextAndToolTip(chkGetDist, 141, 0) ' GetDist
|
|
' CPlane
|
|
TabCPlane.Text = EgtMsg(201) ' CPlane
|
|
SetTextAndToolTip(btnCplaneTop, 203, 0) ' Top
|
|
SetTextAndToolTip(btnCplaneFront, 205, 0) ' Front
|
|
SetTextAndToolTip(btnCplaneRight, 207, 0) ' Right
|
|
SetTextAndToolTip(btnCplaneBack, 209, 0) ' Back
|
|
SetTextAndToolTip(btnCplaneLeft, 211, 0) ' Left
|
|
SetTextAndToolTip(btnCplaneBottom, 213, 0) ' Bottom
|
|
SetTextAndToolTip(btnCPlaneView, 215, 216) ' View / Set CPlane perpendicular to View
|
|
SetTextAndToolTip(btnCplaneElevation, 217, 218) ' Elevat / Set Cplane Elevation
|
|
SetTextAndToolTip(btnCplaneOrigin, 219, 220) ' Origin / Set Cplane Origin
|
|
SetTextAndToolTip(btnCplaneRotate, 221, 222) ' Rotate / Rotate Cplane<br/>3D Rotate Cplane (Shift)
|
|
SetTextAndToolTip(btnCplane3P, 223, 224) ' 3 Points / Set Cplane from 3 Points
|
|
SetTextAndToolTip(btnCPlanePerpObj, 225, 226) ' PerpCrv / Set Cplane Perpendicular to Curve
|
|
SetTextAndToolTip(btnCPlaneObj, 227, 228) ' Object / Set Cplane from Object
|
|
'Draw
|
|
TabDraw.Text = EgtMsg(301) ' Draw
|
|
SetTextAndToolTip(btnPoint, 303, 304) ' Point / Point
|
|
SetTextAndToolTip(btnLine2P, 305, 306) ' Line 2P / Line : 2 Points
|
|
SetTextAndToolTip(btnLinePDL, 307, 308) ' Line PDL / Line : point, direction, length
|
|
SetTextAndToolTip(btnCircle, 309, 310) ' Circle / Circle : Center, Point<br/> Circle : Center, Diameter (Shift)
|
|
SetTextAndToolTip(btnArcCSE, 313, 314) ' Arc CSE / Arc : Center, Start, End
|
|
SetTextAndToolTip(btnArc3P, 315, 316) ' Arc 3P / Arc : 3 Points
|
|
SetTextAndToolTip(btnArcPDP, 317, 318) ' Arc SDE / Arc : Start, Direction, End
|
|
SetTextAndToolTip(btnFillet, 311, 312) ' Fillet / Fillet : Radius<br/>Chamfer : Dist1, Dist2 (Shift)
|
|
SetTextAndToolTip(btnRectangle2P, 319, 320) ' Rect 2P / Rectangle : 2 Points
|
|
SetTextAndToolTip(btnPolygon, 321, 322) ' Polygon / Polygon : Side with 2 Points
|
|
SetTextAndToolTip(btnText, 323, 324) ' Text / Text<br/>Advanced Text (Shift)
|
|
' Construct
|
|
TabConstruct.Text = EgtMsg(401) ' Construct
|
|
SetTextAndToolTip(btnPlane, 403, 404) ' Plane / Surface : between planar curves
|
|
SetTextAndToolTip(btnExtrude, 405, 406) ' Extrude / Surface : curve extrusion
|
|
SetTextAndToolTip(btnRevolve, 407, 408) ' Revolve / Surface : curve revolution
|
|
SetTextAndToolTip(btnScrew, 409, 410) ' Screw / Surface : curve screwing
|
|
SetTextAndToolTip(btnSwept, 419, 420) ' Swept / Surface : sweeping one curve around another
|
|
SetTextAndToolTip(btnRuled, 411, 412) ' Ruled / Surface : ruled between 2 curves
|
|
SetTextAndToolTip(btnMergeSurf, 413, 414) ' Merge / Merge Surfaces
|
|
SetTextAndToolTip(btnExplodeSurf, 417, 418) ' Explode / Explode Surfaces
|
|
SetTextAndToolTip(btnInvertSurf, 415, 416) ' Flip / Flip Surface Outside
|
|
' Edit
|
|
TabEdit.Text = EgtMsg(501) ' Edit
|
|
SetTextAndToolTip(btnDelete, 503, 504) ' Delete Objects
|
|
SetTextAndToolTip(btnChangeLayer, 505, 506) ' Change Object Layer to Current
|
|
SetTextAndToolTip(btnChangeColor, 507, 508) ' Change Color<br/>Remove Color (Shift)
|
|
SetTextAndToolTip(btnInvertCurve, 509, 510) ' Invert Curve
|
|
SetTextAndToolTip(btnExtendCurve, 511, 512) ' Trim or Extend Curve
|
|
SetTextAndToolTip(btnBreakCurve, 513, 514) ' Break Curve<br/>Split Curve in Pieces (Shift)
|
|
SetTextAndToolTip(btnJoinCurve, 515, 516) ' Join Curves
|
|
SetTextAndToolTip(btnExplodeCurve, 517, 518) ' Explode Text or Curve in Components
|
|
SetTextAndToolTip(btnChangeStartCurve, 521, 522) ' Start / Change Closed Curve Start Point
|
|
SetTextAndToolTip(btnSetCurveTh, 519, 520) ' Set Curve Thickness and Extrusion
|
|
' Transform
|
|
TabTransform.Text = EgtMsg(601) ' Transform
|
|
SetTextAndToolTip(btnMove, 603, 604) ' Move / Object Move
|
|
SetTextAndToolTip(btnRotate, 605, 606) ' Rotate / Object Rotate<br/>3D Object Rotate (Shift)
|
|
SetTextAndToolTip(btnMirror, 607, 608) ' Mirror / Object Mirror<br/>3D Object Mirror (Shift)
|
|
SetTextAndToolTip(btnScale, 609, 610) ' Scale / Object Scale<br/>3D Object Scale (Shift)
|
|
SetTextAndToolTip(btnOffset, 611, 612) ' Offset / Curve Offset
|
|
' Special
|
|
TabSpecial.Text = EgtMsg(701) ' Special
|
|
SetTextAndToolTip(btnFlatParts, 703, 704) ' FlatParts / Insert Flat Parts from DXF or NGE
|
|
SetTextAndToolTip(btnCompo, 705, 706) ' Compo / Insert Parametric Component
|
|
End Sub
|
|
|
|
Private Sub SetTextAndToolTip(control As Control, nTxtMsg As Integer, nTtiMsg As Integer)
|
|
If nTxtMsg > 0 Then
|
|
control.Text = EgtMsg(nTxtMsg)
|
|
End If
|
|
If nTtiMsg > 0 Then
|
|
ToolTip1.SetToolTip(control, EgtMsg(nTtiMsg))
|
|
End If
|
|
End Sub
|
|
|
|
Public Function ProcessEvents(ByVal nProg As Integer, ByVal nPause As Integer) As Integer
|
|
' Se previsto, imposto progress
|
|
If nProg > 0 Then
|
|
tsStatusProgress.Value = Math.Min(nProg, 100)
|
|
End If
|
|
' Costringo ad aggiornare
|
|
Application.DoEvents()
|
|
' Eventuale attesa
|
|
Thread.Sleep(nPause)
|
|
' Ritorno eventuale stop
|
|
If m_bStopScript Then
|
|
m_bStopScript = False
|
|
Return 0
|
|
Else
|
|
Return 1
|
|
End If
|
|
End Function
|
|
|
|
Public Function OutText(ByRef psText As IntPtr) As Boolean
|
|
EmitStripStatusOutput(Marshal.PtrToStringUni(psText))
|
|
Return True
|
|
End Function
|
|
|
|
'-------------------------------- Top Commands ---------------------------------------------------
|
|
' ------ File -------
|
|
Private Sub btnNew_Click(sender As System.Object, e As System.EventArgs) Handles btnNew.Click
|
|
m_Controller.NewProject(True)
|
|
End Sub
|
|
|
|
Private Sub btnOpen_Click(sender As System.Object, e As System.EventArgs) Handles btnOpen.Click
|
|
If (ModifierKeys And Keys.Shift) <> Keys.Shift Then
|
|
Dim sDir As String = String.Empty
|
|
GetPrivateProfileString(S_GENERAL, K_LASTNGEDIR, "", sDir, m_sIniFile)
|
|
m_Controller.OpenProject(sDir)
|
|
Else
|
|
ShowMenuMruFiles(btnOpen, New Point(0, btnOpen.Height))
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnInsert_Click(sender As System.Object, e As System.EventArgs) Handles btnInsert.Click
|
|
' eseguo
|
|
Dim sDir As String = String.Empty
|
|
GetPrivateProfileString(S_GENERAL, K_LASTNGEDIR, "", sDir, m_sIniFile)
|
|
m_Controller.InsertProject(sDir)
|
|
End Sub
|
|
|
|
Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
|
|
Dim nType As NGE = GetPrivateProfileInt(S_GEOMDB, K_SAVETYPE, NGE.CMPTEXT, m_sIniFile)
|
|
If Not String.IsNullOrWhiteSpace(m_Controller.GetCurrFile()) Then
|
|
m_Controller.SaveProject(nType)
|
|
Else
|
|
Dim sFile As String = String.Empty
|
|
GetPrivateProfileString(S_GENERAL, K_LASTNGEDIR, "", sFile, m_sIniFile)
|
|
sFile.TrimEnd("\"c)
|
|
sFile += "\New" & m_nInstance.ToString() & ".nge"
|
|
m_Controller.SaveAsProject(sFile, nType)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnSaveAs_Click(sender As System.Object, e As System.EventArgs) Handles btnSaveAs.Click
|
|
Dim nType As NGE = GetPrivateProfileInt(S_GEOMDB, K_SAVETYPE, NGE.CMPTEXT, m_sIniFile)
|
|
Dim sFile As String = m_Controller.GetCurrFile()
|
|
If String.IsNullOrWhiteSpace(sFile) Then
|
|
GetPrivateProfileString(S_GENERAL, K_LASTNGEDIR, "", sFile, m_sIniFile)
|
|
sFile.TrimEnd("\"c)
|
|
sFile += "\New" & m_nInstance.ToString() & ".nge"
|
|
End If
|
|
m_Controller.SaveAsProject(sFile, nType)
|
|
End Sub
|
|
|
|
Private Sub btnImport_Click(sender As System.Object, e As System.EventArgs) Handles btnImport.Click
|
|
Dim sDir As String = String.Empty
|
|
GetPrivateProfileString(S_GENERAL, K_LASTIMPDIR, "", sDir, m_sIniFile)
|
|
m_Controller.ImportProject(sDir)
|
|
End Sub
|
|
|
|
Private Sub btnExport_Click(sender As System.Object, e As System.EventArgs) Handles btnExport.Click
|
|
m_Controller.ExportProject(Path.ChangeExtension(m_Controller.GetCurrFile(), "dxf"))
|
|
End Sub
|
|
|
|
Private Sub btnExec_Click(sender As System.Object, e As System.EventArgs) Handles btnExec.Click
|
|
If (ModifierKeys And Keys.Shift) <> Keys.Shift Then
|
|
Dim sDir As String = String.Empty
|
|
GetPrivateProfileString(S_GENERAL, K_LASTLUADIR, "", sDir, m_sIniFile)
|
|
m_Controller.Exec(sDir)
|
|
Else
|
|
ShowMenuMruScripts(btnExec, New Point(0, btnExec.Height))
|
|
End If
|
|
End Sub
|
|
|
|
' ------ View -------
|
|
Private Sub btnWireFrame_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles btnWireFrame.CheckedChanged
|
|
Scene1.WireFrame()
|
|
End Sub
|
|
|
|
Private Sub btnHiddenLine_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles btnHiddenLine.CheckedChanged
|
|
Scene1.HiddenLine()
|
|
End Sub
|
|
|
|
Private Sub btnShading_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles btnShading.CheckedChanged
|
|
Scene1.Shading()
|
|
End Sub
|
|
|
|
Private Sub btnZoomAll_Click(sender As System.Object, e As System.EventArgs) Handles btnZoomAll.Click
|
|
Scene1.ZoomAll()
|
|
End Sub
|
|
|
|
Private Sub btnZoomIn_Click(sender As System.Object, e As System.EventArgs) Handles btnZoomIn.Click
|
|
Scene1.ZoomIn()
|
|
End Sub
|
|
|
|
Private Sub btnZoomOut_Click(sender As System.Object, e As System.EventArgs) Handles btnZoomOut.Click
|
|
Scene1.ZoomOut()
|
|
End Sub
|
|
|
|
Private Sub btnTop_Click(sender As System.Object, e As System.EventArgs) Handles btnTop.Click
|
|
Scene1.TopView()
|
|
End Sub
|
|
|
|
Private Sub btnFront_Click(sender As System.Object, e As System.EventArgs) Handles btnFront.Click
|
|
Scene1.FrontView()
|
|
End Sub
|
|
|
|
Private Sub btnLeft_Click(sender As System.Object, e As System.EventArgs) Handles btnLeft.Click
|
|
Scene1.LeftView()
|
|
End Sub
|
|
|
|
Private Sub btnBack_Click(sender As System.Object, e As System.EventArgs) Handles btnBack.Click
|
|
Scene1.BackView()
|
|
End Sub
|
|
|
|
Private Sub btnRight_Click(sender As System.Object, e As System.EventArgs) Handles btnRight.Click
|
|
Scene1.RightView()
|
|
End Sub
|
|
|
|
Private Sub btnCPlane_Click(sender As System.Object, e As System.EventArgs) Handles btnCPlane.Click
|
|
Scene1.CPlaneView()
|
|
End Sub
|
|
|
|
Private Sub btnIsoSW_Click(sender As System.Object, e As System.EventArgs) Handles btnIsoSW.Click
|
|
Scene1.IsoViewSW()
|
|
End Sub
|
|
|
|
Private Sub btnIsoSE_Click(sender As System.Object, e As System.EventArgs) Handles btnIsoSE.Click
|
|
Scene1.IsoViewSE()
|
|
End Sub
|
|
|
|
Private Sub btnIsoNE_Click(sender As System.Object, e As System.EventArgs) Handles btnIsoNE.Click
|
|
Scene1.IsoViewNE()
|
|
End Sub
|
|
|
|
Private Sub btnIsoNW_Click(sender As System.Object, e As System.EventArgs) Handles btnIsoNW.Click
|
|
Scene1.IsoViewNW()
|
|
End Sub
|
|
|
|
Private Sub chkCurveDir_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkCurveDir.CheckedChanged
|
|
EgtSetShowCurveDirection(chkCurveDir.Checked)
|
|
End Sub
|
|
|
|
Private Sub chkAnalyze_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkAnalyze.CheckedChanged
|
|
If chkAnalyze.Checked Then
|
|
chkGetDist.Checked = False
|
|
Scene1.SetStatusAnalyze()
|
|
Else
|
|
Scene1.ResetStatusAnalyze()
|
|
ObjTreeTickEvent(Nothing, Nothing)
|
|
SelectIdInObjTree(GDB_ID.NULL)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub chkGetDist_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkGetDist.CheckedChanged
|
|
If chkGetDist.Checked Then
|
|
chkAnalyze.Checked = False
|
|
Scene1.SetStatusGetDistance()
|
|
EmitStripStatusOutput("")
|
|
Else
|
|
Scene1.ResetStatusGetDistance()
|
|
EmitStripStatusOutput("")
|
|
End If
|
|
End Sub
|
|
|
|
' ------ Grid -------
|
|
Private Sub btnCplaneTop_Click(sender As System.Object, e As System.EventArgs) Handles btnCplaneTop.Click
|
|
m_Controller.SetLastInteger(GRID_TYPE.TOP)
|
|
m_Controller.ExecuteCommand(CMD.GRID)
|
|
End Sub
|
|
|
|
Private Sub btnCplaneFront_Click(sender As System.Object, e As System.EventArgs) Handles btnCplaneFront.Click
|
|
m_Controller.SetLastInteger(GRID_TYPE.FRONT)
|
|
m_Controller.ExecuteCommand(CMD.GRID)
|
|
End Sub
|
|
|
|
Private Sub btnCplaneRight_Click(sender As System.Object, e As System.EventArgs) Handles btnCplaneRight.Click
|
|
m_Controller.SetLastInteger(GRID_TYPE.RIGHT)
|
|
m_Controller.ExecuteCommand(CMD.GRID)
|
|
End Sub
|
|
|
|
Private Sub btnCplaneBack_Click(sender As System.Object, e As System.EventArgs) Handles btnCplaneBack.Click
|
|
m_Controller.SetLastInteger(GRID_TYPE.BACK)
|
|
m_Controller.ExecuteCommand(CMD.GRID)
|
|
End Sub
|
|
|
|
Private Sub btnCplaneLeft_Click(sender As System.Object, e As System.EventArgs) Handles btnCplaneLeft.Click
|
|
m_Controller.SetLastInteger(GRID_TYPE.LEFT)
|
|
m_Controller.ExecuteCommand(CMD.GRID)
|
|
End Sub
|
|
|
|
Private Sub btnCplaneBottom_Click(sender As System.Object, e As System.EventArgs) Handles btnCplaneBottom.Click
|
|
m_Controller.SetLastInteger(GRID_TYPE.BOTTOM)
|
|
m_Controller.ExecuteCommand(CMD.GRID)
|
|
End Sub
|
|
|
|
Private Sub btnCplaneView_Click(sender As System.Object, e As System.EventArgs) Handles btnCPlaneView.Click
|
|
m_Controller.SetLastInteger(GRID_TYPE.VIEW)
|
|
m_Controller.ExecuteCommand(CMD.GRID)
|
|
End Sub
|
|
|
|
Private Sub btnCplaneElevation_Click(sender As System.Object, e As System.EventArgs) Handles btnCplaneElevation.Click
|
|
m_Controller.ExecuteCommand(CMD.GRID_ELEVATION)
|
|
End Sub
|
|
|
|
Private Sub btnCplaneOrigin_Click(sender As System.Object, e As System.EventArgs) Handles btnCplaneOrigin.Click
|
|
m_Controller.ExecuteCommand(CMD.GRID_ORIGIN)
|
|
End Sub
|
|
|
|
Private Sub btnCplaneRotate_Click(sender As System.Object, e As System.EventArgs) Handles btnCplaneRotate.Click
|
|
If (ModifierKeys And Keys.Shift) <> Keys.Shift Then
|
|
m_Controller.ExecuteCommand(CMD.GRID_ROTATE)
|
|
Else
|
|
m_Controller.ExecuteCommand(CMD.GRID_ROTATE3D)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnCplane3Points_Click(sender As System.Object, e As System.EventArgs) Handles btnCplane3P.Click
|
|
m_Controller.ExecuteCommand(CMD.GRID_3P)
|
|
End Sub
|
|
|
|
Private Sub btnCplanePerpCurve_Click(sender As System.Object, e As System.EventArgs) Handles btnCPlanePerpObj.Click
|
|
m_Controller.ExecuteCommand(CMD.GRID_PERPCURVE)
|
|
End Sub
|
|
|
|
Private Sub btnCplaneObject_Click(sender As System.Object, e As System.EventArgs) Handles btnCPlaneObj.Click
|
|
m_Controller.ExecuteCommand(CMD.GRID_OBJ)
|
|
End Sub
|
|
|
|
|
|
' --------------------- Commands --------------------------------
|
|
' ------ Draw -------
|
|
Private Sub btnPoint_Click(sender As System.Object, e As System.EventArgs) Handles btnPoint.Click
|
|
If (ModifierKeys And Keys.Control) = Keys.Control Then
|
|
m_Controller.ExecuteCommand(CMD.FRAME)
|
|
ElseIf (ModifierKeys And Keys.Shift) = Keys.Shift Then
|
|
m_Controller.ExecuteCommand(CMD.VECTOR)
|
|
Else
|
|
m_Controller.ExecuteCommand(CMD.POINT)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnLine2P_Click(sender As System.Object, e As System.EventArgs) Handles btnLine2P.Click
|
|
If (ModifierKeys And Keys.Control) = Keys.Control Then
|
|
m_Controller.SetContinue()
|
|
EmitStripStatusOutput(EgtMsg(399)) ' Continue : 'L' with line, 'A' with arc
|
|
End If
|
|
m_Controller.ExecuteCommand(CMD.LINE2P)
|
|
End Sub
|
|
|
|
Private Sub btnLinePDL_Click(sender As System.Object, e As System.EventArgs) Handles btnLinePDL.Click
|
|
If (ModifierKeys And Keys.Shift) <> Keys.Shift Then
|
|
m_Controller.ExecuteCommand(CMD.LINEPDL)
|
|
Else
|
|
m_Controller.ExecuteCommand(CMD.LINEPVL)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnCircleCP_Click(sender As System.Object, e As System.EventArgs) Handles btnCircle.Click
|
|
If (ModifierKeys And Keys.Shift) <> Keys.Shift Then
|
|
m_Controller.ExecuteCommand(CMD.CIRCLECP)
|
|
Else
|
|
m_Controller.ExecuteCommand(CMD.CIRCLECD)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnArcCSE_Click(sender As System.Object, e As System.EventArgs) Handles btnArcCSE.Click
|
|
m_Controller.ExecuteCommand(CMD.ARCCSE)
|
|
End Sub
|
|
|
|
Private Sub btnArc3P_Click(sender As System.Object, e As System.EventArgs) Handles btnArc3P.Click
|
|
m_Controller.ExecuteCommand(CMD.ARC3P)
|
|
End Sub
|
|
|
|
Private Sub btnArcPDP_Click(sender As System.Object, e As System.EventArgs) Handles btnArcPDP.Click
|
|
If (ModifierKeys And Keys.Shift) <> Keys.Shift Then
|
|
If (ModifierKeys And Keys.Control) = Keys.Control Then
|
|
m_Controller.SetContinue()
|
|
EmitStripStatusOutput(EgtMsg(399)) ' Continue : 'L' with line, 'A' with arc
|
|
End If
|
|
m_Controller.ExecuteCommand(CMD.ARCPDP)
|
|
Else
|
|
m_Controller.ExecuteCommand(CMD.ARCPVP)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnFillet_Click(sender As System.Object, e As System.EventArgs) Handles btnFillet.Click
|
|
If (ModifierKeys And Keys.Shift) <> Keys.Shift Then
|
|
m_Controller.ExecuteCommand(CMD.FILLET)
|
|
Else
|
|
m_Controller.ExecuteCommand(CMD.CHAMFER)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnRectangle2P_Click(sender As System.Object, e As System.EventArgs) Handles btnRectangle2P.Click
|
|
m_Controller.ExecuteCommand(CMD.RECTANGLE2P)
|
|
End Sub
|
|
|
|
Private Sub btnPolygon_Click(sender As System.Object, e As System.EventArgs) Handles btnPolygon.Click
|
|
If (ModifierKeys And Keys.Shift) <> Keys.Shift Then
|
|
m_Controller.ExecuteCommand(CMD.POLYGON)
|
|
Else
|
|
m_Controller.ExecuteCommand(CMD.POLYGONSIDE)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnText_Click(sender As System.Object, e As System.EventArgs) Handles btnText.Click
|
|
If (ModifierKeys And Keys.Shift) <> Keys.Shift Then
|
|
m_Controller.ExecuteCommand(CMD.TEXT)
|
|
Else
|
|
m_Controller.ExecuteCommand(CMD.TEXTPLUS)
|
|
End If
|
|
End Sub
|
|
|
|
' ------ Create -------
|
|
Private Sub btnPlane_Click(sender As System.Object, e As System.EventArgs) Handles btnPlane.Click
|
|
If (ModifierKeys And Keys.Shift) = Keys.Shift Then
|
|
m_Controller.ExecuteCommand(CMD.REGION)
|
|
Else
|
|
m_Controller.ExecuteCommand(CMD.PLANE)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnExtrude_Click(sender As System.Object, e As System.EventArgs) Handles btnExtrude.Click
|
|
m_Controller.ExecuteCommand(CMD.EXTRUDE)
|
|
End Sub
|
|
|
|
Private Sub btnRevolve_Click(sender As System.Object, e As System.EventArgs) Handles btnRevolve.Click
|
|
m_Controller.ExecuteCommand(CMD.REVOLVE)
|
|
End Sub
|
|
|
|
Private Sub btnScrew_Click(sender As System.Object, e As System.EventArgs) Handles btnScrew.Click
|
|
m_Controller.ExecuteCommand(CMD.SCREW)
|
|
End Sub
|
|
|
|
Private Sub btnSwept_Click(sender As System.Object, e As System.EventArgs) Handles btnSwept.Click
|
|
m_Controller.ExecuteCommand(CMD.SWEPT)
|
|
End Sub
|
|
|
|
Private Sub btnRuled_Click(sender As System.Object, e As System.EventArgs) Handles btnRuled.Click
|
|
m_Controller.ExecuteCommand(CMD.RULED)
|
|
End Sub
|
|
|
|
Private Sub btnMergeSurf_Click(sender As System.Object, e As System.EventArgs) Handles btnMergeSurf.Click
|
|
m_Controller.ExecuteCommand(CMD.MERGESURF)
|
|
End Sub
|
|
|
|
Private Sub btnExplodeSurf_Click(sender As System.Object, e As System.EventArgs) Handles btnExplodeSurf.Click
|
|
m_Controller.ExecuteCommand(CMD.EXPLODESURF)
|
|
End Sub
|
|
|
|
Private Sub btnInvertSurf_Click(sender As System.Object, e As System.EventArgs) Handles btnInvertSurf.Click
|
|
m_Controller.ExecuteCommand(CMD.INVERTSURF)
|
|
End Sub
|
|
|
|
' ------ Modify -------
|
|
Private Sub btnDelete_Click(sender As System.Object, e As System.EventArgs) Handles btnDelete.Click
|
|
m_Controller.SetLastInteger(GDB_ID.SEL)
|
|
m_Controller.ExecuteCommand(CMD.DELETE)
|
|
End Sub
|
|
|
|
Private Sub btnChangeLayer_Click(sender As System.Object, e As System.EventArgs) Handles btnChangeLayer.Click
|
|
If (ModifierKeys And Keys.Shift) = Keys.Shift Then
|
|
m_Controller.ExecuteCommand(CMD.CHANGELAYER)
|
|
Else
|
|
m_Controller.ExecuteCommand(CMD.CHANGELAYERGLOB)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnChangeColor_Click(sender As System.Object, e As System.EventArgs) Handles btnChangeColor.Click
|
|
If (ModifierKeys And Keys.Control) = Keys.Control Then
|
|
m_Controller.ExecuteCommand(CMD.CHANGEALPHA)
|
|
ElseIf (ModifierKeys And Keys.Shift) = Keys.Shift Then
|
|
m_Controller.ExecuteCommand(CMD.RESETCOLOR)
|
|
Else
|
|
m_Controller.ExecuteCommand(CMD.CHANGECOLOR)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnInvertCurve_Click(sender As System.Object, e As System.EventArgs) Handles btnInvertCurve.Click
|
|
m_Controller.ExecuteCommand(CMD.INVERTCURVE)
|
|
End Sub
|
|
|
|
Private Sub btnChangeStart_Click(sender As System.Object, e As System.EventArgs) Handles btnChangeStartCurve.Click
|
|
m_Controller.ExecuteCommand(CMD.CHANGESTARTCURVE)
|
|
End Sub
|
|
|
|
Private Sub btnExtendCurve_Click(sender As System.Object, e As System.EventArgs) Handles btnExtendCurve.Click
|
|
m_Controller.ExecuteCommand(CMD.TRIMEXTENDCURVE)
|
|
End Sub
|
|
|
|
Private Sub btnBreakCurve_Click(sender As System.Object, e As System.EventArgs) Handles btnBreakCurve.Click
|
|
If (ModifierKeys And Keys.Shift) <> Keys.Shift Then
|
|
m_Controller.ExecuteCommand(CMD.BREAKCURVE)
|
|
Else
|
|
m_Controller.ExecuteCommand(CMD.SPLITCURVE)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnJoinCurve_Click(sender As System.Object, e As System.EventArgs) Handles btnJoinCurve.Click
|
|
If (ModifierKeys And Keys.Shift) <> Keys.Shift Then
|
|
m_Controller.SetLastBoolean(False)
|
|
Else
|
|
m_Controller.SetLastBoolean(True)
|
|
End If
|
|
m_Controller.ExecuteCommand(CMD.JOINCURVE)
|
|
End Sub
|
|
|
|
Private Sub btnExplodeCurve_Click(sender As System.Object, e As System.EventArgs) Handles btnExplodeCurve.Click
|
|
m_Controller.ExecuteCommand(CMD.EXPLODECURVE)
|
|
End Sub
|
|
|
|
Private Sub btnSetCurveTh_Click(sender As System.Object, e As System.EventArgs) Handles btnSetCurveTh.Click
|
|
m_Controller.ExecuteCommand(CMD.SETCURVETHICKNESS)
|
|
End Sub
|
|
|
|
' ------ Transform -------
|
|
Private Sub btnMove_Click(sender As System.Object, e As System.EventArgs) Handles btnMove.Click
|
|
m_Controller.ExecuteCommand(CMD.MOVE)
|
|
End Sub
|
|
|
|
Private Sub btnRotate_Click(sender As System.Object, e As System.EventArgs) Handles btnRotate.Click
|
|
If (ModifierKeys And Keys.Shift) <> Keys.Shift Then
|
|
m_Controller.ExecuteCommand(CMD.ROTATE)
|
|
Else
|
|
m_Controller.ExecuteCommand(CMD.ROTATE3D)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnMirror_Click(sender As System.Object, e As System.EventArgs) Handles btnMirror.Click
|
|
If (ModifierKeys And Keys.Shift) <> Keys.Shift Then
|
|
m_Controller.ExecuteCommand(CMD.MIRROR)
|
|
Else
|
|
m_Controller.ExecuteCommand(CMD.MIRROR3D)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnScale_Click(sender As System.Object, e As System.EventArgs) Handles btnScale.Click
|
|
If (ModifierKeys And Keys.Shift) <> Keys.Shift Then
|
|
m_Controller.ExecuteCommand(CMD.SCALE)
|
|
Else
|
|
m_Controller.ExecuteCommand(CMD.SCALE3D)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnOffset_Click(sender As System.Object, e As System.EventArgs) Handles btnOffset.Click
|
|
m_Controller.ExecuteCommand(CMD.OFFSET)
|
|
End Sub
|
|
|
|
' ------ Special -------
|
|
Private Sub btnFlatParts_Click(sender As System.Object, e As System.EventArgs) Handles btnFlatParts.Click
|
|
' lancio dialogo importazione pezzi 2d
|
|
Dim FlatPartsDlg As New FlatParts
|
|
FlatPartsDlg.ShowDialog()
|
|
' ripristino contesto principale
|
|
EgtSetCurrentContext(Scene1.GetCtx())
|
|
' aggiorno interfaccia
|
|
EmitCurrPartLayer()
|
|
LoadObjTree()
|
|
EgtZoom(ZM.ALL)
|
|
End Sub
|
|
|
|
Private Sub btnCompo_Click(sender As System.Object, e As System.EventArgs) Handles btnCompo.Click
|
|
' lancio dialogo componenti
|
|
Dim CompoDlg As New Component
|
|
CompoDlg.ShowDialog()
|
|
' ripristino contesto principale
|
|
EgtSetCurrentContext(Scene1.GetCtx())
|
|
' aggiorno interfaccia
|
|
EmitCurrPartLayer()
|
|
LoadObjTree()
|
|
EgtZoom(ZM.ALL)
|
|
End Sub
|
|
|
|
Private Sub btnDoors_Click(sender As Object, e As EventArgs) Handles btnDoors.Click
|
|
Dim bOk As Boolean = ExecDoors(Scene1)
|
|
OnUpdateUI(Nothing, True)
|
|
If Not bOk Then EmitStripStatusOutput("Error running Ddf file")
|
|
End Sub
|
|
|
|
|
|
'-------------------------------- KeyDown --------------------------------------------------------
|
|
Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles MyBase.KeyDown
|
|
' Con ESC esco dall'azione corrente
|
|
If e.KeyData = Keys.Escape Then
|
|
' reset Azione corrente
|
|
m_Controller.ResetStatus()
|
|
' reset Analisi e Distanza
|
|
chkAnalyze.Checked = False
|
|
chkGetDist.Checked = False
|
|
' pulisco output
|
|
EmitStripStatusOutput("")
|
|
ResetInputBox()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Scene1_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles Scene1.KeyDown
|
|
' Con DEL eseguo cancellazione delle entità selezionate
|
|
If e.KeyData = Keys.Delete Then
|
|
m_Controller.SetLastInteger(GDB_ID.SEL)
|
|
m_Controller.ExecuteCommand(CMD.DELETE)
|
|
' Con SPAZIO ripeto l'ultimo comando
|
|
ElseIf e.KeyData = Keys.Space Then
|
|
m_Controller.RepeatLastCommand()
|
|
' Con 'A' e in modalità continuazione, forzo il passaggio ad arco
|
|
ElseIf e.KeyData = Keys.A And m_Controller.GetContinue() Then
|
|
m_Controller.ContinueArcPDP()
|
|
' Con 'L' e in modalità continuazione, forzo il passaggio a retta
|
|
ElseIf e.KeyData = Keys.L And m_Controller.GetContinue() Then
|
|
m_Controller.ContinueLine2P()
|
|
' Con 'V' cambio lo stato del check
|
|
ElseIf e.KeyData = Keys.V Then
|
|
InputCheck.Checked = Not InputCheck.Checked
|
|
End If
|
|
End Sub
|
|
|
|
|
|
' --------------------- Input Box -------------------------------
|
|
Private Sub PrepareInputBox(ByRef sTitle As String, ByRef sLabel As String, ByRef sCheckLabel As String,
|
|
ByVal bShowCombo As Boolean, ByVal bShowBtn As Boolean)
|
|
InputBox.Text = sTitle
|
|
InputBox.Show()
|
|
If sLabel <> "" Then
|
|
InputLabel.Text = sLabel
|
|
InputLabel.Show()
|
|
InputText.Text = ""
|
|
InputText.Show()
|
|
End If
|
|
If sCheckLabel <> "" Then
|
|
InputCheck.Text = sCheckLabel
|
|
InputCheck.Show()
|
|
End If
|
|
If bShowCombo Then
|
|
InputCombo.Items.Clear()
|
|
InputCombo.Show()
|
|
End If
|
|
If bShowBtn Then
|
|
btnShow.Show()
|
|
End If
|
|
InputText.Focus()
|
|
End Sub
|
|
|
|
Private Sub ResetInputBox()
|
|
InputBox.Hide()
|
|
InputLabel.Hide()
|
|
InputText.Hide()
|
|
InputCheck.Hide()
|
|
InputCombo.Hide()
|
|
btnShow.Hide()
|
|
Scene1.Focus()
|
|
End Sub
|
|
|
|
Private Function SetInputBoxText(ByVal sVal As String) As Boolean
|
|
InputText.Text = sVal
|
|
InputText.Focus()
|
|
Return True
|
|
End Function
|
|
|
|
Private Function SetInputBoxCheck(ByVal bCheck As Boolean) As Boolean
|
|
InputCheck.Checked = bCheck
|
|
m_Controller.SetLastBoolean(InputCheck.Checked)
|
|
Return True
|
|
End Function
|
|
|
|
Private Function AddInputBoxCombo(ByVal sText As String, ByVal bSelected As Boolean) As Boolean
|
|
Dim nId As Integer = InputCombo.Items.Add(sText)
|
|
If bSelected Then
|
|
InputCombo.SelectedIndex = nId
|
|
End If
|
|
Return True
|
|
End Function
|
|
|
|
Private Sub InputText_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles InputText.KeyDown
|
|
' Con RETURN avanzo di un passo
|
|
If e.KeyData = Keys.Return Then
|
|
m_Controller.Done(InputText.Text)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub InputCheck_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles InputCheck.CheckedChanged
|
|
m_Controller.SetLastBoolean(InputCheck.Checked)
|
|
End Sub
|
|
|
|
Private Sub InputCombo_SelectionChanged(ByVal sender As Object, ByVal e As EventArgs) Handles InputCombo.SelectedIndexChanged
|
|
m_Controller.SetLastInteger(InputCombo.SelectedIndex)
|
|
End Sub
|
|
|
|
Private Sub btnShow_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnShow.Click
|
|
m_Controller.Show(InputText.Text)
|
|
End Sub
|
|
|
|
Private Sub btnDone_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDone.Click
|
|
m_Controller.Done(InputText.Text)
|
|
End Sub
|
|
|
|
|
|
'-------------------------------- Command Box ----------------------------------------------------
|
|
Private Sub tboxCmd_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles tboxCmd.KeyDown
|
|
If (e.KeyCode = Keys.Enter) Then
|
|
Dim nLine As Integer = tboxCmd.GetLineFromCharIndex(tboxCmd.GetFirstCharIndexOfCurrentLine)
|
|
Dim sCmd As String = tboxCmd.Lines(nLine).ToString
|
|
If Not String.IsNullOrEmpty(sCmd) Then
|
|
' ripristino stato oggetto marcato
|
|
Dim nIdOld As Integer = RevertOldIdInObjTree()
|
|
' eseguo comando
|
|
m_Controller.SetLastString(sCmd)
|
|
If m_Controller.ExecuteCommand(CMD.EXECLINE) Then
|
|
tsStatusOnR.Text = " "
|
|
Else
|
|
tsStatusOnR.Text = "Error executing command"
|
|
End If
|
|
SelectIdInObjTree(nIdOld)
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
|
|
'-------------------------------- Current Piece/Layer --------------------------------------------
|
|
Private Sub btnNewPart_Click(sender As Object, e As EventArgs) Handles btnNewPart.Click
|
|
m_Controller.ExecuteCommand(CMD.NEWPART)
|
|
End Sub
|
|
|
|
Private Sub btnNewLayer_Click(sender As Object, e As EventArgs) Handles btnNewLayer.Click
|
|
m_Controller.ExecuteCommand(CMD.NEWLAYER)
|
|
End Sub
|
|
|
|
Private Sub btnColor_Click(sender As Object, e As EventArgs) Handles btnColor.Click
|
|
m_Controller.ExecuteCommand(CMD.LAYERCOLOR)
|
|
End Sub
|
|
|
|
Private Sub EmitCurrPartLayer()
|
|
Dim sText As String = " "
|
|
Dim sName As String = String.Empty
|
|
Dim colObj As Color3d
|
|
EgtGetColor(GDB_ID.ROOT, colObj)
|
|
Dim nCurrPart As Integer = m_Controller.GetCurrPart()
|
|
If nCurrPart <> GDB_ID.NULL Then
|
|
If EgtGetName(nCurrPart, sName) Then
|
|
sText = sName
|
|
Else
|
|
sText = "Part " + nCurrPart.ToString()
|
|
End If
|
|
EgtGetCalcColor(nCurrPart, colObj)
|
|
Dim nCurrLayer As Integer = m_Controller.GetCurrLayer()
|
|
If nCurrLayer <> GDB_ID.NULL And EgtExistsObj(nCurrLayer) Then
|
|
If EgtGetName(nCurrLayer, sName) Then
|
|
sText += " --> " + sName
|
|
Else
|
|
sText += " --> Layer " + nCurrLayer.ToString()
|
|
End If
|
|
EgtGetCalcColor(nCurrLayer, colObj)
|
|
End If
|
|
End If
|
|
txtPartLay.Text = sText
|
|
colObj.A = 100
|
|
txtColor.BackColor = colObj.ToColor()
|
|
End Sub
|
|
|
|
|
|
'-------------------------------- Tree View ------------------------------------------------------
|
|
Private m_nObjTreeOldId As Integer = GDB_ID.NULL
|
|
Private m_nObjTreeMenuId As Integer = GDB_ID.NULL
|
|
|
|
Private Sub ObjTreeTickEvent(source As Object, e As EventArgs) Handles ObjTreeTimer.Tick
|
|
If m_nObjTreeOldId <> GDB_ID.NULL Then
|
|
EgtResetMark(m_nObjTreeOldId)
|
|
EgtDraw()
|
|
End If
|
|
ObjTreeTimer.Stop()
|
|
End Sub
|
|
|
|
Public Sub LoadObjTree()
|
|
Dim nOldId As Integer = ClearObjTree()
|
|
TreeView1.BeginUpdate()
|
|
AddGroupInObjTree(GDB_ID.ROOT, GDB_LV.USER, 0, TreeView1.Nodes)
|
|
TreeView1.EndUpdate()
|
|
If nOldId <> GDB_ID.NULL Then
|
|
SelectIdInObjTree(nOldId)
|
|
UpdateObjDataInObjTree(m_nObjTreeOldId)
|
|
Else
|
|
tBoxInfo.Text = String.Empty
|
|
End If
|
|
End Sub
|
|
|
|
Private Function ClearObjTree() As Integer
|
|
Dim nOldId As Integer = RevertOldIdInObjTree()
|
|
TreeView1.Nodes.Clear()
|
|
Return nOldId
|
|
End Function
|
|
|
|
Private Sub AddGroupInObjTree(ByVal nGroupId As Integer, ByVal nLevel As Integer, ByVal nDepth As Integer, ByRef PrevNodColl As TreeNodeCollection)
|
|
|
|
Dim CurrNodColl As TreeNodeCollection
|
|
|
|
If nGroupId = GDB_ID.ROOT Then
|
|
CurrNodColl = PrevNodColl
|
|
Else
|
|
' livello
|
|
Dim nObjLev As Integer = GDB_LV.USER
|
|
EgtGetLevel(nGroupId, nObjLev)
|
|
If nObjLev = GDB_LV.TEMP Then
|
|
nLevel = GDB_LV.TEMP
|
|
ElseIf nLevel = GDB_LV.USER Then
|
|
nLevel = nObjLev
|
|
End If
|
|
' tipo
|
|
Dim nGroupType As Integer = 0 ' 0=gruppo generico, 1=pezzo, 2=layer
|
|
If nLevel = GDB_LV.USER Then
|
|
nGroupType = nDepth
|
|
End If
|
|
' nome
|
|
Dim sName As String = String.Empty
|
|
Dim sText As String = String.Empty
|
|
If EgtGetName(nGroupId, sName) Then
|
|
If nGroupType = 1 Then
|
|
sText = sName + " (Part " + nGroupId.ToString + ")"
|
|
ElseIf nGroupType = 2 Then
|
|
sText = sName + " (Layer " + nGroupId.ToString + ")"
|
|
Else
|
|
sText = sName + " (Group " + nGroupId.ToString + ")"
|
|
End If
|
|
Else
|
|
If nGroupType = 1 Then
|
|
sText = "Part " + nGroupId.ToString
|
|
ElseIf nGroupType = 2 Then
|
|
sText = "Layer " + nGroupId.ToString
|
|
Else
|
|
sText = "Group " + nGroupId.ToString
|
|
End If
|
|
End If
|
|
' per visualizzare oggetti di livello diverso da utente, si deve avere il permesso
|
|
If nLevel <> GDB_LV.USER And GetUserLevel() < 5 Then
|
|
Return
|
|
End If
|
|
' inserisco il nodo nell'albero
|
|
Dim nImage As Integer = TypeToImageInObjTree(GDB_TY.GROUP, nGroupType)
|
|
Dim CurrNod As TreeNode = PrevNodColl.Add(nGroupId.ToString(), sText, nImage, nImage)
|
|
CurrNodColl = CurrNod.Nodes
|
|
Dim nStat As GDB_ST = GDB_ST.ON_
|
|
EgtGetStatus(nGroupId, nStat)
|
|
CurrNod.Checked = (nStat <> GDB_ST.OFF)
|
|
End If
|
|
|
|
Dim nObjs As Integer = EgtGetGroupObjs(nGroupId)
|
|
If (nObjs > 20000) Then
|
|
Dim sText As String = "Too many entities (" + nObjs.ToString() + ")"
|
|
CurrNodColl.Add(GDB_ID.NULL.ToString(), sText)
|
|
Return
|
|
End If
|
|
|
|
Dim nId As Integer = EgtGetFirstInGroup(nGroupId)
|
|
While nId <> GDB_ID.NULL
|
|
'recupero il tipo di nodo
|
|
Dim nType As Integer = EgtGetType(nId)
|
|
'se gruppo
|
|
If nType = GDB_TY.GROUP Then
|
|
AddGroupInObjTree(nId, nLevel, nDepth + 1, CurrNodColl)
|
|
'se oggetto geometrico
|
|
ElseIf nType >= GDB_TY.GEO_VECTOR Then
|
|
Dim sTitle As String = String.Empty
|
|
EgtGetTitle(nId, sTitle)
|
|
Dim sName As String = String.Empty
|
|
Dim sText As String = String.Empty
|
|
If EgtGetName(nId, sName) Then
|
|
sText = sName & " (" & sTitle & " " + nId.ToString & ")"
|
|
Else
|
|
sText = sTitle & " " & nId.ToString
|
|
End If
|
|
Dim nImage As Integer = TypeToImageInObjTree(nType, nDepth)
|
|
Dim CurrNod As TreeNode = CurrNodColl.Add(nId.ToString, sText, nImage, nImage)
|
|
Dim nStat As GDB_ST = GDB_ST.ON_
|
|
EgtGetStatus(nId, nStat)
|
|
CurrNod.Checked = (nStat <> GDB_ST.OFF)
|
|
End If
|
|
'passo al successivo
|
|
nId = EgtGetNext(nId)
|
|
End While
|
|
End Sub
|
|
|
|
Private Sub UpdateObjTree()
|
|
' per aggiornare l'albero senza ricostruirlo da capo
|
|
' se c'è una entità corrente, ne aggiorno i dati
|
|
If m_nObjTreeOldId <> GDB_ID.NULL Then
|
|
UpdateObjDataInObjTree(m_nObjTreeOldId)
|
|
End If
|
|
End Sub
|
|
|
|
Private Function TypeToImageInObjTree(ByVal nType As Integer, ByVal nSubType As Integer) As Integer
|
|
Select Case nType
|
|
Case GDB_TY.GROUP
|
|
If nSubType = 1 Then
|
|
Return 3
|
|
ElseIf nSubType = 2 Then
|
|
Return 4
|
|
Else
|
|
Return 2
|
|
End If
|
|
Case GDB_TY.GEO_VECTOR
|
|
Return 5
|
|
Case GDB_TY.GEO_POINT
|
|
Return 6
|
|
Case GDB_TY.GEO_FRAME
|
|
Return 7
|
|
Case GDB_TY.CRV_LINE
|
|
Return 8
|
|
Case GDB_TY.CRV_ARC
|
|
Return 9
|
|
Case GDB_TY.CRV_BEZ
|
|
Return 10
|
|
Case GDB_TY.CRV_COMPO
|
|
Return 11
|
|
Case GDB_TY.SRF_MESH
|
|
Return 12
|
|
Case GDB_TY.SRF_FRGN
|
|
Return 13
|
|
Case GDB_TY.VOL_ZMAP
|
|
Return 14
|
|
Case GDB_TY.EXT_TEXT
|
|
Return 15
|
|
End Select
|
|
Return 1
|
|
End Function
|
|
|
|
Private Sub ObjTree_AfterCheck(ByVal sender As Object, ByVal e As TreeViewEventArgs) Handles TreeView1.AfterCheck
|
|
' verifico che il check derivi da azione utente
|
|
If e.Action = TreeViewAction.Unknown Then
|
|
Return
|
|
End If
|
|
' recupero l'Id del nuovo oggetto
|
|
Dim nId As Integer
|
|
If Not Int32.TryParse(e.Node.Name, nId) Then
|
|
Return
|
|
End If
|
|
' eseguo operazione
|
|
m_Controller.SetLastInteger(nId)
|
|
If e.Node.Checked Then
|
|
m_Controller.ExecuteCommand(CMD.SHOW)
|
|
Else
|
|
m_Controller.ExecuteCommand(CMD.HIDE)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ObjTree_AfterSelect(ByVal sender As Object, ByVal e As TreeViewEventArgs) Handles TreeView1.AfterSelect
|
|
' verifico che il select derivi da azione utente
|
|
If e.Action = TreeViewAction.Unknown Then
|
|
Return
|
|
End If
|
|
' recupero l'Id del nuovo oggetto selezionato
|
|
Dim nId As Integer
|
|
If Not Int32.TryParse(e.Node.Name, nId) Then
|
|
Return
|
|
End If
|
|
UpdateObjInObjTree(nId)
|
|
End Sub
|
|
|
|
Private Sub ObjTree_MouseUp(ByVal sender As Object, e As MouseEventArgs) Handles TreeView1.MouseUp
|
|
' determino Id di eventuale item sotto il mouse
|
|
Dim nId As Integer = GDB_ID.NULL
|
|
Dim TNode As TreeNode = TreeView1.GetNodeAt(e.Location)
|
|
If TNode IsNot Nothing Then
|
|
Int32.TryParse(TNode.Name, nId)
|
|
End If
|
|
' se Id coincide con il corrente
|
|
If nId <> GDB_ID.NULL And nId = m_nObjTreeOldId Then
|
|
' evidenzio
|
|
EgtSetMark(m_nObjTreeOldId)
|
|
EgtDraw()
|
|
' lancio timer per successiva de-evidenziazione
|
|
ObjTreeTimer.Stop()
|
|
ObjTreeTimer.Start()
|
|
End If
|
|
' se rilascio tasto destro
|
|
If e.Button = Windows.Forms.MouseButtons.Right Then
|
|
' Id pezzo sotto il mouse
|
|
m_nObjTreeMenuId = nId
|
|
' verifico stato visualizzazione per abilitare voci menù
|
|
Dim nStat As GDB_ST = GDB_ST.ON_
|
|
Dim bOn As Boolean = EgtGetCalcStatus(m_nObjTreeMenuId, nStat) And nStat <> GDB_ST.OFF
|
|
For Each Item As ToolStripItem In ContextMenuTreeView1.Items
|
|
If Item.Name = "cmdSetName" Or Item.Name = "cmdSetInfo" Then
|
|
Item.Enabled = True
|
|
Else
|
|
Item.Enabled = bOn
|
|
End If
|
|
Next
|
|
ContextMenuTreeView1.Show(TreeView1, e.Location)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ObjTree_MouseDoubleClick(ByVal sender As Object, e As MouseEventArgs) Handles TreeView1.MouseDoubleClick
|
|
If m_nObjTreeOldId <> GDB_ID.NULL Then
|
|
m_Controller.SetLastInteger(m_nObjTreeOldId)
|
|
m_Controller.ExecuteCommand(CMD.SETCURRPARTLAYER)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub UpdateObjInObjTree(ByVal nId As Integer)
|
|
' ripristino eventuale vecchio oggetto selezionato
|
|
RevertOldIdInObjTree()
|
|
' stampa dei dati del nuovo oggetto
|
|
UpdateObjDataInObjTree(nId)
|
|
' evidenzio l'oggetto
|
|
EgtSetMark(nId)
|
|
m_nObjTreeOldId = nId
|
|
' imposto il ridisegno della scena
|
|
EgtDraw()
|
|
' lancio timer per successiva de-evidenziazione
|
|
ObjTreeTimer.Stop()
|
|
ObjTreeTimer.Start()
|
|
End Sub
|
|
|
|
Private Sub UpdateObjDataInObjTree(ByVal nId As Integer)
|
|
' recupero il tipo del nuovo oggetto
|
|
Dim nType As Integer = EgtGetType(nId)
|
|
' stampa dei dati dell'oggetto
|
|
Dim sDump As String = String.Empty
|
|
If nType = GDB_TY.NONE Then
|
|
tBoxInfo.Text = String.Empty
|
|
ElseIf nType = GDB_TY.GROUP Then
|
|
If EgtGroupDump(nId, sDump) Then
|
|
tBoxInfo.Text = sDump
|
|
Else
|
|
tBoxInfo.Text = String.Empty
|
|
End If
|
|
Else
|
|
If EgtGeoObjDump(nId, sDump) Then
|
|
tBoxInfo.Text = sDump
|
|
Else
|
|
tBoxInfo.Text = String.Empty
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Function RevertOldIdInObjTree() As Integer
|
|
' salvo il vecchio Id
|
|
Dim nOldId As Integer = m_nObjTreeOldId
|
|
' se non nullo...
|
|
If EgtExistsObj(m_nObjTreeOldId) Then
|
|
' smarco l'oggetto
|
|
EgtResetMark(m_nObjTreeOldId)
|
|
' annullo oggetto da ripristinare
|
|
m_nObjTreeOldId = GDB_ID.NULL
|
|
End If
|
|
Return nOldId
|
|
End Function
|
|
|
|
Private Function SelectIdInObjTree(ByVal nId As Integer) As Boolean
|
|
Dim tNode() As TreeNode = TreeView1.Nodes.Find(nId.ToString, True)
|
|
If tNode.Length > 0 Then
|
|
TreeView1.SelectedNode = tNode(0)
|
|
TreeView1.SelectedNode.Expand()
|
|
m_nObjTreeOldId = nId
|
|
Return True
|
|
Else
|
|
m_nObjTreeOldId = GDB_ID.NULL
|
|
Return False
|
|
End If
|
|
End Function
|
|
|
|
Private Sub MenuObjTree_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ContextMenuTreeView1.ItemClicked
|
|
If e.ClickedItem.Name = "cmdSelectPartLayObj" Then
|
|
m_Controller.SetLastInteger(m_nObjTreeMenuId)
|
|
If ((ModifierKeys And Keys.Shift) <> Keys.Shift) Then
|
|
m_Controller.ExecuteCommand(CMD.SELECTPARTLAYEROBJ)
|
|
Else
|
|
m_Controller.ExecuteCommand(CMD.SELECTGROUP)
|
|
End If
|
|
ElseIf e.ClickedItem.Name = "cmdDeselectPartLayObj" Then
|
|
m_Controller.SetLastInteger(m_nObjTreeMenuId)
|
|
m_Controller.ExecuteCommand(CMD.DESELECTPARTLAYEROBJ)
|
|
ElseIf e.ClickedItem.Name = "cmdSetName" Then
|
|
m_Controller.SetLastInteger(m_nObjTreeMenuId)
|
|
m_Controller.ExecuteCommand(CMD.SETNAME)
|
|
ElseIf e.ClickedItem.Name = "cmdSetInfo" Then
|
|
m_Controller.SetLastInteger(m_nObjTreeMenuId)
|
|
m_Controller.ExecuteCommand(CMD.SETINFO)
|
|
ElseIf e.ClickedItem.Name = "cmdRelocatePartLayObj" Then
|
|
m_Controller.SetLastInteger(m_nObjTreeMenuId)
|
|
m_Controller.ExecuteCommand(CMD.RELOCATEPARTLAYEROBJ)
|
|
ElseIf e.ClickedItem.Name = "cmdCopyPartLayObj" Then
|
|
m_Controller.SetLastInteger(m_nObjTreeMenuId)
|
|
m_Controller.ExecuteCommand(CMD.COPYPARTLAYEROBJ)
|
|
ElseIf e.ClickedItem.Name = "cmdDeletePartLayObj" Then
|
|
m_Controller.SetLastInteger(m_nObjTreeMenuId)
|
|
m_Controller.ExecuteCommand(CMD.DELETE)
|
|
ElseIf e.ClickedItem.Name = "cmdSavePartLay" Then
|
|
ContextMenuTreeView1.Close()
|
|
Dim sDir As String = String.Empty
|
|
GetPrivateProfileString(S_GENERAL, K_LASTNGEOBJDIR, "", sDir, m_sIniFile)
|
|
Dim nType As NGE = GetPrivateProfileInt(S_GEOMDB, K_SAVETYPE, NGE.CMPTEXT, m_sIniFile)
|
|
m_Controller.SaveObject(m_nObjTreeMenuId, sDir, nType)
|
|
End If
|
|
End Sub
|
|
|
|
|
|
'-------------------------------- Program Title --------------------------------------------------
|
|
Private Sub EmitTitle()
|
|
' nome file
|
|
Dim sTitle As String = m_Controller.GetCurrFile()
|
|
If String.IsNullOrEmpty(sTitle) Then
|
|
sTitle = "New" & m_nInstance.ToString()
|
|
End If
|
|
' indicazione di modificato
|
|
If m_Controller.GetModified() Then
|
|
sTitle += "*"
|
|
End If
|
|
' dati del prodotto
|
|
sTitle += " - EgalTech TestEIn"
|
|
' emissione del titolo
|
|
Me.Text = sTitle
|
|
End Sub
|
|
|
|
|
|
'-------------------------------- Status Bar -----------------------------------------------------
|
|
Private Sub EmitStripStatusOutput(ByVal sText As String)
|
|
tsStatusOutput.Text = sText
|
|
End Sub
|
|
|
|
Private Sub ToolStripStatusSnapPointType_Changed(ByVal sender As Object, ByVal nSpType As SP, ByVal bUser As Boolean) Handles Scene1.OnChangedSnapPointType
|
|
If bUser Then
|
|
tsStatusSnapPointType.BackColor = SystemColors.Control
|
|
Else
|
|
tsStatusSnapPointType.BackColor = Color.Bisque
|
|
End If
|
|
Select Case nSpType
|
|
Case SP.PT_SKETCH
|
|
tsStatusSnapPointType.Text = EgtMsg(1102) 'Sketch Point
|
|
Case SP.PT_GRID
|
|
tsStatusSnapPointType.Text = EgtMsg(1104) 'Grid Point
|
|
Case SP.PT_END
|
|
tsStatusSnapPointType.Text = EgtMsg(1106) 'End Point
|
|
Case SP.PT_MID
|
|
tsStatusSnapPointType.Text = EgtMsg(1108) 'Mid Point
|
|
Case SP.CENTER
|
|
tsStatusSnapPointType.Text = EgtMsg(1110) 'Center
|
|
Case SP.CENTROID
|
|
tsStatusSnapPointType.Text = EgtMsg(1112) 'Centroid
|
|
Case SP.PT_NEAR
|
|
tsStatusSnapPointType.Text = EgtMsg(1114) 'Near Point"
|
|
Case SP.PT_INTERS
|
|
tsStatusSnapPointType.Text = EgtMsg(1116) 'Inters Point
|
|
Case SP.PT_TANGENT
|
|
tsStatusSnapPointType.Text = EgtMsg(1118) 'Tang Point
|
|
Case SP.PT_PERPENDICULAR
|
|
tsStatusSnapPointType.Text = EgtMsg(1120) 'Perp Point
|
|
Case SP.PT_MINDIST
|
|
tsStatusSnapPointType.Text = EgtMsg(1122) 'MinDist Point"
|
|
Case Else
|
|
tsStatusSnapPointType.Text = "---"
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub ToolStripStatusGrid_Click() Handles tsStatusGrid.Click
|
|
m_bShowGrid = Not m_bShowGrid
|
|
UpdateStatusGrid()
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
Private Sub UpdateStatusGrid()
|
|
tsStatusGrid.ForeColor = If(m_bShowGrid, Color.Black, Color.Gray)
|
|
tsStatusGrid.Text = If(m_bShowGrid, "GRID ON ", "GRID OFF")
|
|
EgtSetGridShow(m_bShowGrid, m_bShowGrid And m_bShowGridFrame)
|
|
End Sub
|
|
|
|
Private Sub ToolStripStatusTypePos_Click() Handles tsStatusCurPosType.Click
|
|
m_bCPlaneTypePos = Not m_bCPlaneTypePos
|
|
If m_bCPlaneTypePos Then
|
|
tsStatusCurPosType.Text = "CPLANE"
|
|
Else
|
|
tsStatusCurPosType.Text = "WORLD "
|
|
End If
|
|
Scene1.SetGridCursorPos(m_bCPlaneTypePos)
|
|
End Sub
|
|
|
|
Private Sub ToolStripStatusUnits_Click() Handles tsStatusUnits.Click
|
|
m_bMmUnits = Not m_bMmUnits
|
|
UpdateStatusUnits()
|
|
LoadGridData()
|
|
EgtDraw()
|
|
End Sub
|
|
|
|
Private Sub UpdateStatusUnits()
|
|
tsStatusUnits.Text = If(m_bMmUnits, "mm", "in")
|
|
EgtSetUiUnits(m_bMmUnits)
|
|
End Sub
|
|
|
|
Private Sub ToolStripStatusStop_Click() Handles tsStatusStop.Click
|
|
m_bStopScript = True
|
|
End Sub
|
|
|
|
|
|
'-------------------------------- MRU Files Menu -------------------------------------------------
|
|
Private Sub ShowMenuMruFiles(ByVal control As Control, ByVal Pos As Point)
|
|
Dim sFileName As String = String.Empty
|
|
For Each Item As ToolStripItem In ContextMenuMruFiles.Items
|
|
Dim nInd As Integer
|
|
If Item.Name = "MruTitle" Then
|
|
Item.Text = EgtMsg(19) ' Recent files
|
|
Item.Visible = True
|
|
ElseIf Item.Name = "MruSep" Then
|
|
Item.Visible = True
|
|
ElseIf Int32.TryParse(Item.Name.Replace("MruFile", ""), nInd) AndAlso
|
|
m_MruFiles.GetFileName(nInd, sFileName) Then
|
|
Item.Text = sFileName
|
|
Item.Visible = True
|
|
Else
|
|
Item.Visible = False
|
|
End If
|
|
Next
|
|
ContextMenuMruFiles.Show(control, Pos)
|
|
End Sub
|
|
|
|
Private Sub OnMenuMruFiles_ItemClick(sender As Object, e As ToolStripItemClickedEventArgs) Handles ContextMenuMruFiles.ItemClicked
|
|
If e.ClickedItem.Text <> "" Then
|
|
ContextMenuMruFiles.Close()
|
|
m_Controller.OpenProject(e.ClickedItem.Text, False)
|
|
End If
|
|
End Sub
|
|
|
|
'-------------------------------- MRU Scripts Menu -----------------------------------------------
|
|
Private Sub ShowMenuMruScripts(ByVal control As Control, ByVal Pos As Point)
|
|
Dim sFileName As String = String.Empty
|
|
For Each Item As ToolStripItem In ContextMenuMruScripts.Items
|
|
Dim nInd As Integer
|
|
If Item.Name = "MruSTitle" Then
|
|
Item.Text = EgtMsg(20) ' Recent scripts
|
|
Item.Visible = True
|
|
ElseIf Item.Name = "MruSSep" Then
|
|
Item.Visible = True
|
|
ElseIf Int32.TryParse(Item.Name.Replace("MruSFile", ""), nInd) AndAlso
|
|
m_MruScripts.GetFileName(nInd, sFileName) Then
|
|
Item.Text = sFileName
|
|
Item.Visible = True
|
|
Else
|
|
Item.Visible = False
|
|
End If
|
|
Next
|
|
ContextMenuMruScripts.Show(control, Pos)
|
|
End Sub
|
|
|
|
Private Sub OnMenuMruScripts_ItemClick(sender As Object, e As ToolStripItemClickedEventArgs) Handles ContextMenuMruScripts.ItemClicked
|
|
If e.ClickedItem.Text <> "" Then
|
|
ContextMenuMruScripts.Close()
|
|
m_Controller.Exec(e.ClickedItem.Text, False)
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|