TestEIn :

- gestione selezione punto e drag.

EgtInterface.vb

@@ -573,6 +573,16 @@ End Function
 
 
 '---------- GeomDb Objects Create ----------------------------------------------
+<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
+Private Shared Function EgtCreateGroup(ByVal nParentId As Integer,
+                                       ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Integer
+End Function
+Public Shared Function EgtCreateGroup(ByVal nParentId As Integer, ByRef frRef As Frame3d) As Integer
+   Return EgtCreateGroup(nParentId, frRef.Orig(), frRef.VersX(), frRef.VersY(), frRef.VersZ())
+End Function
+Public Shared Function EgtCreateGroup(ByVal nParentId As Integer) As Integer
+   Return EgtCreateGroup(nParentId, Point3d.ORIG(), Vector3d.X_AX(), Vector3d.Y_AX(), Vector3d.Z_AX())
+End Function
 
 
 '---------- GeomDb Objects Modify ----------------------------------------------
@@ -620,6 +630,26 @@ Public Shared Function EgtGetBBoxGlob(ByVal nId As Integer, ByVal nFlag As Integ
                                       ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean
 End Function
 
+<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
+Public Shared Function EgtCopy(ByVal nId As Integer, ByVal nRefId As Integer, ByVal nSonBeforeAfter As Integer) As Integer
+End Function
+
+<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
+Public Shared Function EgtCopyGlob(ByVal nId As Integer, ByVal nRefId As Integer, ByVal nSonBeforeAfter As Integer) As Integer
+End Function
+
+<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
+Public Shared Function EgtRelocate(ByVal nId As Integer, ByVal nRefId As Integer, ByVal nSonBeforeAfter As Integer) As Integer
+End Function
+
+<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
+Public Shared Function EgtRelocateGlob(ByVal nId As Integer, ByVal nRefId As Integer, ByVal nSonBeforeAfter As Integer) As Integer
+End Function
+
+<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
+Public Shared Function EgtErase(ByVal nId As Integer) As Integer
+End Function
+
 <DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
 Public Shared Function EgtGetType(ByVal nId As Integer) As Integer
 End Function
@@ -771,10 +801,6 @@ End Function
 
 
 '---------- GeomDb Obj Selection -----------------------------------------------
-<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
-Public Shared Function EgtIsSelectedObj(ByVal nId As Integer) As Boolean
-End Function
-
 <DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
 Public Shared Function EgtSelectObj(ByVal nId As Integer) As Boolean
 End Function
@@ -787,6 +813,18 @@ End Function
 Public Shared Function EgtDeselectAll() As Boolean
 End Function
 
+<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
+Public Shared Function EgtIsSelectedObj(ByVal nId As Integer) As Boolean
+End Function
+
+<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
+Public Shared Function EgtGetFirstSelectedObj() As Integer
+End Function
+
+<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
+Public Shared Function EgtGetNextSelectedObj() As Integer
+End Function
+
 
 '---------- GeomDb Obj Transform -----------------------------------------------
 <DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
@@ -834,7 +872,7 @@ Public Shared Function EgtScaleGlob(ByVal nId As Integer, ByRef Frame As Frame3d
 End Function
 
 <DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
-Public Shared Function EgtScaleGroup(ByVal nId As Integer, ByRef PtOrig As Point3d,
+Private Shared Function EgtScaleGroup(ByVal nId As Integer, ByRef PtOrig As Point3d,
                                      ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d,
                                      ByVal dCoeffX As Double, ByVal dCoeffY As Double, ByVal dCoeffZ As Double) As Boolean
 End Function
@@ -913,11 +951,23 @@ Public Shared Function EgtSelect(ByVal Curr As Point, ByVal nSelW As Integer, By
 End Function
 
 <DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
-Public Shared Function EgtGetFirstSelectedObj() As Integer
+Public Shared Function EgtGetFirstObjInSelWin() As Integer
 End Function
 
 <DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
-Public Shared Function EgtGetNextSelectedObj() As Integer
+Public Shared Function EgtGetNextObjInSelWin() As Integer
+End Function
+
+<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
+Public Shared Function EgtUnselectableAdd(ByVal nId As Integer) As Boolean
+End Function
+
+<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
+Public Shared Function EgtUnselectableRemove(ByVal nId As Integer) As Boolean
+End Function
+
+<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
+Public Shared Function EgtUnselectableClearAll() As Boolean
 End Function
 
 <DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
@@ -1049,7 +1099,7 @@ End Function
 
 'Costanti : GEOMETRIA
 Public Const EPS_SMALL As Double = 0.001
-Public Const EPS_ZERO As Double = 0.000000099999999999999995
+Public Const EPS_ZERO As Double = 0.0000001
 'Costanti : TIPO DI FILE
 Public Const FT_NULL As Integer = 0
 Public Const FT_NGE As Integer = 1
@@ -1066,6 +1116,7 @@ Public Const NGE_CMPTEXT As Integer = 2
 'Costanti : ID GEOMDB
 Public Const GDB_ID_ROOT As Integer = 0
 Public Const GDB_ID_NULL As Integer = -1
+Public Const GDB_ID_SEL As Integer = -2
 'Costanti : TIPO OGGETTI
 Public Const TY_NONE As Integer = 0
 Public Const TY_GROUP As Integer = 2
@@ -1078,6 +1129,10 @@ Public Const TY_CRV_BEZ As Integer = 258
 Public Const TY_CRV_COMPO As Integer = 259
 Public Const TY_SRF_MESH As Integer = 512
 Public Const TY_EXT_TEXT As Integer = 1024
+'Costanti : POSIZIONE DI COPIA DI UN OGGETTO
+Public Const GDB_BEFORE As Integer = -1
+Public Const GDB_SON As Integer = 0
+Public Const GDB_AFTER As Integer = 1
 'Costanti : LIVELLO DI UN OGGETTO
 Public Const GDB_LV_USER As Integer = 1
 Public Const GDB_LV_SYSTEM As Integer = 2

Form1.Designer.vb

@@ -25,18 +25,12 @@ Partial Class Form1
       Me.components = New System.ComponentModel.Container()
       Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
       Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
-      Me.Panel1 = New System.Windows.Forms.Panel()
-      Me.tboxCmd = New System.Windows.Forms.TextBox()
+      Me.Scene1 = New TestEIn.Scene()
       Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
       Me.ToolStripStatusOnL = New System.Windows.Forms.ToolStripStatusLabel()
       Me.ToolStripStatusOutput = New System.Windows.Forms.ToolStripStatusLabel()
       Me.ToolStripStatusCursorPos = New System.Windows.Forms.ToolStripStatusLabel()
       Me.ToolStripStatusOnR = New System.Windows.Forms.ToolStripStatusLabel()
-      Me.Panel2 = New System.Windows.Forms.Panel()
-      Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
-      Me.tBoxInfo = New System.Windows.Forms.TextBox()
-      Me.TreeView1 = New System.Windows.Forms.TreeView()
-      Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
       Me.TabControl1 = New System.Windows.Forms.TabControl()
       Me.TabHome = New System.Windows.Forms.TabPage()
       Me.btnSaveAs = New System.Windows.Forms.Button()
@@ -69,23 +63,23 @@ Partial Class Form1
       Me.btnFront = New System.Windows.Forms.Button()
       Me.btnZoomIn = New System.Windows.Forms.Button()
       Me.btnTop = New System.Windows.Forms.Button()
+      Me.TableLayoutPanel3 = New System.Windows.Forms.TableLayoutPanel()
+      Me.tBoxInfo = New System.Windows.Forms.TextBox()
+      Me.tboxCmd = New System.Windows.Forms.TextBox()
+      Me.TreeView1 = New System.Windows.Forms.TreeView()
+      Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
+      Me.TabControl2 = New System.Windows.Forms.TabControl()
       Me.TabDraw = New System.Windows.Forms.TabPage()
       Me.TabTest = New System.Windows.Forms.TabPage()
+      Me.btnMove = New System.Windows.Forms.Button()
       Me.btnRotM90 = New System.Windows.Forms.Button()
-      Me.btnMirror = New System.Windows.Forms.Button()
       Me.btnRotP90 = New System.Windows.Forms.Button()
+      Me.btnMirror = New System.Windows.Forms.Button()
       Me.OpenFileDialog = New System.Windows.Forms.OpenFileDialog()
       Me.SaveFileDialog = New System.Windows.Forms.SaveFileDialog()
       Me.btnGetDist = New System.Windows.Forms.CheckBox()
-      Me.Scene1 = New TestEIn.Scene()
-      Me.TabControl2 = New System.Windows.Forms.TabControl()
-      Me.TabPage1 = New System.Windows.Forms.TabPage()
-      Me.TabPage2 = New System.Windows.Forms.TabPage()
       Me.TableLayoutPanel1.SuspendLayout()
-      Me.Panel1.SuspendLayout()
       Me.StatusStrip1.SuspendLayout()
-      Me.Panel2.SuspendLayout()
-      Me.TableLayoutPanel2.SuspendLayout()
       Me.TabControl1.SuspendLayout()
       Me.TabHome.SuspendLayout()
       CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -93,21 +87,22 @@ Partial Class Form1
       CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
       CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
       CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
-      Me.TabTest.SuspendLayout()
+      Me.TableLayoutPanel3.SuspendLayout()
       Me.TabControl2.SuspendLayout()
+      Me.TabTest.SuspendLayout()
       Me.SuspendLayout()
       '
       'TableLayoutPanel1
       '
       Me.TableLayoutPanel1.ColumnCount = 3
-      Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle())
+      Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 89.0!))
       Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
       Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle())
       Me.TableLayoutPanel1.Controls.Add(Me.Scene1, 1, 1)
-      Me.TableLayoutPanel1.Controls.Add(Me.Panel1, 2, 1)
       Me.TableLayoutPanel1.Controls.Add(Me.StatusStrip1, 0, 2)
-      Me.TableLayoutPanel1.Controls.Add(Me.Panel2, 0, 1)
       Me.TableLayoutPanel1.Controls.Add(Me.TabControl1, 0, 0)
+      Me.TableLayoutPanel1.Controls.Add(Me.TableLayoutPanel3, 2, 1)
+      Me.TableLayoutPanel1.Controls.Add(Me.TabControl2, 0, 1)
       Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
       Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0)
       Me.TableLayoutPanel1.Margin = New System.Windows.Forms.Padding(2)
