TestEIn/Form1.vb

Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Math
Imports TestEIn.EgtInterface


Public Class Form1

'-------------------------------- Form ------------------------------------------------------------
   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
      Text = "EgalTech TestEIn"
      rbtShading.Checked = True
      Scene1.Init()
   End Sub

   Private Sub CursorPos(ByVal sender As Object, ByVal sCursorPos As String) Handles Scene1.CursorPos
      ToolStripStatusLabel1.Text = sCursorPos
   End Sub

 '-------------------------------- Buttons --------------------------------------------------------
  Private Sub btnNew_Click(sender As System.Object, e As System.EventArgs) Handles btnNew.Click
      If EgtNewFile(Scene1.GetCtx) Then
         EgtZoom(Scene1.GetCtx, ZM_ALL, True)
      End If
   End Sub

   Private Sub btnOpen_Click(sender As System.Object, e As System.EventArgs) Handles btnOpen.Click
      OpenFileDialog.Title = "Open"
      OpenFileDialog.Filter = "New geometry EgalTech(*.nge)|*.nge|New font EgalTech(*.nfe)|*.nfe|All Files (*.*)|*.*"
      OpenFileDialog.FilterIndex = 1
      If OpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
         Cursor = Cursors.WaitCursor
         If EgtOpenFile(Scene1.GetCtx, OpenFileDialog.FileName) Then
            EgtZoom(Scene1.GetCtx, ZM_ALL, True)
         End If
         Cursor = Cursors.Default
      End If
   End Sub

   Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
      SaveFileDialog.Title = "Save"
      SaveFileDialog.Filter = "New geometry EgalTech(*.nge)|*.nge"
      SaveFileDialog.FilterIndex = 1
      If SaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
         Cursor = Cursors.WaitCursor
         EgtSaveFile(Scene1.GetCtx, SaveFileDialog.FileName, NGE_CMPTEXT)
         Cursor = Cursors.Default
      End If
   End Sub

   Private Sub btnImport_Click(sender As System.Object, e As System.EventArgs) Handles btnImport.Click
      OpenFileDialog.Title = "Import"
      OpenFileDialog.Filter = "Drawing Exchange Fmt(*.dxf)|*.dxf|Stereolithography (*.stl)|*.stl|All Files (*.*)|*.*"
      OpenFileDialog.FilterIndex = 1
      If OpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
         Dim nFileType As Integer = EgtGetFileType(OpenFileDialog.FileName)
         If nFileType = FT_DXF Then
            Cursor = Cursors.WaitCursor
            EgtNewFile(Scene1.GetCtx)
            If EgtImportDxf(Scene1.GetCtx, OpenFileDialog.FileName) Then
               EgtZoom(Scene1.GetCtx, ZM_ALL, True)
            End If
            Cursor = Cursors.Default
         ElseIf nFileType = FT_STL Then
            Cursor = Cursors.WaitCursor
            EgtNewFile(Scene1.GetCtx)
            If EgtImportStl(Scene1.GetCtx, OpenFileDialog.FileName) Then
               EgtZoom(Scene1.GetCtx, ZM_ALL, True)
            End If
            Cursor = Cursors.Default
         Else
            MessageBox.Show("File type unknown", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
         End If
      End If
   End Sub

   Private Sub btnExport_Click(sender As System.Object, e As System.EventArgs) Handles btnExport.Click
      SaveFileDialog.Title = "Export"
      SaveFileDialog.Filter = "Drawing Exchange Fmt(*.dxf)|*.dxf|Stereolithography (*.stl)|*.stl|All Files (*.*)|*.*"
      SaveFileDialog.FilterIndex = 1
      If SaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
         Dim nFileType As Integer = EgtGetFileType(SaveFileDialog.FileName)
         If nFileType = FT_DXF Then
            Cursor = Cursors.WaitCursor
            EgtExportDxf(Scene1.GetCtx, GDB_ID_ROOT, SaveFileDialog.FileName)
            Cursor = Cursors.Default
         ElseIf nFileType = FT_STL Then
            Cursor = Cursors.WaitCursor
            EgtExportStl(Scene1.GetCtx, GDB_ID_ROOT, SaveFileDialog.FileName)
            Cursor = Cursors.Default
         Else
            MessageBox.Show("File type unknown", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
         End If
      End If
   End Sub

   Private Sub btnExec_Click(sender As System.Object, e As System.EventArgs) Handles btnExec.Click
      OpenFileDialog.Title = "Exec TSC"
      OpenFileDialog.Filter = "Test commands(*.tsc)|*.tsc"
      OpenFileDialog.FilterIndex = 1
      If OpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
         Cursor = Cursors.WaitCursor
         If EgtTscFileExec(Scene1.GetCtx, OpenFileDialog.FileName) Then
            EgtZoom(Scene1.GetCtx, ZM_ALL, True)
         End If
         Cursor = Cursors.Default
      End If
   End Sub

   Private Sub rbtWireFrame_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbtWireFrame.CheckedChanged
      EgtSetShowMode(Scene1.GetCtx, SM_WIREFRAME, True)
   End Sub

   Private Sub rbtHiddenLine_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbtHiddenLine.CheckedChanged
      EgtSetShowMode(Scene1.GetCtx, SM_HIDDENLINE, True)
   End Sub

   Private Sub rbtShading_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbtShading.CheckedChanged
      EgtSetShowMode(Scene1.GetCtx, SM_SHADING, True)
   End Sub

   Private Sub chkCurveDir_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkCurveDir.CheckedChanged
      EgtSetShowCurveDirection(Scene1.GetCtx, chkCurveDir.Checked, True)
   End Sub

   Private Sub btnZoomAll_Click(sender As System.Object, e As System.EventArgs) Handles btnZoomAll.Click
      EgtZoom(Scene1.GetCtx, ZM_ALL, True)
   End Sub

   Private Sub btnZoomIn_Click(sender As System.Object, e As System.EventArgs) Handles btnZoomIn.Click
      EgtZoom(Scene1.GetCtx, ZM_IN, True)
   End Sub

   Private Sub btnZoomOut_Click(sender As System.Object, e As System.EventArgs) Handles btnZoomOut.Click
      EgtZoom(Scene1.GetCtx, ZM_OUT, True)
   End Sub

   Private Sub btnTop_Click(sender As System.Object, e As System.EventArgs) Handles btnTop.Click
      EgtSetView(Scene1.GetCtx, CT_TOP, True)
   End Sub

   Private Sub btnFront_Click(sender As System.Object, e As System.EventArgs) Handles btnFront.Click
      EgtSetView(Scene1.GetCtx, CT_FRONT, True)
   End Sub

   Private Sub btnLeft_Click(sender As System.Object, e As System.EventArgs) Handles btnLeft.Click
      EgtSetView(Scene1.GetCtx, CT_LEFT, True)
   End Sub

   Private Sub btnBack_Click(sender As System.Object, e As System.EventArgs) Handles btnBack.Click
      EgtSetView(Scene1.GetCtx, CT_BACK, True)
   End Sub

   Private Sub btnRight_Click(sender As System.Object, e As System.EventArgs) Handles btnRight.Click
      EgtSetView(Scene1.GetCtx, CT_RIGHT, True)
   End Sub
   Private Sub btnIso_Click(sender As System.Object, e As System.EventArgs) Handles btnIso.Click
      EgtSetView(Scene1.GetCtx, CT_ISO_SW, True)
   End Sub

   'Private Sub btnExport_Click(sender As System.Object, e As System.EventArgs) Handles btnExport.Click
   '   Dim dA As Double
   '   dA = Summ(12.5, 0.5)
   '   MessageBox.Show(dA.ToString, "Summ", MessageBoxButtons.OK, MessageBoxIcon.Information)

   '   Dim bOk As Boolean
   '   Dim sA As String
   '   sA = "PiΣpΣpo"
   '   Dim sB As String = ""
   '   bOk = Append(sA, sB)
   '   If bOk Then
   '    MessageBox.Show(sB, "Append", MessageBoxButtons.OK, MessageBoxIcon.Information)
   '   Else
   '    MessageBox.Show("Error", "Append", MessageBoxButtons.OK, MessageBoxIcon.Error)
   '   End If

   '   Dim dC As Double
   '   dC = 22.5
   '   bOk = Summ2(dC, 0.5)
   '   If bOk Then
   '    MessageBox.Show(dC.ToString, "Summ2", MessageBoxButtons.OK, MessageBoxIcon.Information)
   '   Else
   '    MessageBox.Show("Error", "Summ2", MessageBoxButtons.OK, MessageBoxIcon.Error)
   '   End If

   '   Dim ptP As Point3d
   '   ptP.x = 1
   '   ptP.y = 2
   '   ptP.z = 3
   '   bOk = SetPoint(ptP)
   '   MessageBox.Show(ptP.x.ToString, "Summ2", MessageBoxButtons.OK, MessageBoxIcon.Information)
   'End Sub

End Class