diff --git a/EgtInterface.vb b/EgtInterface.vb index 46d1d07..d630271 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -573,6 +573,16 @@ End Function '---------- GeomDb Objects Create ---------------------------------------------- + +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 + +Public Shared Function EgtCopy(ByVal nId As Integer, ByVal nRefId As Integer, ByVal nSonBeforeAfter As Integer) As Integer +End Function + + +Public Shared Function EgtCopyGlob(ByVal nId As Integer, ByVal nRefId As Integer, ByVal nSonBeforeAfter As Integer) As Integer +End Function + + +Public Shared Function EgtRelocate(ByVal nId As Integer, ByVal nRefId As Integer, ByVal nSonBeforeAfter As Integer) As Integer +End Function + + +Public Shared Function EgtRelocateGlob(ByVal nId As Integer, ByVal nRefId As Integer, ByVal nSonBeforeAfter As Integer) As Integer +End Function + + +Public Shared Function EgtErase(ByVal nId As Integer) As Integer +End Function + Public Shared Function EgtGetType(ByVal nId As Integer) As Integer End Function @@ -771,10 +801,6 @@ End Function '---------- GeomDb Obj Selection ----------------------------------------------- - -Public Shared Function EgtIsSelectedObj(ByVal nId As Integer) As Boolean -End Function - 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 + +Public Shared Function EgtIsSelectedObj(ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtGetFirstSelectedObj() As Integer +End Function + + +Public Shared Function EgtGetNextSelectedObj() As Integer +End Function + '---------- GeomDb Obj Transform ----------------------------------------------- @@ -834,7 +872,7 @@ Public Shared Function EgtScaleGlob(ByVal nId As Integer, ByRef Frame As Frame3d End Function -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 -Public Shared Function EgtGetFirstSelectedObj() As Integer +Public Shared Function EgtGetFirstObjInSelWin() As Integer End Function -Public Shared Function EgtGetNextSelectedObj() As Integer +Public Shared Function EgtGetNextObjInSelWin() As Integer +End Function + + +Public Shared Function EgtUnselectableAdd(ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtUnselectableRemove(ByVal nId As Integer) As Boolean +End Function + + +Public Shared Function EgtUnselectableClearAll() As Boolean End Function @@ -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 diff --git a/Form1.Designer.vb b/Form1.Designer.vb index 803b656..65df7df 100644 --- a/Form1.Designer.vb +++ b/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 diff --git a/Form1.resx b/Form1.resx index ab92ef4..a913496 100644 --- a/Form1.resx +++ b/Form1.resx @@ -120,6 +120,38 @@ 281, 10 + + + + 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== + + 398, 10 @@ -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= - - - - - - 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== diff --git a/Form1.vb b/Form1.vb index ef8a45b..6e0b87a 100644 --- a/Form1.vb +++ b/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 diff --git a/My Project/app.manifest b/My Project/app.manifest index 71a28bd..78115d7 100644 --- a/My Project/app.manifest +++ b/My Project/app.manifest @@ -32,7 +32,7 @@ - + diff --git a/Scene.vb b/Scene.vb index 3c4ea00..474a6a1 100644 --- a/Scene.vb +++ b/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 diff --git a/SelectMulti.vb b/SelectMulti.vb index 75121c5..99981c2 100644 --- a/SelectMulti.vb +++ b/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)