@@ -119,26 +114,15 @@ Partial Class Form1
       Me.TableLayoutPanel1.Size = New System.Drawing.Size(1056, 473)
       Me.TableLayoutPanel1.TabIndex = 0
       '
-      'Panel1
+      'Scene1
       '
-      Me.Panel1.Controls.Add(Me.TabControl2)
-      Me.Panel1.Controls.Add(Me.tboxCmd)
-      Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
-      Me.Panel1.Location = New System.Drawing.Point(858, 83)
-      Me.Panel1.Name = "Panel1"
-      Me.Panel1.Size = New System.Drawing.Size(195, 365)
-      Me.Panel1.TabIndex = 5
-      '
-      'tboxCmd
-      '
-      Me.tboxCmd.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-      Me.tboxCmd.Location = New System.Drawing.Point(0, 309)
-      Me.tboxCmd.Multiline = True
-      Me.tboxCmd.Name = "tboxCmd"
-      Me.tboxCmd.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
-      Me.tboxCmd.Size = New System.Drawing.Size(194, 55)
-      Me.tboxCmd.TabIndex = 23
+      Me.Scene1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+      Me.Scene1.Cursor = System.Windows.Forms.Cursors.Default
+      Me.Scene1.Dock = System.Windows.Forms.DockStyle.Fill
+      Me.Scene1.Location = New System.Drawing.Point(92, 83)
+      Me.Scene1.Name = "Scene1"
+      Me.Scene1.Size = New System.Drawing.Size(755, 365)
+      Me.Scene1.TabIndex = 1
       '
       'StatusStrip1
       '
@@ -192,77 +176,11 @@ Partial Class Form1
       Me.ToolStripStatusOnR.Size = New System.Drawing.Size(190, 17)
       Me.ToolStripStatusOnR.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
       '
-      'Panel2
-      '
-      Me.Panel2.Controls.Add(Me.TableLayoutPanel2)
-      Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
-      Me.Panel2.Location = New System.Drawing.Point(3, 83)
-      Me.Panel2.Name = "Panel2"
-      Me.Panel2.Size = New System.Drawing.Size(200, 365)
-      Me.Panel2.TabIndex = 7
-      '
-      'TableLayoutPanel2
-      '
-      Me.TableLayoutPanel2.ColumnCount = 1
-      Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
-      Me.TableLayoutPanel2.Controls.Add(Me.tBoxInfo, 0, 1)
-      Me.TableLayoutPanel2.Controls.Add(Me.TreeView1, 0, 0)
-      Me.TableLayoutPanel2.Dock = System.Windows.Forms.DockStyle.Fill
-      Me.TableLayoutPanel2.Location = New System.Drawing.Point(0, 0)
-      Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
-      Me.TableLayoutPanel2.RowCount = 2
-      Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 60.0!))
-      Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 40.0!))
-      Me.TableLayoutPanel2.Size = New System.Drawing.Size(200, 365)
-      Me.TableLayoutPanel2.TabIndex = 0
-      '
-      'tBoxInfo
-      '
-      Me.tBoxInfo.Dock = System.Windows.Forms.DockStyle.Fill
-      Me.tBoxInfo.Location = New System.Drawing.Point(3, 222)
-      Me.tBoxInfo.Multiline = True
-      Me.tBoxInfo.Name = "tBoxInfo"
-      Me.tBoxInfo.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
-      Me.tBoxInfo.Size = New System.Drawing.Size(194, 140)
-      Me.tBoxInfo.TabIndex = 24
-      '
-      'TreeView1
-      '
-      Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Fill
-      Me.TreeView1.FullRowSelect = True
-      Me.TreeView1.HideSelection = False
-      Me.TreeView1.ImageIndex = 0
-      Me.TreeView1.ImageList = Me.ImageList1
-      Me.TreeView1.Location = New System.Drawing.Point(3, 3)
-      Me.TreeView1.Name = "TreeView1"
-      Me.TreeView1.SelectedImageIndex = 0
-      Me.TreeView1.Size = New System.Drawing.Size(194, 213)
-      Me.TreeView1.TabIndex = 0
-      '
-      'ImageList1
-      '
-      Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
-      Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
-      Me.ImageList1.Images.SetKeyName(0, "Maters.ico")
-      Me.ImageList1.Images.SetKeyName(1, "NoGeo.ico")
-      Me.ImageList1.Images.SetKeyName(2, "Group.ico")
-      Me.ImageList1.Images.SetKeyName(3, "Vector.ico")
-      Me.ImageList1.Images.SetKeyName(4, "Point.ico")
-      Me.ImageList1.Images.SetKeyName(5, "Frame.ico")
-      Me.ImageList1.Images.SetKeyName(6, "Line.ico")
-      Me.ImageList1.Images.SetKeyName(7, "Arc.ico")
-      Me.ImageList1.Images.SetKeyName(8, "CBezier.ico")
-      Me.ImageList1.Images.SetKeyName(9, "CCompo.ico")
-      Me.ImageList1.Images.SetKeyName(10, "STriMesh.ico")
-      Me.ImageList1.Images.SetKeyName(11, "text.ico")
-      '
       'TabControl1
       '
       Me.TableLayoutPanel1.SetColumnSpan(Me.TabControl1, 3)
       Me.TabControl1.Controls.Add(Me.TabHome)
       Me.TabControl1.Controls.Add(Me.TabView)
-      Me.TabControl1.Controls.Add(Me.TabDraw)
-      Me.TabControl1.Controls.Add(Me.TabTest)
       Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
       Me.TabControl1.HotTrack = True
       Me.TabControl1.ItemSize = New System.Drawing.Size(60, 18)
@@ -802,56 +720,167 @@ Partial Class Form1
       Me.btnTop.TextAlign = System.Drawing.ContentAlignment.BottomCenter
       Me.btnTop.UseVisualStyleBackColor = False
       '
+      'TableLayoutPanel3
+      '
+      Me.TableLayoutPanel3.ColumnCount = 1
+      Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+      Me.TableLayoutPanel3.Controls.Add(Me.tBoxInfo, 0, 1)
+      Me.TableLayoutPanel3.Controls.Add(Me.tboxCmd, 0, 2)
+      Me.TableLayoutPanel3.Controls.Add(Me.TreeView1, 0, 0)
+      Me.TableLayoutPanel3.Dock = System.Windows.Forms.DockStyle.Fill
+      Me.TableLayoutPanel3.Location = New System.Drawing.Point(853, 83)
+      Me.TableLayoutPanel3.Name = "TableLayoutPanel3"
+      Me.TableLayoutPanel3.RowCount = 3
+      Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 60.0!))
+      Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 40.0!))
+      Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 80.0!))
+      Me.TableLayoutPanel3.Size = New System.Drawing.Size(200, 365)
+      Me.TableLayoutPanel3.TabIndex = 9
+      '
+      'tBoxInfo
+      '
+      Me.tBoxInfo.Dock = System.Windows.Forms.DockStyle.Fill
+      Me.tBoxInfo.Location = New System.Drawing.Point(3, 174)
+      Me.tBoxInfo.Multiline = True
+      Me.tBoxInfo.Name = "tBoxInfo"
+      Me.tBoxInfo.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+      Me.tBoxInfo.Size = New System.Drawing.Size(194, 108)
+      Me.tBoxInfo.TabIndex = 24
+      '
+      'tboxCmd
+      '
+      Me.tboxCmd.Dock = System.Windows.Forms.DockStyle.Fill
+      Me.tboxCmd.Location = New System.Drawing.Point(3, 288)
+      Me.tboxCmd.Multiline = True
+      Me.tboxCmd.Name = "tboxCmd"
+      Me.tboxCmd.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+      Me.tboxCmd.Size = New System.Drawing.Size(194, 74)
+      Me.tboxCmd.TabIndex = 23
+      '
+      'TreeView1
+      '
+      Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Fill
+      Me.TreeView1.FullRowSelect = True
+      Me.TreeView1.HideSelection = False
+      Me.TreeView1.ImageIndex = 0
+      Me.TreeView1.ImageList = Me.ImageList1
+      Me.TreeView1.Location = New System.Drawing.Point(3, 3)
+      Me.TreeView1.Name = "TreeView1"
+      Me.TreeView1.SelectedImageIndex = 0
+      Me.TreeView1.Size = New System.Drawing.Size(194, 165)
+      Me.TreeView1.TabIndex = 0
+      '
+      'ImageList1
+      '
+      Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
+      Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+      Me.ImageList1.Images.SetKeyName(0, "Maters.ico")
+      Me.ImageList1.Images.SetKeyName(1, "NoGeo.ico")
+      Me.ImageList1.Images.SetKeyName(2, "Group.ico")
+      Me.ImageList1.Images.SetKeyName(3, "Vector.ico")
+      Me.ImageList1.Images.SetKeyName(4, "Point.ico")
+      Me.ImageList1.Images.SetKeyName(5, "Frame.ico")
+      Me.ImageList1.Images.SetKeyName(6, "Line.ico")
+      Me.ImageList1.Images.SetKeyName(7, "Arc.ico")
+      Me.ImageList1.Images.SetKeyName(8, "CBezier.ico")
+      Me.ImageList1.Images.SetKeyName(9, "CCompo.ico")
+      Me.ImageList1.Images.SetKeyName(10, "STriMesh.ico")
+      Me.ImageList1.Images.SetKeyName(11, "text.ico")
+      '
+      'TabControl2
+      '
+      Me.TabControl2.Alignment = System.Windows.Forms.TabAlignment.Left
+      Me.TabControl2.Controls.Add(Me.TabDraw)
+      Me.TabControl2.Controls.Add(Me.TabTest)
+      Me.TabControl2.Dock = System.Windows.Forms.DockStyle.Fill
+      Me.TabControl2.HotTrack = True
+      Me.TabControl2.Location = New System.Drawing.Point(3, 83)
+      Me.TabControl2.Multiline = True
+      Me.TabControl2.Name = "TabControl2"
+      Me.TabControl2.SelectedIndex = 0
+      Me.TabControl2.Size = New System.Drawing.Size(83, 365)
+      Me.TabControl2.TabIndex = 10
+      '
       'TabDraw
       '
       Me.TabDraw.BackColor = System.Drawing.SystemColors.Control
-      Me.TabDraw.Location = New System.Drawing.Point(4, 22)
+      Me.TabDraw.Location = New System.Drawing.Point(23, 4)
       Me.TabDraw.Name = "TabDraw"
       Me.TabDraw.Padding = New System.Windows.Forms.Padding(3)
-      Me.TabDraw.Size = New System.Drawing.Size(1042, 48)
-      Me.TabDraw.TabIndex = 1
+      Me.TabDraw.Size = New System.Drawing.Size(56, 357)
+      Me.TabDraw.TabIndex = 0
       Me.TabDraw.Text = "Draw"
       '
       'TabTest
       '
       Me.TabTest.BackColor = System.Drawing.SystemColors.Control
+      Me.TabTest.Controls.Add(Me.btnMove)
       Me.TabTest.Controls.Add(Me.btnRotM90)
-      Me.TabTest.Controls.Add(Me.btnMirror)
       Me.TabTest.Controls.Add(Me.btnRotP90)
-      Me.TabTest.Location = New System.Drawing.Point(4, 22)
+      Me.TabTest.Controls.Add(Me.btnMirror)
+      Me.TabTest.Location = New System.Drawing.Point(23, 4)
       Me.TabTest.Name = "TabTest"
       Me.TabTest.Padding = New System.Windows.Forms.Padding(3)
-      Me.TabTest.Size = New System.Drawing.Size(1042, 48)
-      Me.TabTest.TabIndex = 2
+      Me.TabTest.Size = New System.Drawing.Size(56, 357)
+      Me.TabTest.TabIndex = 1
       Me.TabTest.Text = "Test"
       '
+      'btnMove
+      '
+      Me.btnMove.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
+      Me.btnMove.FlatAppearance.BorderSize = 0
+      Me.btnMove.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
+      Me.btnMove.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
+      Me.btnMove.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+      Me.btnMove.Location = New System.Drawing.Point(0, 144)
+      Me.btnMove.Name = "btnMove"
+      Me.btnMove.Size = New System.Drawing.Size(56, 48)
+      Me.btnMove.TabIndex = 29
+      Me.btnMove.Text = "Move"
+      Me.btnMove.UseVisualStyleBackColor = False
+      '
       'btnRotM90
       '
-      Me.btnRotM90.Location = New System.Drawing.Point(137, 6)
+      Me.btnRotM90.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
+      Me.btnRotM90.FlatAppearance.BorderSize = 0
+      Me.btnRotM90.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
+      Me.btnRotM90.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
+      Me.btnRotM90.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+      Me.btnRotM90.Location = New System.Drawing.Point(0, 96)
       Me.btnRotM90.Name = "btnRotM90"
-      Me.btnRotM90.Size = New System.Drawing.Size(59, 23)
+      Me.btnRotM90.Size = New System.Drawing.Size(56, 48)
       Me.btnRotM90.TabIndex = 27
       Me.btnRotM90.Text = "Rot-90"
       Me.btnRotM90.UseVisualStyleBackColor = False
       '
-      'btnMirror
-      '
-      Me.btnMirror.Location = New System.Drawing.Point(71, 6)
-      Me.btnMirror.Name = "btnMirror"
-      Me.btnMirror.Size = New System.Drawing.Size(59, 23)
-      Me.btnMirror.TabIndex = 28
-      Me.btnMirror.Text = "Mirror"
-      Me.btnMirror.UseVisualStyleBackColor = False
-      '
       'btnRotP90
       '
-      Me.btnRotP90.Location = New System.Drawing.Point(6, 6)
+      Me.btnRotP90.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
+      Me.btnRotP90.FlatAppearance.BorderSize = 0
+      Me.btnRotP90.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
+      Me.btnRotP90.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
+      Me.btnRotP90.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+      Me.btnRotP90.Location = New System.Drawing.Point(0, 0)
       Me.btnRotP90.Name = "btnRotP90"
-      Me.btnRotP90.Size = New System.Drawing.Size(59, 23)
+      Me.btnRotP90.Size = New System.Drawing.Size(56, 48)
       Me.btnRotP90.TabIndex = 26
       Me.btnRotP90.Text = "Rot+90"
       Me.btnRotP90.UseVisualStyleBackColor = False
       '
+      'btnMirror
+      '
+      Me.btnMirror.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
+      Me.btnMirror.FlatAppearance.BorderSize = 0
+      Me.btnMirror.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
+      Me.btnMirror.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
+      Me.btnMirror.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+      Me.btnMirror.Location = New System.Drawing.Point(0, 48)
+      Me.btnMirror.Name = "btnMirror"
+      Me.btnMirror.Size = New System.Drawing.Size(56, 48)
+      Me.btnMirror.TabIndex = 28
+      Me.btnMirror.Text = "Mirror"
+      Me.btnMirror.UseVisualStyleBackColor = False
+      '
       'OpenFileDialog
       '
       Me.OpenFileDialog.DefaultExt = "Nge"
@@ -871,48 +900,6 @@ Partial Class Form1
       Me.btnGetDist.Text = "Get Dist"
       Me.btnGetDist.UseVisualStyleBackColor = True
       '
-      'Scene1
-      '
-      Me.Scene1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-      Me.Scene1.Cursor = System.Windows.Forms.Cursors.Default
-      Me.Scene1.Dock = System.Windows.Forms.DockStyle.Fill
-      Me.Scene1.Location = New System.Drawing.Point(209, 83)
-      Me.Scene1.Name = "Scene1"
-      Me.Scene1.Size = New System.Drawing.Size(643, 365)
-      Me.Scene1.TabIndex = 1
-      '
-      'TabControl2
-      '
-      Me.TabControl2.Alignment = System.Windows.Forms.TabAlignment.Right
-      Me.TabControl2.Controls.Add(Me.TabPage1)
-      Me.TabControl2.Controls.Add(Me.TabPage2)
-      Me.TabControl2.Location = New System.Drawing.Point(112, 3)
-      Me.TabControl2.Multiline = True
-      Me.TabControl2.Name = "TabControl2"
-      Me.TabControl2.SelectedIndex = 0
-      Me.TabControl2.Size = New System.Drawing.Size(74, 225)
-      Me.TabControl2.TabIndex = 24
-      '
-      'TabPage1
-      '
-      Me.TabPage1.Location = New System.Drawing.Point(4, 4)
-      Me.TabPage1.Name = "TabPage1"
-      Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-      Me.TabPage1.Size = New System.Drawing.Size(122, 140)
-      Me.TabPage1.TabIndex = 0
-      Me.TabPage1.Text = "Draw"
-      Me.TabPage1.UseVisualStyleBackColor = True
-      '
-      'TabPage2
-      '
-      Me.TabPage2.Location = New System.Drawing.Point(4, 4)
-      Me.TabPage2.Name = "TabPage2"
-      Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-      Me.TabPage2.Size = New System.Drawing.Size(47, 217)
-      Me.TabPage2.TabIndex = 1
-      Me.TabPage2.Text = "Test"
-      Me.TabPage2.UseVisualStyleBackColor = True
-      '
       'Form1
       '
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -924,6 +911,7 @@ Partial Class Form1
       Me.Cursor = System.Windows.Forms.Cursors.Arrow
       Me.ForeColor = System.Drawing.SystemColors.ControlText
       Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+      Me.KeyPreview = True
       Me.Margin = New System.Windows.Forms.Padding(2)
       Me.MinimumSize = New System.Drawing.Size(1072, 512)
       Me.Name = "Form1"
@@ -932,13 +920,8 @@ Partial Class Form1
       Me.Text = "Egaltech Interface Prova 1"
       Me.TableLayoutPanel1.ResumeLayout(False)
       Me.TableLayoutPanel1.PerformLayout()
-      Me.Panel1.ResumeLayout(False)
-      Me.Panel1.PerformLayout()
       Me.StatusStrip1.ResumeLayout(False)
       Me.StatusStrip1.PerformLayout()
-      Me.Panel2.ResumeLayout(False)
-      Me.TableLayoutPanel2.ResumeLayout(False)
-      Me.TableLayoutPanel2.PerformLayout()
       Me.TabControl1.ResumeLayout(False)
       Me.TabHome.ResumeLayout(False)
       CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -946,67 +929,66 @@ Partial Class Form1
       CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
       CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
       CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
-      Me.TabTest.ResumeLayout(False)
+      Me.TableLayoutPanel3.ResumeLayout(False)
+      Me.TableLayoutPanel3.PerformLayout()
       Me.TabControl2.ResumeLayout(False)
+      Me.TabTest.ResumeLayout(False)
       Me.ResumeLayout(False)
 
 End Sub
     Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
     Friend WithEvents OpenFileDialog As System.Windows.Forms.OpenFileDialog
     Friend WithEvents SaveFileDialog As System.Windows.Forms.SaveFileDialog
-    Friend WithEvents btnOpen As System.Windows.Forms.Button
-    Friend WithEvents btnSave As System.Windows.Forms.Button
-    Friend WithEvents btnExec As System.Windows.Forms.Button
-    Friend WithEvents btnExport As System.Windows.Forms.Button
-    Friend WithEvents Panel1 As System.Windows.Forms.Panel
-    Friend WithEvents btnNew As System.Windows.Forms.Button
-    Friend WithEvents btnImport As System.Windows.Forms.Button
-    Friend WithEvents btnIsoSW As System.Windows.Forms.Button
-    Friend WithEvents btnTop As System.Windows.Forms.Button
-    Friend WithEvents btnRight As System.Windows.Forms.Button
-    Friend WithEvents btnBack As System.Windows.Forms.Button
-    Friend WithEvents btnLeft As System.Windows.Forms.Button
-    Friend WithEvents btnFront As System.Windows.Forms.Button
-    Friend WithEvents btnZoomOut As System.Windows.Forms.Button
-    Friend WithEvents btnZoomIn As System.Windows.Forms.Button
-    Friend WithEvents btnZoomAll As System.Windows.Forms.Button
-    Friend WithEvents chkCurveDir As System.Windows.Forms.CheckBox
-    Friend WithEvents rbtWireFrame As System.Windows.Forms.RadioButton
-    Friend WithEvents rbtShading As System.Windows.Forms.RadioButton
-    Friend WithEvents rbtHiddenLine As System.Windows.Forms.RadioButton
     Friend WithEvents Scene1 As TestEIn.Scene
     Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
     Friend WithEvents ToolStripStatusCursorPos As System.Windows.Forms.ToolStripStatusLabel
     Friend WithEvents tboxCmd As System.Windows.Forms.TextBox
-    Friend WithEvents Panel2 As System.Windows.Forms.Panel
     Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
     Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
     Friend WithEvents tBoxInfo As System.Windows.Forms.TextBox
-    Friend WithEvents TableLayoutPanel2 As System.Windows.Forms.TableLayoutPanel
-    Friend WithEvents chkGetDist As System.Windows.Forms.CheckBox
     Friend WithEvents btnGetDist As System.Windows.Forms.CheckBox
     Friend WithEvents ToolStripStatusOutput As System.Windows.Forms.ToolStripStatusLabel
     Friend WithEvents ToolStripStatusOnL As System.Windows.Forms.ToolStripStatusLabel
     Friend WithEvents ToolStripStatusOnR As System.Windows.Forms.ToolStripStatusLabel
-    Friend WithEvents chkAnalyze As System.Windows.Forms.CheckBox
     Friend WithEvents btnRotM90 As System.Windows.Forms.Button
     Friend WithEvents btnRotP90 As System.Windows.Forms.Button
     Friend WithEvents btnMirror As System.Windows.Forms.Button
-    Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
-    Friend WithEvents TabHome As System.Windows.Forms.TabPage
+    Friend WithEvents TableLayoutPanel3 As System.Windows.Forms.TableLayoutPanel
+    Friend WithEvents TabControl2 As System.Windows.Forms.TabControl
     Friend WithEvents TabDraw As System.Windows.Forms.TabPage
     Friend WithEvents TabTest As System.Windows.Forms.TabPage
-    Friend WithEvents TabView As System.Windows.Forms.TabPage
-    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+    Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
+    Friend WithEvents TabHome As System.Windows.Forms.TabPage
     Friend WithEvents btnSaveAs As System.Windows.Forms.Button
-    Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox
-    Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
-    Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox
-    Friend WithEvents btnIsoSE As System.Windows.Forms.Button
+    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
+    Friend WithEvents btnNew As System.Windows.Forms.Button
+    Friend WithEvents btnOpen As System.Windows.Forms.Button
+    Friend WithEvents btnSave As System.Windows.Forms.Button
+    Friend WithEvents btnImport As System.Windows.Forms.Button
+    Friend WithEvents btnExport As System.Windows.Forms.Button
+    Friend WithEvents btnExec As System.Windows.Forms.Button
+    Friend WithEvents TabView As System.Windows.Forms.TabPage
     Friend WithEvents btnIsoNW As System.Windows.Forms.Button
     Friend WithEvents btnIsoNE As System.Windows.Forms.Button
-    Friend WithEvents TabControl2 As System.Windows.Forms.TabControl
-    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
-    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
+    Friend WithEvents btnIsoSE As System.Windows.Forms.Button
+    Friend WithEvents chkGetDist As System.Windows.Forms.CheckBox
+    Friend WithEvents chkAnalyze As System.Windows.Forms.CheckBox
+    Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox
+    Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
+    Friend WithEvents chkCurveDir As System.Windows.Forms.CheckBox
+    Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox
+    Friend WithEvents rbtShading As System.Windows.Forms.RadioButton
+    Friend WithEvents rbtWireFrame As System.Windows.Forms.RadioButton
+    Friend WithEvents rbtHiddenLine As System.Windows.Forms.RadioButton
+    Friend WithEvents btnZoomOut As System.Windows.Forms.Button
+    Friend WithEvents btnIsoSW As System.Windows.Forms.Button
+    Friend WithEvents btnBack As System.Windows.Forms.Button
+    Friend WithEvents btnRight As System.Windows.Forms.Button
+    Friend WithEvents btnLeft As System.Windows.Forms.Button
+    Friend WithEvents btnZoomAll As System.Windows.Forms.Button
+    Friend WithEvents btnFront As System.Windows.Forms.Button
+    Friend WithEvents btnZoomIn As System.Windows.Forms.Button
+    Friend WithEvents btnTop As System.Windows.Forms.Button
+    Friend WithEvents btnMove As System.Windows.Forms.Button
 
 End Class

Form1.resx

@@ -120,6 +120,38 @@
   <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>281, 10</value>
   </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="btnOpen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        xAAADsQBlSsOGwAAAAd0SU1FB94KERY7G+iJBrIAAAXeSURBVFhHxZYLUFRVGMf/+SDFfJWGvNSxpnLG
+        qUmmtEjEBwWTj3GcVBxttGEDRUFhEUVABGVRwN0AV0ENloeAbCa6Y6gZGqbloxrAQDGTR7y0ZYGcxtT5
+        +s5ll7kLa03m0J35ncf/3nv+3/3uOfdcGI3G/xWbYl9iU3xc4Og1EU7vJjJ5cJqdiDEzpgMYwDxl63qB
+        TfFxgJPPy5Kpwzuz4fiWN0a7+3BAyRzEhxyAHZynbzIH08/qPnnncYG7+wA4zgzGsMkvsMEIM8MxarIb
+        ZyMXjjOWwtU7n7WhjJ3VvZZGXSg8KwKxSlC5BqslgrGmMghrq4IRVLUOwd/5YwoPYDOlZt3ezECmP2MH
+        p1l+UhCuc49w34EZbHWfKC6thVv1RgRQq76cOkqJOs4SdTIdXxO1c990nKheY6iNhKJkGWbyIIMYqyD4
+        6MdYpRgus2Mw1ucQXOcVY9zC43zOmekdwOVVCKb6DAO1FRMZC4ja9Gx6hNtct+UT3dER3c4i+lll+CUc
+        /tmLMJkHsmMeObkEfIiAhjHiyYX5aGaQ1TWi4NQGU8dXbCbM2bCtsMvcyPXtPCaTqGUfUfN+oltJZZ1J
+        CLiuRJigJhQbapQIF1wLQ8T1tYjm1xdzYwNiKxLgz4bPMEOYwcKc6T0JL3yM9dRxmo0PdWXgNzN3hDk/
+        fUs6m6cSNSYzSUSte1jbTdSkYVQmqo+spRvLDXRNUUY/TNXS+fEqKkFE0Xzo2PA5xmriyZGK8wqESAFY
+        jI0i7QcZTnsrP3VTGlEDG9fHM1uJ6qK43sjZCCOq9DRQ5TQDXRypfXgOiQ9Koe48CXWHASn6ldCyea/3
+        LkcqSj9CKLV/yebClJ+6OdkkGYvUX5ijtawOaYUEIpBTLK2Oq7wyeIWsrw5FSHUwQqvXQWl5LTf4Vcj5
+        MQCqMgU051ZgT8VqkZkJ0lyQAji1HEoynWDzHDbn1DZE15oMiKjPhaplKxR0K6OWmg/zuf/ONQ3CdUtQ
+        NGQIHLoD+GIZwshU0vXETTtN989A2ViAbd9vQQI18Byoia+lb70NT4KsBcgP8sBSe3s4iQkpBWDwxQYp
+        AyLtjfGmxkJEV6Vg+4McrKFGXgmXl5TZGuzfUpOK+Ch3qF1c8OLQoRjFAQySAji6COHUzhkQs/3ieFWF
+        FnFlkdhGv/J8+CmsnMqm5tF5L0N3LbXftNZEX65Z2t+Yz52eoFXPQv57r+BtfnrnMWOkpWkvBaBfiI1k
+        5K9dSwY/MLbq/BBLdbzuRQBn3+Cbx2u7OeOWR2cZS1+0T/U4b9FldUkItMqp2MymY5nhjPhIDZQCKFyA
+        CDLyJKlanHdJjW2fBSJaSv2lBQY6NkAlccJZ241Fs+jyvuCodf/3QuzY7omCiQ6YxKbiqyh9ypmuOZA/
+        lwO4nU3NesRkKxBHdRkmuqmpvX8ECQ8Fxdgh1WYkXWg99EeR7oucAA/4jxiBcWwqdsT+wlcgFbr3sZla
+        s01XdiHupJLbTUVEx+xU9w8j6d5hJDKWWmqbdak2I7/GSrt1AGlb3KGb9BImsrGYeL234yxvRP55HIsL
+        FDzxGnKJyhWGP/TQ3NNDLeqesN5Tk1+nNp9X3y2CZpc39CumYb7TSOndi32h916Q6YOoq1qEnArlydh4
+        0CQG6jyE1Lty9D36cmTnpPvM/SuJ2L9pCjSuz0P8qDzLDJSbdwewzwtRJ5SIotrUcipGBA+ibS9guO7k
+        WvQtdGtyhN7V3m3RjAexN9YTn7/mhNfZ2JERu2HvHxlRZMzBjmxfqOjmznJTIfbwYHvNpIvaZKan3l5o
+        rZmvkc6VxiA3wA1BbOrKiH+C7oknRypyPsCqOC9kCGI9kB47HenRHti/2RNZn8xFZpovdKlLkJU2D7rk
+        +TiQwtss17oEwRxusy40JjN7JXSfLkee36vwG/40JrDxP2/HfIh/OPGOxNbp8oQQ33oxZq+fEDldRddH
+        QQQh3tOTQhiLMf/+t82W2JfYFPsSm2JfYlPsS2yKfYcRfwGdQeXe8RCveQAAAABJRU5ErkJggg==
+</value>
+  </data>
   <metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>398, 10</value>
   </metadata>
@@ -128,7 +160,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADS
-        DAAAAk1TRnQBSQFMAgEBDAEAAfABBAHwAQQBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        DAAAAk1TRnQBSQFMAgEBDAEAAWABBQFgAQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAAUADAAEBAQABCAYAARAYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -183,38 +215,6 @@
         Af8BwAEDAf4BfwGhAR0B4wH/AcABAwL/AbIBcQHxAf8BwAEDAf4BfwF5AYIB+AH/AcABAwH+AX8BcgES
         AfwBZwHAAQMB/wE/AUABcgH+AScBwAEDAf8BnwEZARIB/wEHAcABAwH5AZ8BsgENAf8BhwHAAQMB+QGf
         AbIBDQH+AQcBwAEDAfwBPwHbARsB/gEHAcABAwL/AucC/wHAAQMC/wH4AR8K/ws=
-</value>
-  </data>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="btnOpen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        xAAADsQBlSsOGwAAAAd0SU1FB94KERY7G+iJBrIAAAXeSURBVFhHxZYLUFRVGMf/+SDFfJWGvNSxpnLG
-        qUmmtEjEBwWTj3GcVBxttGEDRUFhEUVABGVRwN0AV0ENloeAbCa6Y6gZGqbloxrAQDGTR7y0ZYGcxtT5
-        +s5ll7kLa03m0J35ncf/3nv+3/3uOfdcGI3G/xWbYl9iU3xc4Og1EU7vJjJ5cJqdiDEzpgMYwDxl63qB
-        TfFxgJPPy5Kpwzuz4fiWN0a7+3BAyRzEhxyAHZynbzIH08/qPnnncYG7+wA4zgzGsMkvsMEIM8MxarIb
-        ZyMXjjOWwtU7n7WhjJ3VvZZGXSg8KwKxSlC5BqslgrGmMghrq4IRVLUOwd/5YwoPYDOlZt3ezECmP2MH
-        p1l+UhCuc49w34EZbHWfKC6thVv1RgRQq76cOkqJOs4SdTIdXxO1c990nKheY6iNhKJkGWbyIIMYqyD4
-        6MdYpRgus2Mw1ucQXOcVY9zC43zOmekdwOVVCKb6DAO1FRMZC4ja9Gx6hNtct+UT3dER3c4i+lll+CUc
-        /tmLMJkHsmMeObkEfIiAhjHiyYX5aGaQ1TWi4NQGU8dXbCbM2bCtsMvcyPXtPCaTqGUfUfN+oltJZZ1J
-        CLiuRJigJhQbapQIF1wLQ8T1tYjm1xdzYwNiKxLgz4bPMEOYwcKc6T0JL3yM9dRxmo0PdWXgNzN3hDk/
-        fUs6m6cSNSYzSUSte1jbTdSkYVQmqo+spRvLDXRNUUY/TNXS+fEqKkFE0Xzo2PA5xmriyZGK8wqESAFY
-        jI0i7QcZTnsrP3VTGlEDG9fHM1uJ6qK43sjZCCOq9DRQ5TQDXRypfXgOiQ9Koe48CXWHASn6ldCyea/3
-        LkcqSj9CKLV/yebClJ+6OdkkGYvUX5ijtawOaYUEIpBTLK2Oq7wyeIWsrw5FSHUwQqvXQWl5LTf4Vcj5
-        MQCqMgU051ZgT8VqkZkJ0lyQAji1HEoynWDzHDbn1DZE15oMiKjPhaplKxR0K6OWmg/zuf/ONQ3CdUtQ
-        NGQIHLoD+GIZwshU0vXETTtN989A2ViAbd9vQQI18Byoia+lb70NT4KsBcgP8sBSe3s4iQkpBWDwxQYp
-        AyLtjfGmxkJEV6Vg+4McrKFGXgmXl5TZGuzfUpOK+Ch3qF1c8OLQoRjFAQySAji6COHUzhkQs/3ieFWF
-        FnFlkdhGv/J8+CmsnMqm5tF5L0N3LbXftNZEX65Z2t+Yz52eoFXPQv57r+BtfnrnMWOkpWkvBaBfiI1k
-        5K9dSwY/MLbq/BBLdbzuRQBn3+Cbx2u7OeOWR2cZS1+0T/U4b9FldUkItMqp2MymY5nhjPhIDZQCKFyA
-        CDLyJKlanHdJjW2fBSJaSv2lBQY6NkAlccJZ241Fs+jyvuCodf/3QuzY7omCiQ6YxKbiqyh9ypmuOZA/
-        lwO4nU3NesRkKxBHdRkmuqmpvX8ECQ8Fxdgh1WYkXWg99EeR7oucAA/4jxiBcWwqdsT+wlcgFbr3sZla
-        s01XdiHupJLbTUVEx+xU9w8j6d5hJDKWWmqbdak2I7/GSrt1AGlb3KGb9BImsrGYeL234yxvRP55HIsL
-        FDzxGnKJyhWGP/TQ3NNDLeqesN5Tk1+nNp9X3y2CZpc39CumYb7TSOndi32h916Q6YOoq1qEnArlydh4
-        0CQG6jyE1Lty9D36cmTnpPvM/SuJ2L9pCjSuz0P8qDzLDJSbdwewzwtRJ5SIotrUcipGBA+ibS9guO7k
-        WvQtdGtyhN7V3m3RjAexN9YTn7/mhNfZ2JERu2HvHxlRZMzBjmxfqOjmznJTIfbwYHvNpIvaZKan3l5o
-        rZmvkc6VxiA3wA1BbOrKiH+C7oknRypyPsCqOC9kCGI9kB47HenRHti/2RNZn8xFZpovdKlLkJU2D7rk
-        +TiQwtss17oEwRxusy40JjN7JXSfLkee36vwG/40JrDxP2/HfIh/OPGOxNbp8oQQ33oxZq+fEDldRddH
-        QQQh3tOTQhiLMf/+t82W2JfYFPsSm2JfYlPsS2yKfYcRfwGdQeXe8RCveQAAAABJRU5ErkJggg==
 </value>
   </data>
   <metadata name="OpenFileDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

Form1.vb

@@ -430,6 +430,96 @@ Public Class Form1
       End While
    End Sub
 
+
+   Private Const EI_ST_NULL As Integer = 0
+   Private Const EI_ST_MOVE1 As Integer = 1
+   Private Const EI_ST_MOVE2 As Integer = 2
+   Private m_nStatus As Integer = EI_ST_NULL
+   Private m_ptStart As Point3d
+   Private m_ptCurr As Point3d
+
+   Private Sub btnMove_Click(sender As System.Object, e As System.EventArgs) Handles btnMove.Click
+      ' posso partire solo da stato libero
+      If m_nStatus <> EI_ST_NULL Then
+         Return
+      End If
+      ' verifico ci sia qualcosa di selezionato
+      If EgtGetFirstSelectedObj() = GDB_ID_NULL Then
+         Return
+      End If
+      ' creo il gruppo di drag e vi copio le entità selezionate
+      If Not Scene1.CreateDragGroup() Then
+         Return
+      End If
+      Dim nId As Integer = EgtGetFirstSelectedObj()
+      While nId <> GDB_ID_NULL
+         If Not Scene1.AddToDragGroup(nId) Then
+            Scene1.EraseDragGroup()
+            Return
+         End If
+         nId = EgtGetNextSelectedObj()
+      End While
+      ' imposto stato di scena a selezione punto
+      Scene1.SetStatusSelPoint()
+      ' imposto stato a primo punto per move
+      m_nStatus = EI_ST_MOVE1
+      ToolStripStatusOutput.Text = "Select Start Point"
+   End Sub
+
+   Private Sub OnMouseSelectedPoint(ByVal sender As Object, ByVal PtP As Point3d) Handles Scene1.OnMouseSelectedPoint
+      If m_nStatus = EI_ST_MOVE1 Then
+         m_ptStart = PtP
+         m_ptCurr = PtP
+         m_nStatus = EI_ST_MOVE2
+         ToolStripStatusOutput.Text = "Select End Point"
+      ElseIf m_nStatus = EI_ST_MOVE2 Then
+         ' cancello gruppo di drag e linea temporanea
+         Scene1.EraseDragGroup()
+         EgtResetGeoLine(False)
+         ' eseguo movimento
+         Dim VtMove As Vector3d = PtP - m_ptStart
+         EgtMoveGlob(GDB_ID_SEL, VtMove)
+         EgtDeselectAll()
+         EgtDraw()
+         ' reset stato di scena
+         Scene1.ResetStatusSelPoint()
+         ' reset stato
+         m_nStatus = EI_ST_NULL
+         ToolStripStatusOutput.Text = ""
+      End If
+   End Sub
+
+   Private Sub OnMouseMoveSelPoint(ByVal sender As Object, ByVal PtP As Point3d) Handles Scene1.OnMouseMoveSelPoint
+      If m_nStatus = EI_ST_MOVE2 Then
+         Dim VtMove As Vector3d = PtP - m_ptCurr
+         EgtMoveGlob(Scene1.GetDragGroup(), VtMove)
+         EgtSetGeoLine(m_ptStart, PtP)
+         EgtDraw()
+         m_ptCurr = PtP
+      End If
+   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
+         Scene1.EraseDragGroup()
+         EgtResetGeoLine(False)
+         m_nStatus = EI_ST_NULL
+         Scene1.ResetStatusSelPoint()
+         ' reset Analisi e Distanza
+         chkAnalyze.Checked = False
+         chkGetDist.Checked = False
+         ' pulisco output
+         ToolStripStatusOutput.Text = ""
+         ' aggiorno disegno
+         EgtDraw()
+      End If
+   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

My Project/app.manifest

@@ -32,7 +32,7 @@
   </compatibility>
   
   <!-- Abilita i temi per i controlli e le finestre di dialogo comuni di Windows (Windows XP e versioni successive) -->
-  <!-- <dependency>
+  <dependency>
     <dependentAssembly>
       <assemblyIdentity
           type="win32"
@@ -43,6 +43,6 @@
           language="*"
         />
     </dependentAssembly>
-  </dependency>-->
+  </dependency>
 
 </asmv1:assembly>

Scene.vb

@@ -20,6 +20,7 @@ Public Class Scene
       ANALYZE = 4
       GETDIST = 5
       GETDIST2 = 6
+      SELPOINT = 7
    End Enum
    Private m_nSnapType As Integer
    Private m_PrevPoint As Point
@@ -160,6 +161,8 @@ Public Class Scene
    Public Event OnCursorPos(ByVal sender As Object, ByVal sCursorPos As String)
    Public Event OnShowDistance(ByVal sender As Object, ByVal sDistance As String)
    Public Event OnCloseGetDist(ByVal sender As Object)
+   Public Event OnMouseSelectedPoint(ByVal sender As Object, ByVal PtP As Point3d)
+   Public Event OnMouseMoveSelPoint(ByVal sender As Object, ByVal PtP As Point3d)
    Public Event OnNewProject(ByVal sender As Object)
    Public Event OnOpeningProject(ByVal sender As Object)
    Public Event OnOpenProject(ByVal sender As Object, ByVal sFile As String)
@@ -192,7 +195,7 @@ Public Class Scene
             Dim nSel As Integer
             EgtSelect(e.Location, DIM_SEL, DIM_SEL, nSel)
             If nSel = 1 Then
-               nId = EgtGetFirstSelectedObj()
+               nId = EgtGetFirstObjInSelWin()
             ElseIf nSel > 1 Then
                Dim MselDlg As New SelectMulti
                MselDlg.StartPosition = System.Windows.Forms.FormStartPosition.Manual
@@ -242,22 +245,26 @@ Public Class Scene
                m_nStatus = ST.NULL
                m_nOldStatus = ST.NULL
             End If
+         ElseIf m_nStatus = ST.SELPOINT Then
+            If EgtGetSelectedSnapPoint(m_nSnapType, e.Location.X, e.Location.Y, DIM_SEL, DIM_SEL, m_ptPrev) Then
+               RaiseEvent OnMouseSelectedPoint(Me, m_ptPrev)
+            End If
          End If
       ElseIf e.Button = Windows.Forms.MouseButtons.Middle Then
          If (Control.ModifierKeys And Keys.Shift) = Keys.Shift Then
-            If m_nStatus = ST.ANALYZE Or m_nStatus = ST.GETDIST Or m_nStatus = ST.GETDIST2 Then
+            If m_nStatus = ST.ANALYZE Or m_nStatus = ST.GETDIST Or m_nStatus = ST.GETDIST2 Or m_nStatus = ST.SELPOINT Then
                m_nOldStatus = m_nStatus
             End If
             m_nStatus = ST.ZOOMWIN
             Cursor = New Cursor(Me.GetType(), "ZoomWin.cur")
          ElseIf (Control.ModifierKeys And Keys.Control) = Keys.Control Then
-            If m_nStatus = ST.ANALYZE Or m_nStatus = ST.GETDIST Or m_nStatus = ST.GETDIST2 Then
+            If m_nStatus = ST.ANALYZE Or m_nStatus = ST.GETDIST Or m_nStatus = ST.GETDIST2 Or m_nStatus = ST.SELPOINT Then
                m_nOldStatus = m_nStatus
             End If
             m_nStatus = ST.ROT
             Cursor = New Cursor(Me.GetType(), "Rotate.cur")
          Else
-            If m_nStatus = ST.ANALYZE Or m_nStatus = ST.GETDIST Or m_nStatus = ST.GETDIST2 Then
+            If m_nStatus = ST.ANALYZE Or m_nStatus = ST.GETDIST Or m_nStatus = ST.GETDIST2 Or m_nStatus = ST.SELPOINT Then
                m_nOldStatus = m_nStatus
             End If
             m_nStatus = ST.PAN
@@ -290,6 +297,9 @@ Public Class Scene
          ElseIf m_nOldStatus = ST.GETDIST Or m_nOldStatus = ST.GETDIST2 Then
             m_nStatus = m_nOldStatus
             Cursor = New Cursor(Me.GetType(), "GetDist.cur")
+         ElseIf m_nOldStatus = ST.SELPOINT Then
+            m_nStatus = m_nOldStatus
+            Cursor = New Cursor(Me.GetType(), "Select.cur")
          ' reset dello stato se non NULL
          ElseIf m_nStatus <> ST.NULL Then
             m_nStatus = ST.NULL
@@ -306,7 +316,7 @@ Public Class Scene
                   i.Visible = False
                End If
             Next
-         ElseIf m_nStatus = ST.GETDIST Or m_nStatus = ST.GETDIST2 Then
+         ElseIf m_nStatus = ST.GETDIST Or m_nStatus = ST.GETDIST2 Or m_nStatus = ST.SELPOINT Then
             MenuScene.Visible = True
             For Each i As ToolStripMenuItem In MenuScene.Items
                If i.Name = "cmdEndPoint" Then
@@ -364,6 +374,8 @@ Public Class Scene
             m_nStatus = ST.NULL
             Cursor = New Cursor(Me.GetType(), "Select.cur")
          End If
+      ElseIf m_nStatus = ST.ANALYZE Then
+         Cursor = New Cursor(Me.GetType(), "Analyze.cur")
       ElseIf m_nStatus = ST.GETDIST Then
          Cursor = New Cursor(Me.GetType(), "GetDist.cur")
       ElseIf m_nStatus = ST.GETDIST2 Then
@@ -371,8 +383,11 @@ Public Class Scene
          Dim ptP As Point3d
          EgtUnProjectPoint(e.Location, ptP)
          EgtSetGeoLine(m_ptPrev, ptP)
-      ElseIf m_nStatus = ST.ANALYZE Then
-         Cursor = New Cursor(Me.GetType(), "Analyze.cur")
+      ElseIf m_nStatus = ST.SELPOINT Then
+         Cursor = New Cursor(Me.GetType(), "Select.cur")
+         Dim ptP As Point3d
+         EgtUnProjectPoint(e.Location, ptP)
+         RaiseEvent OnMouseMoveSelPoint(Me, ptP)
       Else
          MyBase.OnMouseMove(e)
       End If
@@ -386,8 +401,9 @@ Public Class Scene
    End Sub
 
    Protected Overrides Sub OnMouseWheel(e As System.Windows.Forms.MouseEventArgs)
-      ' devo essere nello stato NULL o ANALYZE o GETDIST
-      If m_nStatus <> ST.NULL And m_nStatus <> ST.ANALYZE And m_nStatus <> ST.GETDIST And m_nStatus <> ST.GETDIST2 Then
+      ' devo essere nello stato NULL o ANALYZE o GETDIST o SELPOINT
+      If m_nStatus <> ST.NULL And m_nStatus <> ST.ANALYZE And m_nStatus <> ST.GETDIST And
+         m_nStatus <> ST.GETDIST2 And m_nStatus <> ST.SELPOINT Then
          Return
       End If
       ' trascuro rotazioni molto piccole
@@ -461,6 +477,34 @@ Public Class Scene
       End If
    End Sub
 
+   '---- Drag Group ------
+   Private m_nDragGroup As Integer = GDB_ID_NULL
+
+   Public Function CreateDragGroup() As Boolean
+      m_nDragGroup = EgtCreateGroup(GDB_ID_ROOT)
+      If m_nDragGroup = GDB_ID_NULL Then
+         Return False
+      End If
+      EgtSetLevel(m_nDragGroup, GDB_LV_TEMP)
+      EgtUnselectableAdd(m_nDragGroup)
+      Return True
+   End Function
+
+   Public Function EraseDragGroup() As Boolean
+      EgtErase(m_nDragGroup)
+      EgtUnselectableRemove(m_nDragGroup)
+      m_nDragGroup = GDB_ID_NULL
+      Return True
+   End Function
+
+   Public Function AddToDragGroup(ByVal nId As Integer) As Boolean
+      Return EgtCopyGlob(nId, m_nDragGroup, GDB_SON) <> GDB_ID_NULL
+   End Function
+
+   Public Function GetDragGroup() As Integer
+      Return m_nDragGroup
+   End Function
+
    '---- Main Buttons ----
    Public Function NewProject() As Boolean
       Dim bOk As Boolean = EgtNewFile()
@@ -683,6 +727,18 @@ Public Class Scene
       Return bOk
    End Function
 
+   '---- Analyze Operations -------------
+   Public Sub SetStatusAnalyze()
+      m_nStatus = ST.ANALYZE
+   End Sub
+
+   Public Sub ResetStatusAnalyze()
+      If m_nStatus = ST.ANALYZE Then
+         m_nStatus = ST.NULL
+         m_nOldStatus = ST.NULL
+      End If
+   End Sub
+
    '---- Distance Operations -------------
    Public Sub SetStatusGetDistance()
       m_nStatus = ST.GETDIST
@@ -697,13 +753,13 @@ Public Class Scene
       RaiseEvent OnCloseGetDist(Me)
    End Sub
 
-   '---- Analyze Operations -------------
-   Public Sub SetStatusAnalyze()
-      m_nStatus = ST.ANALYZE
+   '---- Distance Operations -------------
+   Public Sub SetStatusSelPoint()
+      m_nStatus = ST.SELPOINT
    End Sub
 
-   Public Sub ResetStatusAnalyze()
-      If m_nStatus = ST.ANALYZE Then
+   Public Sub ResetStatusSelPoint()
+      If m_nStatus = ST.SELPOINT Then
          m_nStatus = ST.NULL
          m_nOldStatus = ST.NULL
       End If

SelectMulti.vb

@@ -9,7 +9,7 @@ Public Class SelectMulti
    Private Sub SelectMulti_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       ListBox1.BeginUpdate()
       'Inserisco le entità nel mirino
-      Dim nId = EgtGetFirstSelectedObj()
+      Dim nId = EgtGetFirstObjInSelWin()
       While nId <> GDB_ID_NULL
          Dim sTitle As String = String.Empty
          EgtGetTitle(nId, sTitle)
@@ -19,7 +19,7 @@ Public Class SelectMulti
          sTitle += " (" & nId & ")"
          Dim smItem As New SelMulItem(sTitle, nId)
          ListBox1.Items.Add(smItem)
-         nId = EgtGetNextSelectedObj()
+         nId = EgtGetNextObjInSelWin()
       End While
       'Inserisco None per non selezionare alcunchè
       Dim smNone As New SelMulItem("None", GDB_ID_NULL)