Egalware/TestEIn
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

TestEIn 1.5l1 :

Browse Source 
- aggiornamento a VS2013
- aggiunto disegno rettangolo nel piano di grid e orientato come gli assi
- aggiunto comando per spostare le entità selezionate nel layer corrente
- migliorata gestione Offset curve (distanza da punti e tipo)
- se si nasconde layer corrente, viene cambiato opportunamente
- aggiunto comando per impostare vista perpendicolare a grid corrente
- aggiornata interfaccia verso codice nativo
- migliorata visualizzazione coordinate di puntatore
- migliorata gestione errori su file e script.
This commit is contained in:
Dario Sassi
2014-12-17 15:32:00 +00:00
parent 991c8022e0
commit e98cca7c98
13 changed files with 1141 additions and 741 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Controller.vb
+320 -165
View File
File diff suppressed because it is too large Load Diff
EgtInterface.vb
+388 -316
View File
File diff suppressed because it is too large Load Diff
Form1.Designer.vb
Generated
+132 -58
View File
@@ -25,6 +25,7 @@ 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.Scene1 = New TestEIn.Scene()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tsStatusOnL = New System.Windows.Forms.ToolStripStatusLabel()
Me.tsStatusOutput = New System.Windows.Forms.ToolStripStatusLabel()
@@ -44,7 +45,7 @@ Partial Class Form1
Me.btnExport = New System.Windows.Forms.Button()
Me.btnExec = New System.Windows.Forms.Button()
Me.TabView = New System.Windows.Forms.TabPage()
Me.btnBottom = New System.Windows.Forms.Button()
Me.btnCPlane = New System.Windows.Forms.Button()
Me.btnIsoNW = New System.Windows.Forms.Button()
Me.btnIsoNE = New System.Windows.Forms.Button()
Me.btnIsoSE = New System.Windows.Forms.Button()
@@ -98,8 +99,10 @@ Partial Class Form1
Me.InputCheck = New System.Windows.Forms.CheckBox()
Me.InputText = New System.Windows.Forms.TextBox()
Me.InputLabel = New System.Windows.Forms.Label()
Me.InputCombo = New System.Windows.Forms.ComboBox()
Me.TabControl2 = New System.Windows.Forms.TabControl()
Me.TabDraw = New System.Windows.Forms.TabPage()
Me.btnRectangle2P = New System.Windows.Forms.Button()
Me.btnCircleCD = New System.Windows.Forms.Button()
Me.btnLinePDL = New System.Windows.Forms.Button()
Me.btnArcPDP = New System.Windows.Forms.Button()
@@ -114,6 +117,7 @@ Partial Class Form1
Me.btnExtrude = New System.Windows.Forms.Button()
Me.btnPlane = New System.Windows.Forms.Button()
Me.TabEdit = New System.Windows.Forms.TabPage()
Me.btnChangeLayer = New System.Windows.Forms.Button()
Me.btnSetCurveTh = New System.Windows.Forms.Button()
Me.btnExtendCurve = New System.Windows.Forms.Button()
Me.btnBreakCurve = New System.Windows.Forms.Button()
@@ -147,7 +151,7 @@ Partial Class Form1
Me.btnGetDist = New System.Windows.Forms.CheckBox()
Me.ObjTreeTimer = New System.Windows.Forms.Timer(Me.components)
Me.ColorDialog1 = New System.Windows.Forms.ColorDialog()
Me.Scene1 = New TestEIn.Scene()
Me.FormTimer = New System.Windows.Forms.Timer(Me.components)
Me.TableLayoutPanel1.SuspendLayout()
Me.StatusStrip1.SuspendLayout()
Me.TabControl1.SuspendLayout()
@@ -186,13 +190,24 @@ Partial Class Form1
Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0)
Me.TableLayoutPanel1.Margin = New System.Windows.Forms.Padding(2)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 3
Me.TableLayoutPanel1.RowCount = 4
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 80.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(1096, 561)
Me.TableLayoutPanel1.TabIndex = 0
'
'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(92, 83)
Me.Scene1.Name = "Scene1"
Me.Scene1.Size = New System.Drawing.Size(795, 433)
Me.Scene1.TabIndex = 1
'
'StatusStrip1
'
Me.StatusStrip1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
@@ -200,7 +215,7 @@ Partial Class Form1
Me.TableLayoutPanel1.SetColumnSpan(Me.StatusStrip1, 3)
Me.StatusStrip1.Dock = System.Windows.Forms.DockStyle.None
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsStatusOnL, Me.tsStatusOutput, Me.tsStatusOnR, Me.tsStatusSnapPointType, Me.tsStatusGrid, Me.tsStatusCurPosType, Me.tsStatusCursorPos})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 539)
Me.StatusStrip1.Location = New System.Drawing.Point(0, 519)
Me.StatusStrip1.MaximumSize = New System.Drawing.Size(0, 22)
Me.StatusStrip1.MinimumSize = New System.Drawing.Size(0, 22)
Me.StatusStrip1.Name = "StatusStrip1"
@@ -448,7 +463,7 @@ Partial Class Form1
'TabView
'
Me.TabView.BackColor = System.Drawing.SystemColors.Control
Me.TabView.Controls.Add(Me.btnBottom)
Me.TabView.Controls.Add(Me.btnCPlane)
Me.TabView.Controls.Add(Me.btnIsoNW)
Me.TabView.Controls.Add(Me.btnIsoNE)
Me.TabView.Controls.Add(Me.btnIsoSE)
@@ -477,22 +492,22 @@ Partial Class Form1
Me.TabView.TabIndex = 3
Me.TabView.Text = "View"
'
'btnBottom
'btnCPlane
'
Me.btnBottom.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
Me.btnBottom.FlatAppearance.BorderSize = 0
Me.btnBottom.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
Me.btnBottom.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.btnBottom.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBottom.Image = CType(resources.GetObject("btnBottom.Image"), System.Drawing.Image)
Me.btnBottom.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnBottom.Location = New System.Drawing.Point(628, 0)
Me.btnBottom.Name = "btnBottom"
Me.btnBottom.Size = New System.Drawing.Size(56, 48)
Me.btnBottom.TabIndex = 32
Me.btnBottom.Text = "Bottom"
Me.btnBottom.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnBottom.UseVisualStyleBackColor = False
Me.btnCPlane.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
Me.btnCPlane.FlatAppearance.BorderSize = 0
Me.btnCPlane.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
Me.btnCPlane.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.btnCPlane.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCPlane.Image = CType(resources.GetObject("btnCPlane.Image"), System.Drawing.Image)
Me.btnCPlane.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnCPlane.Location = New System.Drawing.Point(850, 0)
Me.btnCPlane.Name = "btnCPlane"
Me.btnCPlane.Size = New System.Drawing.Size(56, 48)
Me.btnCPlane.TabIndex = 32
Me.btnCPlane.Text = "CPlane"
Me.btnCPlane.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnCPlane.UseVisualStyleBackColor = False
'
'btnIsoNW
'
@@ -503,7 +518,7 @@ Partial Class Form1
Me.btnIsoNW.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnIsoNW.Image = CType(resources.GetObject("btnIsoNW.Image"), System.Drawing.Image)
Me.btnIsoNW.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnIsoNW.Location = New System.Drawing.Point(852, 0)
Me.btnIsoNW.Location = New System.Drawing.Point(796, 0)
Me.btnIsoNW.Name = "btnIsoNW"
Me.btnIsoNW.Size = New System.Drawing.Size(56, 48)
Me.btnIsoNW.TabIndex = 31
@@ -520,7 +535,7 @@ Partial Class Form1
Me.btnIsoNE.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnIsoNE.Image = CType(resources.GetObject("btnIsoNE.Image"), System.Drawing.Image)
Me.btnIsoNE.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnIsoNE.Location = New System.Drawing.Point(796, 0)
Me.btnIsoNE.Location = New System.Drawing.Point(740, 0)
Me.btnIsoNE.Name = "btnIsoNE"
Me.btnIsoNE.Size = New System.Drawing.Size(56, 48)
Me.btnIsoNE.TabIndex = 30
@@ -537,7 +552,7 @@ Partial Class Form1
Me.btnIsoSE.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnIsoSE.Image = CType(resources.GetObject("btnIsoSE.Image"), System.Drawing.Image)
Me.btnIsoSE.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnIsoSE.Location = New System.Drawing.Point(740, 0)
Me.btnIsoSE.Location = New System.Drawing.Point(684, 0)
Me.btnIsoSE.Name = "btnIsoSE"
Me.btnIsoSE.Size = New System.Drawing.Size(56, 48)
Me.btnIsoSE.TabIndex = 29
@@ -637,15 +652,18 @@ Partial Class Form1
Me.rbtShading.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
Me.rbtShading.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.rbtShading.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.rbtShading.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.rbtShading.Image = CType(resources.GetObject("rbtShading.Image"), System.Drawing.Image)
Me.rbtShading.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.rbtShading.Location = New System.Drawing.Point(112, 0)
Me.rbtShading.Margin = New System.Windows.Forms.Padding(0)
Me.rbtShading.Name = "rbtShading"
Me.rbtShading.Size = New System.Drawing.Size(56, 48)
Me.rbtShading.TabIndex = 23
Me.rbtShading.TabStop = True
Me.rbtShading.Text = "Shading"
Me.rbtShading.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.rbtShading.UseCompatibleTextRendering = True
Me.rbtShading.UseVisualStyleBackColor = True
'
'rbtWireFrame
@@ -661,12 +679,14 @@ Partial Class Form1
Me.rbtWireFrame.Image = CType(resources.GetObject("rbtWireFrame.Image"), System.Drawing.Image)
Me.rbtWireFrame.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.rbtWireFrame.Location = New System.Drawing.Point(0, 0)
Me.rbtWireFrame.Margin = New System.Windows.Forms.Padding(0)
Me.rbtWireFrame.Name = "rbtWireFrame"
Me.rbtWireFrame.Size = New System.Drawing.Size(56, 48)
Me.rbtWireFrame.TabIndex = 21
Me.rbtWireFrame.TabStop = True
Me.rbtWireFrame.Text = "WFrame"
Me.rbtWireFrame.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.rbtWireFrame.UseCompatibleTextRendering = True
Me.rbtWireFrame.UseVisualStyleBackColor = True
'
'rbtHiddenLine
@@ -678,6 +698,7 @@ Partial Class Form1
Me.rbtHiddenLine.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
Me.rbtHiddenLine.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.rbtHiddenLine.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.rbtHiddenLine.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.rbtHiddenLine.Image = CType(resources.GetObject("rbtHiddenLine.Image"), System.Drawing.Image)
Me.rbtHiddenLine.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.rbtHiddenLine.Location = New System.Drawing.Point(56, 0)
@@ -687,6 +708,7 @@ Partial Class Form1
Me.rbtHiddenLine.TabStop = True
Me.rbtHiddenLine.Text = "HLine"
Me.rbtHiddenLine.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.rbtHiddenLine.UseCompatibleTextRendering = True
Me.rbtHiddenLine.UseVisualStyleBackColor = True
'
'btnZoomOut
@@ -704,6 +726,7 @@ Partial Class Form1
Me.btnZoomOut.TabIndex = 15
Me.btnZoomOut.Text = "ZoomOut"
Me.btnZoomOut.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnZoomOut.UseCompatibleTextRendering = True
Me.btnZoomOut.UseVisualStyleBackColor = False
'
'btnIsoSW
@@ -715,7 +738,7 @@ Partial Class Form1
Me.btnIsoSW.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnIsoSW.Image = CType(resources.GetObject("btnIsoSW.Image"), System.Drawing.Image)
Me.btnIsoSW.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnIsoSW.Location = New System.Drawing.Point(684, 0)
Me.btnIsoSW.Location = New System.Drawing.Point(628, 0)
Me.btnIsoSW.Name = "btnIsoSW"
Me.btnIsoSW.Size = New System.Drawing.Size(56, 48)
Me.btnIsoSW.TabIndex = 8
@@ -781,6 +804,7 @@ Partial Class Form1
Me.btnZoomAll.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
Me.btnZoomAll.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.btnZoomAll.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnZoomAll.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnZoomAll.Image = CType(resources.GetObject("btnZoomAll.Image"), System.Drawing.Image)
Me.btnZoomAll.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnZoomAll.Location = New System.Drawing.Point(172, 0)
@@ -789,6 +813,7 @@ Partial Class Form1
Me.btnZoomAll.TabIndex = 13
Me.btnZoomAll.Text = "ZoomAll"
Me.btnZoomAll.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnZoomAll.UseCompatibleTextRendering = True
Me.btnZoomAll.UseVisualStyleBackColor = False
'
'btnFront
@@ -823,6 +848,7 @@ Partial Class Form1
Me.btnZoomIn.TabIndex = 14
Me.btnZoomIn.Text = "ZoomIn"
Me.btnZoomIn.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnZoomIn.UseCompatibleTextRendering = True
Me.btnZoomIn.UseVisualStyleBackColor = False
'
'btnTop
@@ -1095,28 +1121,28 @@ Partial Class Form1
Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 50.0!))
Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 70.0!))
Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 30.0!))
Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 140.0!))
Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 160.0!))
Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 50.0!))
Me.TableLayoutPanel3.Size = New System.Drawing.Size(200, 453)
Me.TableLayoutPanel3.Size = New System.Drawing.Size(200, 433)
Me.TableLayoutPanel3.TabIndex = 9
'
'tBoxInfo
'
Me.tBoxInfo.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.tBoxInfo.Dock = System.Windows.Forms.DockStyle.Fill
Me.tBoxInfo.Location = New System.Drawing.Point(3, 200)
Me.tBoxInfo.Location = New System.Drawing.Point(3, 172)
Me.tBoxInfo.Margin = New System.Windows.Forms.Padding(3, 1, 3, 3)
Me.tBoxInfo.Multiline = True
Me.tBoxInfo.Name = "tBoxInfo"
Me.tBoxInfo.ReadOnly = True
Me.tBoxInfo.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.tBoxInfo.Size = New System.Drawing.Size(194, 59)
Me.tBoxInfo.Size = New System.Drawing.Size(194, 47)
Me.tBoxInfo.TabIndex = 24
'
'tboxCmd
'
Me.tboxCmd.Dock = System.Windows.Forms.DockStyle.Fill
Me.tboxCmd.Location = New System.Drawing.Point(3, 405)
Me.tboxCmd.Location = New System.Drawing.Point(3, 385)
Me.tboxCmd.Multiline = True
Me.tboxCmd.Name = "tboxCmd"
Me.tboxCmd.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
@@ -1135,7 +1161,7 @@ Partial Class Form1
Me.TreeView1.Margin = New System.Windows.Forms.Padding(3, 3, 3, 0)
Me.TreeView1.Name = "TreeView1"
Me.TreeView1.SelectedImageIndex = 0
Me.TreeView1.Size = New System.Drawing.Size(194, 146)
Me.TreeView1.Size = New System.Drawing.Size(194, 118)
Me.TreeView1.StateImageList = Me.ImageList2
Me.TreeView1.TabIndex = 0
'
@@ -1235,17 +1261,18 @@ Partial Class Form1
Me.InputBox.Controls.Add(Me.InputCheck)
Me.InputBox.Controls.Add(Me.InputText)
Me.InputBox.Controls.Add(Me.InputLabel)
Me.InputBox.Controls.Add(Me.InputCombo)
Me.InputBox.Dock = System.Windows.Forms.DockStyle.Fill
Me.InputBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.InputBox.Location = New System.Drawing.Point(3, 265)
Me.InputBox.Location = New System.Drawing.Point(3, 225)
Me.InputBox.Name = "InputBox"
Me.InputBox.Size = New System.Drawing.Size(194, 134)
Me.InputBox.Size = New System.Drawing.Size(194, 154)
Me.InputBox.TabIndex = 26
Me.InputBox.TabStop = False
'
'btnDone
'
Me.btnDone.Location = New System.Drawing.Point(112, 104)
Me.btnDone.Location = New System.Drawing.Point(112, 125)
Me.btnDone.Name = "btnDone"
Me.btnDone.Size = New System.Drawing.Size(75, 23)
Me.btnDone.TabIndex = 4
@@ -1254,7 +1281,7 @@ Partial Class Form1
'
'btnShow
'
Me.btnShow.Location = New System.Drawing.Point(10, 104)
Me.btnShow.Location = New System.Drawing.Point(8, 125)
Me.btnShow.Name = "btnShow"
Me.btnShow.Size = New System.Drawing.Size(75, 23)
Me.btnShow.TabIndex = 3
@@ -1264,9 +1291,9 @@ Partial Class Form1
'InputCheck
'
Me.InputCheck.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.InputCheck.Location = New System.Drawing.Point(12, 74)
Me.InputCheck.Location = New System.Drawing.Point(17, 69)
Me.InputCheck.Name = "InputCheck"
Me.InputCheck.Size = New System.Drawing.Size(178, 23)
Me.InputCheck.Size = New System.Drawing.Size(170, 23)
Me.InputCheck.TabIndex = 2
Me.InputCheck.UseVisualStyleBackColor = True
Me.InputCheck.Visible = False
@@ -1291,6 +1318,19 @@ Partial Class Form1
Me.InputLabel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.InputLabel.Visible = False
'
'InputCombo
'
Me.InputCombo.AllowDrop = True
Me.InputCombo.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.InputCombo.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.InputCombo.FormattingEnabled = True
Me.InputCombo.Location = New System.Drawing.Point(16, 95)
Me.InputCombo.Margin = New System.Windows.Forms.Padding(0)
Me.InputCombo.MaxDropDownItems = 4
Me.InputCombo.Name = "InputCombo"
Me.InputCombo.Size = New System.Drawing.Size(162, 25)
Me.InputCombo.TabIndex = 11
'
'TabControl2
'
Me.TabControl2.Alignment = System.Windows.Forms.TabAlignment.Left
@@ -1305,12 +1345,13 @@ Partial Class Form1
Me.TabControl2.Multiline = True
Me.TabControl2.Name = "TabControl2"
Me.TabControl2.SelectedIndex = 0
Me.TabControl2.Size = New System.Drawing.Size(83, 453)
Me.TabControl2.Size = New System.Drawing.Size(83, 433)
Me.TabControl2.TabIndex = 10
'
'TabDraw
'
Me.TabDraw.BackColor = System.Drawing.SystemColors.Control
Me.TabDraw.Controls.Add(Me.btnRectangle2P)
Me.TabDraw.Controls.Add(Me.btnCircleCD)
Me.TabDraw.Controls.Add(Me.btnLinePDL)
Me.TabDraw.Controls.Add(Me.btnArcPDP)
@@ -1322,10 +1363,27 @@ Partial Class Form1
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(56, 445)
Me.TabDraw.Size = New System.Drawing.Size(56, 425)
Me.TabDraw.TabIndex = 0
Me.TabDraw.Text = "Draw"
'
'btnRectangle2P
'
Me.btnRectangle2P.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
Me.btnRectangle2P.FlatAppearance.BorderSize = 0
Me.btnRectangle2P.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
Me.btnRectangle2P.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.btnRectangle2P.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnRectangle2P.Image = CType(resources.GetObject("btnRectangle2P.Image"), System.Drawing.Image)
Me.btnRectangle2P.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnRectangle2P.Location = New System.Drawing.Point(0, 384)
Me.btnRectangle2P.Name = "btnRectangle2P"
Me.btnRectangle2P.Size = New System.Drawing.Size(56, 48)
Me.btnRectangle2P.TabIndex = 38
Me.btnRectangle2P.Text = "Rect 2p"
Me.btnRectangle2P.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnRectangle2P.UseVisualStyleBackColor = False
'
'btnCircleCD
'
Me.btnCircleCD.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
@@ -1471,7 +1529,7 @@ Partial Class Form1
Me.TabConstruct.Controls.Add(Me.btnPlane)
Me.TabConstruct.Location = New System.Drawing.Point(23, 4)
Me.TabConstruct.Name = "TabConstruct"
Me.TabConstruct.Size = New System.Drawing.Size(56, 445)
Me.TabConstruct.Size = New System.Drawing.Size(56, 425)
Me.TabConstruct.TabIndex = 4
Me.TabConstruct.Text = "Construct"
'
@@ -1546,6 +1604,7 @@ Partial Class Form1
'TabEdit
'
Me.TabEdit.BackColor = System.Drawing.SystemColors.Control
Me.TabEdit.Controls.Add(Me.btnChangeLayer)
Me.TabEdit.Controls.Add(Me.btnSetCurveTh)
Me.TabEdit.Controls.Add(Me.btnExtendCurve)
Me.TabEdit.Controls.Add(Me.btnBreakCurve)
@@ -1556,10 +1615,27 @@ Partial Class Form1
Me.TabEdit.Controls.Add(Me.btnDelete)
Me.TabEdit.Location = New System.Drawing.Point(23, 4)
Me.TabEdit.Name = "TabEdit"
Me.TabEdit.Size = New System.Drawing.Size(56, 445)
Me.TabEdit.Size = New System.Drawing.Size(56, 425)
Me.TabEdit.TabIndex = 3
Me.TabEdit.Text = "Edit"
'
'btnChangeLayer
'
Me.btnChangeLayer.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
Me.btnChangeLayer.FlatAppearance.BorderSize = 0
Me.btnChangeLayer.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
Me.btnChangeLayer.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.btnChangeLayer.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnChangeLayer.Image = CType(resources.GetObject("btnChangeLayer.Image"), System.Drawing.Image)
Me.btnChangeLayer.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnChangeLayer.Location = New System.Drawing.Point(0, 48)
Me.btnChangeLayer.Name = "btnChangeLayer"
Me.btnChangeLayer.Size = New System.Drawing.Size(56, 48)
Me.btnChangeLayer.TabIndex = 35
Me.btnChangeLayer.Text = "Layer"
Me.btnChangeLayer.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnChangeLayer.UseVisualStyleBackColor = False
'
'btnSetCurveTh
'
Me.btnSetCurveTh.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
@@ -1570,7 +1646,7 @@ Partial Class Form1
Me.btnSetCurveTh.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSetCurveTh.Image = CType(resources.GetObject("btnSetCurveTh.Image"), System.Drawing.Image)
Me.btnSetCurveTh.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSetCurveTh.Location = New System.Drawing.Point(0, 336)
Me.btnSetCurveTh.Location = New System.Drawing.Point(0, 384)
Me.btnSetCurveTh.Name = "btnSetCurveTh"
Me.btnSetCurveTh.Size = New System.Drawing.Size(56, 48)
Me.btnSetCurveTh.TabIndex = 40
@@ -1588,7 +1664,7 @@ Partial Class Form1
Me.btnExtendCurve.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnExtendCurve.Image = CType(resources.GetObject("btnExtendCurve.Image"), System.Drawing.Image)
Me.btnExtendCurve.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnExtendCurve.Location = New System.Drawing.Point(0, 144)
Me.btnExtendCurve.Location = New System.Drawing.Point(0, 192)
Me.btnExtendCurve.Name = "btnExtendCurve"
Me.btnExtendCurve.Size = New System.Drawing.Size(56, 48)
Me.btnExtendCurve.TabIndex = 39
@@ -1605,7 +1681,7 @@ Partial Class Form1
Me.btnBreakCurve.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBreakCurve.Image = CType(resources.GetObject("btnBreakCurve.Image"), System.Drawing.Image)
Me.btnBreakCurve.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnBreakCurve.Location = New System.Drawing.Point(0, 192)
Me.btnBreakCurve.Location = New System.Drawing.Point(0, 240)
Me.btnBreakCurve.Name = "btnBreakCurve"
Me.btnBreakCurve.Size = New System.Drawing.Size(56, 48)
Me.btnBreakCurve.TabIndex = 38
@@ -1622,7 +1698,7 @@ Partial Class Form1
Me.btnChangeColor.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnChangeColor.Image = CType(resources.GetObject("btnChangeColor.Image"), System.Drawing.Image)
Me.btnChangeColor.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnChangeColor.Location = New System.Drawing.Point(0, 48)
Me.btnChangeColor.Location = New System.Drawing.Point(0, 96)
Me.btnChangeColor.Name = "btnChangeColor"
Me.btnChangeColor.Size = New System.Drawing.Size(56, 48)
Me.btnChangeColor.TabIndex = 37
@@ -1640,7 +1716,7 @@ Partial Class Form1
Me.btnExplodeCurve.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnExplodeCurve.Image = CType(resources.GetObject("btnExplodeCurve.Image"), System.Drawing.Image)
Me.btnExplodeCurve.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnExplodeCurve.Location = New System.Drawing.Point(0, 288)
Me.btnExplodeCurve.Location = New System.Drawing.Point(0, 336)
Me.btnExplodeCurve.Name = "btnExplodeCurve"
Me.btnExplodeCurve.Size = New System.Drawing.Size(56, 48)
Me.btnExplodeCurve.TabIndex = 36
@@ -1657,7 +1733,7 @@ Partial Class Form1
Me.btnJoinCurve.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnJoinCurve.Image = CType(resources.GetObject("btnJoinCurve.Image"), System.Drawing.Image)
Me.btnJoinCurve.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnJoinCurve.Location = New System.Drawing.Point(0, 240)
Me.btnJoinCurve.Location = New System.Drawing.Point(0, 288)
Me.btnJoinCurve.Name = "btnJoinCurve"
Me.btnJoinCurve.Size = New System.Drawing.Size(56, 48)
Me.btnJoinCurve.TabIndex = 35
@@ -1674,7 +1750,7 @@ Partial Class Form1
Me.btnInvertCurve.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnInvertCurve.Image = CType(resources.GetObject("btnInvertCurve.Image"), System.Drawing.Image)
Me.btnInvertCurve.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnInvertCurve.Location = New System.Drawing.Point(0, 96)
Me.btnInvertCurve.Location = New System.Drawing.Point(0, 144)
Me.btnInvertCurve.Name = "btnInvertCurve"
Me.btnInvertCurve.Size = New System.Drawing.Size(56, 48)
Me.btnInvertCurve.TabIndex = 31
@@ -1709,7 +1785,7 @@ Partial Class Form1
Me.TabTransform.Controls.Add(Me.btnMove)
Me.TabTransform.Location = New System.Drawing.Point(23, 4)
Me.TabTransform.Name = "TabTransform"
Me.TabTransform.Size = New System.Drawing.Size(56, 445)
Me.TabTransform.Size = New System.Drawing.Size(56, 425)
Me.TabTransform.TabIndex = 2
Me.TabTransform.Text = "Transform"
'
@@ -1807,7 +1883,7 @@ Partial Class Form1
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(56, 445)
Me.TabTest.Size = New System.Drawing.Size(56, 425)
Me.TabTest.TabIndex = 1
Me.TabTest.Text = "Test"
'
@@ -1940,15 +2016,9 @@ Partial Class Form1
'
Me.ColorDialog1.AnyColor = True
'
'Scene1
'FormTimer
'
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(795, 453)
Me.Scene1.TabIndex = 1
Me.FormTimer.Interval = 50
'
'Form1
'
@@ -2083,7 +2153,7 @@ End Sub
Friend WithEvents btnRevolve As System.Windows.Forms.Button
Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
Friend WithEvents tsStatusGrid As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents btnBottom As System.Windows.Forms.Button
Friend WithEvents btnCPlane As System.Windows.Forms.Button
Friend WithEvents TabCPlane As System.Windows.Forms.TabPage
Friend WithEvents btnCplaneFront As System.Windows.Forms.Button
Friend WithEvents btnCplaneTop As System.Windows.Forms.Button
@@ -2121,5 +2191,9 @@ End Sub
Friend WithEvents btnCPlanePerpCurve As System.Windows.Forms.Button
Friend WithEvents btnOffset As System.Windows.Forms.Button
Friend WithEvents tsStatusSnapPointType As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents btnChangeLayer As System.Windows.Forms.Button
Friend WithEvents btnRectangle2P As System.Windows.Forms.Button
Friend WithEvents InputCombo As System.Windows.Forms.ComboBox
Friend WithEvents FormTimer As System.Windows.Forms.Timer
End Class
Form1.resx
+41 -19
View File
@@ -118,7 +118,7 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>281, 10</value>
<value>243, 14</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnSaveAs.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -314,17 +314,15 @@
qGC5W/vKBFS+LDL0iQx9IkOfyNAfEX4Asj8tHRoshHQAAAAASUVORK5CYII=
</value>
</data>
<data name="btnBottom.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="btnCPlane.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAAd0SU1FB94LCRImG7ghlLIAAAFwSURBVFhHxZYxTgQxDEVzA0rqvQINDSwdFefY
SyC2pEErrkDFYbjUMLbGUWx/m0xWCsWT4mfnO7BiRVmW5V+BciZQRpSbw3N5/Pi8BpdpRUS5vXtBgXtx
uVYg0E+O5hD24a5vhUUtb85o1oJ+a27Giha7nF0QZFF3m4e4OSsE9fptOfsgqGXPw1VRZSkPNqD2giBh
78NVwSJZzv0giHvBcu4F91TBQgKuYX1IlOu8E23QIDazzXXeiSSEyPojPVWwSEKIrD/SUwWLJITI+iM9
VbBIQoisP9JTBYskhMj6Iz1VsMhC1r9t6Y/iMp2IBmn50+W9hh0vKjjl/vwmZ5frBBisy4nT92v5+jlB
trvK0bx49AXlxDZc697lhCySul1uvpprvhPbBT63n/lfywmZpXPHcsKL5lI99ywn2nk5J8sJL+Si0Luc
sHfBZ27xwoaM0rGc8AKF7WX9n8LmRkA5EyhnAuVMoJwJlDOBch5L+QUjK5chq38+mgAAAABJRU5ErkJg
gg==
xAAADsQBlSsOGwAAAAd0SU1FB94MAgogOtUGirMAAAEISURBVFhH7dGxDcIwEAVQt1SU1GyAqFNTMQdz
ISSWYQcqGiSGML6QhIv9zz4n4pAQkZ6QP7H/WXHe+6+CoSUYWoKhljvdvSR+VwJDrbbseDkk/gP89ABt
KScMwMVncDAsEYtjhXICQ43iEIpyAkMtcQhlOYFhjWSIinICw1rDEJXlBIZTTCknMLQEQ0swlLjVdu/C
lqzz5gpzZnQmX+Sw8mbI4sNC+WjN/g9PQ2v67bM25wuJW6533WaZ4ubBqLw9Ow5irHzazcF+Lgk47c0f
bnHLCe/BcgJDovrmmXXp5j0chk3d5rmy5SQN3uUfvXkvDV6b51KVExhagqElGFqCoSUYWoKhHe+exqCj
xX7bJ7sAAAAASUVORK5CYII=
</value>
</data>
<data name="btnIsoNW.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -841,14 +839,14 @@
</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>
<value>357, 13</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAC4
DQAAAk1TRnQBSQFMAgEBDgEAAWgBDAFoAQwBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
DQAAAk1TRnQBSQFMAgEBDgEAARABDQEQAQ0BEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAAUADAAEBAQABCAYAARAYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -910,14 +908,14 @@
</value>
</data>
<metadata name="ImageList2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>496, 12</value>
<value>463, 15</value>
</metadata>
<data name="ImageList2.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADW
CAAAAk1TRnQBSQFMAgEBAgEAAYgBAwGIAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
CAAAAk1TRnQBSQFMAgEBAgEAATABBAEwAQQBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -955,6 +953,16 @@
AwABQAMAARADAAEBAQABAQUAAYAXAAP/AQAE/wQABP8EAAHkASMB/AE/BAAB4AEDAfwBPwQAAWABAwH4
AR8EAAFkAQMB+AEfBAABaAETAfgBHwQAAWgBEwH4AR8EAAFwAQsB8AEPBAABcAELAfABDwQAAXABCwHw
AQ8EAAFwAQsB8AEPBAABYAEDAfABDwQAAWgBEwH4AR8EAAF/A/8EAAF/A/8EAAs=
</value>
</data>
<data name="btnRectangle2P.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAAd0SU1FB94MBAgLAq2bRPYAAADYSURBVFhH5ZRRDsIgEAV7sJ7W03kLBBS7LM9k
LLgmSjJJGdi3+9F2Syl9FSkjkTISKSORcgV57Zny0NjlPSVnKc1q08v14MUQ3eYp75fnsM3NEEMvL6q0
QWf5mQH8GSGvde+AP6Pkdf4rsIX+7B1IjpagkEBytASFBJKjJSgkkBwtQSGB5GgJCgkkR0tQSCA5WoJC
AskZBfyBEGyOP2v0m9Yc/EIJj9qKP2v0m3LZNu+HmML2sfSbcvnfB1j6DhBG0YY4+FjzgpSRSBmJlJFI
GYmUkUgZR9pu9s4+9wcQHh4AAAAASUVORK5CYII=
</value>
</data>
<data name="btnCircleCD.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -1107,6 +1115,17 @@
Y4C55tAaQOosc+gKMMscbgvAjp18d86hEWFGgGQcv0Zr90FTwmiAwjie9KsSkv6/r4SRAJl5PLmx/Kos
tDAYYN9x+C+5Qgu9AY5vX2UOWhgIsM/L23NdgxbGA/BR9faghTxAI/l8LVpoXFAyJcAo5c4rTNETU/TE
FD0xRU9M0RNT9CMsP8YUDae/Iv6fAAAAAElFTkSuQmCC
</value>
</data>
<data name="btnChangeLayer.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAAd0SU1FB94MAw0qJoYbT5YAAAEaSURBVFhHxZS7DcJAEAU3pRsKcBMEtIAoCyGR
UQcBFZCQ4ASJiAoOv+WMzvYzvlujJRgZD9IbfwQSQvgrVHpCpSdUekKlJ1R6QuUUsr8HC/0dMBBT6Nju
vCliJA6oHKMo3kzrEfGtXBS2ySSjOA4QP8lzLA6o7GOKv6kQl8PyCug2kykz4ikV2wZUthTFW3rhiH6m
DSaBKR7feQwGfeyyXn27iM7JR86I450fa7khiPhDFrVuxotIO+oH4hfxeOdt/LM9dQEaN5AZz3sC+pvF
YAmZcRxTr991BOIGrHH9fiCaIQyWwOIx2pL3P4AhC+zOcxkIHWoGS7DGQecEQxbSjVKo9IRKT6j0hEpP
qPSESk+o9IRKT6j0I8gLbICZ6Nn3pGcAAAAASUVORK5CYII=
</value>
</data>
<data name="btnSetCurveTh.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -1321,22 +1340,25 @@
</value>
</data>
<metadata name="ContextMenuTreeView1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>887, 9</value>
<value>867, 14</value>
</metadata>
<metadata name="OpenFileDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>18, 8</value>
</metadata>
<metadata name="SaveFileDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>165, 7</value>
<value>132, 12</value>
</metadata>
<metadata name="ObjTreeTimer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>633, 11</value>
<value>647, 11</value>
</metadata>
<metadata name="ColorDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>764, 9</value>
<value>753, 13</value>
</metadata>
<metadata name="FormTimer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>568, 14</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>42</value>
<value>82</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Form1.vb
+118 -66
View File
@@ -20,22 +20,26 @@ Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
' installo aggiornamento interfaccia
AddHandler System.Windows.Forms.Application.Idle, AddressOf Application_Idle
'Title
' Title
EmitTitle()
'Impostazione path Ini file
' Impostazione path Ini file
m_sIniFile = Application.StartupPath & "\TestEIn.ini"
'Inizializzazione generale di EgtInterface
' Inizializzazione generale di EgtInterface
EgtInit(0, Application.StartupPath & "\TestEngine.log")
'imposto chiave di protezione
' imposto chiave di protezione
Dim sKey As String = String.Empty
GetPrivateProfileString("General", "Key", "", sKey, m_sIniFile)
EgtSetKey(sKey)
'imposto dir font Nfe e font default
' imposto dir font Nfe e font default
Dim sNfeDir As String = String.Empty
GetPrivateProfileString("GeomDB", "NfeFontDir", "", sNfeDir, m_sIniFile)
Dim sDefFont As String = String.Empty
GetPrivateProfileString("GeomDB", "DefaultFont", "", sDefFont, m_sIniFile)
EgtSetFont(sNfeDir, sDefFont)
' imposto direttorio di default per libreria Lua
Dim sLuaLibsDir As String = String.Empty
GetPrivateProfileString("Lua", "LibsDir", "", sLuaLibsDir, m_sIniFile)
EgtSetLuaLibs(sLuaLibsDir)
' imposto colore di default
Dim DefColor As New Color3d(0, 0, 0)
GetPrivateProfileColor("GeomDB", "DefaultColor", DefColor, m_sIniFile)
@@ -71,6 +75,9 @@ Public Class Form1
Scene1.SetViewAttributes(nDriver, b2Buff, nColorBits, nDepthBits)
' inizializzo scena
Scene1.Init()
' imposto visualizzazione riferimento globale
Dim bShowGlobFrame As Boolean = (GetPrivateProfileInt("Scene", "ShowGFrame", 1, m_sIniFile) <> 0)
EgtSetGlobFrameShow(bShowGlobFrame)
' imposto i dati della griglia
m_bShowGrid = (GetPrivateProfileInt("Grid", "ShowGrid", 1, m_sIniFile) <> 0)
m_bShowGridFrame = (GetPrivateProfileInt("Grid", "ShowFrame", 1, m_sIniFile) <> 0)
@@ -103,6 +110,8 @@ Public Class Form1
chkCurveDir.Checked = (nShowCurveDir <> 0)
' ObjTree non selezionato
m_nObjTreeOldId = GDB_ID.NULL
' nascondo input box
ResetInputBox()
' aggiungo voce per about box nel menù di sistema
Dim hSysMenu As IntPtr = GetSystemMenu(Handle, False)
If hSysMenu <> IntPtr.Zero Then
@@ -126,6 +135,16 @@ Public Class Form1
End If
' Impostazioni controller
m_Controller.SetScene(Scene1)
' Apro progetto vuoto
Scene1.NewProject(True)
End Sub
Private Sub Form1_Shown(sender As System.Object, e As EventArgs) Handles MyBase.Shown
FormTimer.Start()
End Sub
Private Sub FormTickEvent(source As Object, e As EventArgs) Handles FormTimer.Tick
FormTimer.Stop()
' Recupero eventuali parametri da linea di comando
Dim bOpen As Boolean = False
For Each s As String In My.Application.CommandLineArgs
@@ -145,9 +164,6 @@ Public Class Form1
Exit For
End If
Next
If Not bOpen Then
Scene1.NewProject(True)
End If
End Sub
Private Sub Form1_FormClosing(sender As System.Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
@@ -165,6 +181,8 @@ Public Class Form1
WritePrivateProfileWinPos("General", "WinPlace", nFlag, Me.Left, Me.Top, Me.Width, Me.Height, m_sIniFile)
' Terminazione generale di EgtInterface
EgtExit()
' Disabilito gestore Idle
RemoveHandler Application.Idle, AddressOf Application_Idle
End Sub
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
@@ -223,21 +241,27 @@ Public Class Form1
tsStatusOutput.Text = sDistance
End Sub
Private Sub OnNewProject(ByVal sender As Object) Handles Scene1.OnNewProject
Private Sub OnNewProject(ByVal sender As Object, ByVal bOk As Boolean) Handles Scene1.OnNewProject
m_Controller.ResetCurrFile()
m_Controller.ExecuteCommand(CMD.RESETCURRPARTLAYER)
m_Controller.ResetModified()
If Not bOk Then
MessageBox.Show("Error on new file", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
Private Sub OnOpeningProject(ByVal sender As Object) Handles Scene1.OnOpeningProject
ClearObjTree()
End Sub
Private Sub OnOpenProject(ByVal sender As Object, ByVal sFile As String) Handles Scene1.OnOpenProject
Private Sub OnOpenProject(ByVal sender As Object, ByVal sFile As String, ByVal bOk As Boolean) Handles Scene1.OnOpenProject
m_Controller.SetCurrFile(sFile)
m_Controller.ExecuteCommand(CMD.RESETCURRPARTLAYER)
m_Controller.ResetModified()
WritePrivateProfileString("General", "LastNgeDir", Path.GetDirectoryName(sFile), m_sIniFile)
If Not bOk Then
MessageBox.Show("Error opening file", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
Private Sub OnSavingProject(ByVal sender As Object, ByVal sFile As String) Handles Scene1.OnSavingProject
@@ -246,26 +270,40 @@ Public Class Form1
WritePrivateProfileString("General", "LastNgeDir", Path.GetDirectoryName(sFile), m_sIniFile)
End Sub
Private Sub OnSavedProject(ByVal sender As Object) Handles Scene1.OnSavedProject
m_Controller.ResetModified()
Private Sub OnSavedProject(ByVal sender As Object, ByVal bOk As Boolean) Handles Scene1.OnSavedProject
If bOk Then
m_Controller.ResetModified()
Else
MessageBox.Show("Error saving file", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
Private Sub OnImportingProject(ByVal sender As Object) Handles Scene1.OnImportingProject
ClearObjTree()
Private Sub OnImportingProject(ByVal sender As Object, ByVal bOkType As Boolean) Handles Scene1.OnImportingProject
If bOkType Then
ClearObjTree()
Else
MessageBox.Show("File type unknown", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
Private Sub OnImportedProject(ByVal sender As Object, ByVal sFile As String) Handles Scene1.OnImportedProject
Private Sub OnImportedProject(ByVal sender As Object, ByVal sFile As String, ByVal bOk As Boolean) Handles Scene1.OnImportedProject
m_Controller.SetCurrFile(sFile)
m_Controller.ExecuteCommand(CMD.RESETCURRPARTLAYER)
m_Controller.SetModified()
WritePrivateProfileString("General", "LastImpDir", Path.GetDirectoryName(sFile), m_sIniFile)
If Not bOk Then
MessageBox.Show("Error importing file", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
Private Sub OnExportingProject(ByVal sender As Object, ByVal sFile As String) Handles Scene1.OnExportingProject
WritePrivateProfileString("General", "LastExpDir", Path.GetDirectoryName(sFile), m_sIniFile)
End Sub
Private Sub OnExportedProject(ByVal sender As Object) Handles Scene1.OnExportedProject
Private Sub OnExportedProject(ByVal sender As Object, ByVal bOk As Boolean) Handles Scene1.OnExportedProject
If Not bOk Then
MessageBox.Show("Error exporting file", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
Private Sub OnExecutingScript(ByVal sender As Object, ByVal sFile As String) Handles Scene1.OnExecutingScript
@@ -273,12 +311,16 @@ Public Class Form1
ClearObjTree()
End Sub
Private Sub OnExecutedScript(ByVal sender As Object) Handles Scene1.OnExecutedScript
Private Sub OnExecutedScript(ByVal sender As Object, ByVal bOk As Boolean, ByVal sError As String) Handles Scene1.OnExecutedScript
m_Controller.SetModified()
If Not bOk Then
MessageBox.Show(sError, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
Private Sub OnPrepareInputBox(ByVal sTitle As String, ByVal sLabel As String, ByRef sCheckLabel As String, ByVal bShowBtn As Boolean) Handles m_Controller.PrepareInputBox
PrepareInputBox(sTitle, sLabel, sCheckLabel, bShowBtn)
Private Sub OnPrepareInputBox(ByVal sTitle As String, ByVal sLabel As String, ByRef sCheckLabel As String,
ByVal bShowCombo As Boolean, ByVal bShowBtn As Boolean) Handles m_Controller.PrepareInputBox
PrepareInputBox(sTitle, sLabel, sCheckLabel, bShowCombo, bShowBtn)
End Sub
Private Sub OnSetInputBoxText(ByVal sText As String) Handles m_Controller.SetInputBoxText
@@ -289,6 +331,10 @@ Public Class Form1
SetInputBoxCheck(bCheck)
End Sub
Private Sub OnAddInputBoxCombo(ByVal sText As String, ByVal bSelected As Boolean) Handles m_Controller.AddInputBoxCombo
AddInputBoxCombo(sText, bSelected)
End Sub
Private Sub OnUpdateUI(ByVal sender As Object, ByVal bReloadUI As Boolean) Handles m_Controller.UpdateUI
' pulisco input e relativi messaggi
ResetInputBox()
@@ -430,8 +476,8 @@ Public Class Form1
Scene1.RightView()
End Sub
Private Sub btnBottom_Click(sender As System.Object, e As System.EventArgs) Handles btnBottom.Click
Scene1.BottomView()
Private Sub btnCPlane_Click(sender As System.Object, e As System.EventArgs) Handles btnCPlane.Click
Scene1.CPlaneView()
End Sub
Private Sub btnIsoSW_Click(sender As System.Object, e As System.EventArgs) Handles btnIsoSW.Click
@@ -451,32 +497,32 @@ Public Class Form1
End Sub
Private Sub btnCplaneTop_Click(sender As System.Object, e As System.EventArgs) Handles btnCplaneTop.Click
m_Controller.SetLastIntegers(GRID_TYPE.TOP, 0)
m_Controller.SetLastInteger(GRID_TYPE.TOP)
m_Controller.ExecuteCommand(CMD.GRID)
End Sub
Private Sub btnCplaneFront_Click(sender As System.Object, e As System.EventArgs) Handles btnCplaneFront.Click
m_Controller.SetLastIntegers(GRID_TYPE.FRONT, 0)
m_Controller.SetLastInteger(GRID_TYPE.FRONT)
m_Controller.ExecuteCommand(CMD.GRID)
End Sub
Private Sub btnCplaneRight_Click(sender As System.Object, e As System.EventArgs) Handles btnCplaneRight.Click
m_Controller.SetLastIntegers(GRID_TYPE.RIGHT, 0)
m_Controller.SetLastInteger(GRID_TYPE.RIGHT)
m_Controller.ExecuteCommand(CMD.GRID)
End Sub
Private Sub btnCplaneBack_Click(sender As System.Object, e As System.EventArgs) Handles btnCplaneBack.Click
m_Controller.SetLastIntegers(GRID_TYPE.BACK, 0)
m_Controller.SetLastInteger(GRID_TYPE.BACK)
m_Controller.ExecuteCommand(CMD.GRID)
End Sub
Private Sub btnCplaneLeft_Click(sender As System.Object, e As System.EventArgs) Handles btnCplaneLeft.Click
m_Controller.SetLastIntegers(GRID_TYPE.LEFT, 0)
m_Controller.SetLastInteger(GRID_TYPE.LEFT)
m_Controller.ExecuteCommand(CMD.GRID)
End Sub
Private Sub btnCplaneBottom_Click(sender As System.Object, e As System.EventArgs) Handles btnCplaneBottom.Click
m_Controller.SetLastIntegers(GRID_TYPE.BOTTOM, 0)
m_Controller.SetLastInteger(GRID_TYPE.BOTTOM)
m_Controller.ExecuteCommand(CMD.GRID)
End Sub
@@ -515,7 +561,7 @@ Public Class Form1
btnCplaneRotate.Enabled = m_bShowGrid
btnCplane3P.Enabled = m_bShowGrid
btnCPlanePerpCurve.Enabled = m_bShowGrid
btnCPlaneObj.Enabled = m_bShowGrid
btnCPlaneObj.Enabled = m_bShowGrid And bSelOk
' Draw
btnPoint.Enabled = bLayerOk
btnLine2P.Enabled = bLayerOk
@@ -525,6 +571,7 @@ Public Class Form1
btnArcCSE.Enabled = bLayerOk
btnArc3P.Enabled = bLayerOk
btnArcPDP.Enabled = bLayerOk
btnRectangle2P.Enabled = bLayerOk
' Construct
btnPlane.Enabled = bLayerOk And bSelOk
btnExtrude.Enabled = bLayerOk And bSelOk
@@ -532,6 +579,7 @@ Public Class Form1
btnRuled.Enabled = bLayerOk And bSelOk
' Edit
btnDelete.Enabled = bSelOk
btnChangeLayer.Enabled = bSelOk
btnChangeColor.Enabled = bSelOk
btnInvertCurve.Enabled = bSelOk
btnExtendCurve.Enabled = bSelOk
@@ -581,6 +629,10 @@ Public Class Form1
m_Controller.ExecuteCommand(CMD.ARCPDP)
End Sub
Private Sub btnRectangle2P_Click(sender As System.Object, e As System.EventArgs) Handles btnRectangle2P.Click
m_Controller.ExecuteCommand(CMD.RECTANGLE2P)
End Sub
Private Sub btnPlane_Click(sender As System.Object, e As System.EventArgs) Handles btnPlane.Click
m_Controller.ExecuteCommand(CMD.PLANE)
End Sub
@@ -602,10 +654,14 @@ Public Class Form1
End Sub
Private Sub btnDelete_Click(sender As System.Object, e As System.EventArgs) Handles btnDelete.Click
m_Controller.SetLastIntegers(GDB_ID.SEL, 0)
m_Controller.SetLastInteger(GDB_ID.SEL)
m_Controller.ExecuteCommand(CMD.DELETE)
End Sub
Private Sub btnChangeLayer_Click(sender As System.Object, e As System.EventArgs) Handles btnChangeLayer.Click
m_Controller.ExecuteCommand(CMD.CHANGELAYER)
End Sub
Private Sub btnChangeColor_Click(sender As System.Object, e As System.EventArgs) Handles btnChangeColor.Click
If (ModifierKeys And Keys.Shift) <> Keys.Shift Then
m_Controller.ExecuteCommand(CMD.CHANGECOLOR)
@@ -753,7 +809,7 @@ Public Class Form1
Private Sub Scene1_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles Scene1.KeyDown
' Con DEL eseguo cancellazione delle entità selezionate
If e.KeyData = Keys.Delete Then
m_Controller.SetLastIntegers(GDB_ID.SEL, 0)
m_Controller.SetLastInteger(GDB_ID.SEL)
m_Controller.ExecuteCommand(CMD.DELETE)
' con SPAZIO ripeto l'ultimo comando
ElseIf e.KeyData = Keys.Space Then
@@ -763,7 +819,8 @@ Public Class Form1
' --------------------- Input Box -------------------------------
Private Sub PrepareInputBox(ByRef sTitle As String, ByRef sLabel As String, ByRef sCheckLabel As String, ByVal bShowBtn As Boolean)
Private Sub PrepareInputBox(ByRef sTitle As String, ByRef sLabel As String, ByRef sCheckLabel As String,
ByVal bShowCombo As Boolean, ByVal bShowBtn As Boolean)
InputBox.Text = sTitle
InputBox.Show()
InputLabel.Text = sLabel
@@ -774,6 +831,10 @@ Public Class Form1
InputCheck.Text = sCheckLabel
InputCheck.Show()
End If
If bShowCombo Then
InputCombo.Items.Clear()
InputCombo.Show()
End If
If bShowBtn Then
btnShow.Show()
End If
@@ -783,6 +844,7 @@ Public Class Form1
Private Sub ResetInputBox()
InputBox.Hide()
InputCheck.Hide()
InputCombo.Hide()
btnShow.Hide()
End Sub
@@ -797,6 +859,14 @@ Public Class Form1
Return True
End Function
Private Function AddInputBoxCombo(ByVal sText As String, ByVal bSelected As Boolean) As Boolean
Dim nId As Integer = InputCombo.Items.Add(sText)
If bSelected Then
InputCombo.SelectedIndex = nId
End If
Return True
End Function
Private Sub InputText_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles InputText.KeyDown
' Con SHIFT aggiorno la grafica con i dati correnti
If (e.KeyData And Keys.Shift) = Keys.Shift Then
@@ -807,10 +877,14 @@ Public Class Form1
End If
End Sub
Private Sub InputCheck_KeyDown(ByVal sender As Object, ByVal e As EventArgs) Handles InputCheck.CheckedChanged
Private Sub InputCheck_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles InputCheck.CheckedChanged
m_Controller.SetLastBoolean(InputCheck.Checked)
End Sub
Private Sub InputCombo_SelectionChanged(ByVal sender As Object, ByVal e As EventArgs) Handles InputCombo.SelectedIndexChanged
m_Controller.SetLastInteger(InputCombo.SelectedIndex)
End Sub
Private Sub btnShow_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnShow.Click
m_Controller.Show(InputText.Text)
End Sub
@@ -949,7 +1023,8 @@ Public Class Form1
Dim nObjs As Integer = EgtGetGroupObjs(nGroupId)
If (nObjs > 20000) Then
CurrNodColl.Add(GDB_ID.NULL.ToString(), "Too many entities")
Dim sText As String = "Too many entities (" + nObjs.ToString() + ")"
CurrNodColl.Add(GDB_ID.NULL.ToString(), sText)
Return
End If
@@ -1033,7 +1108,7 @@ Public Class Form1
Return
End If
' eseguo operazione
m_Controller.SetLastIntegers(nId, 0)
m_Controller.SetLastInteger(nId)
If e.Node.Checked Then
m_Controller.ExecuteCommand(CMD.SHOW)
Else
@@ -1086,31 +1161,8 @@ Public Class Form1
Private Sub ObjTree_MouseDoubleClick(ByVal sender As Object, e As MouseEventArgs) Handles TreeView1.MouseDoubleClick
If m_nObjTreeOldId <> GDB_ID.NULL Then
' se non è un gruppo ne cerco il padre
Dim nId As Integer = m_nObjTreeOldId
While EgtGetType(nId) <> GDB_TY.GROUP
nId = EgtGetParent(nId)
If nId = GDB_ID.NULL Then
Return
End If
End While
' recupero il padre
Dim nIdParent As Integer = EgtGetParent(nId)
If nIdParent = GDB_ID.NULL Then
Return
' se Part
ElseIf nIdParent = GDB_ID.ROOT Then
' cerco il primo Layer del Part
Dim nIdLayer As Integer = EgtGetFirstGroupInGroup(nId)
m_Controller.SetLastIntegers(nId, nIdLayer)
m_Controller.ExecuteCommand(CMD.SETCURRPARTLAYER)
EmitCurrPartLayer()
' se Layer
ElseIf EgtGetParent(nIdParent) = GDB_ID.ROOT Then
m_Controller.SetLastIntegers(nIdParent, nId)
m_Controller.ExecuteCommand(CMD.SETCURRPARTLAYER)
EmitCurrPartLayer()
End If
m_Controller.SetLastInteger(m_nObjTreeOldId)
m_Controller.ExecuteCommand(CMD.SETCURRPARTLAYER)
End If
End Sub
@@ -1179,25 +1231,25 @@ Public Class Form1
Private Sub MenuObjTree_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ContextMenuTreeView1.ItemClicked
If e.ClickedItem.Name = "cmdSelectPartLayObj" Then
m_Controller.SetLastIntegers(m_nObjTreeMenuId, 0)
m_Controller.SetLastInteger(m_nObjTreeMenuId)
m_Controller.ExecuteCommand(CMD.SELECTPARTLAYEROBJ)
ElseIf e.ClickedItem.Name = "cmdDeselectPartLayObj" Then
m_Controller.SetLastIntegers(m_nObjTreeMenuId, 0)
m_Controller.SetLastInteger(m_nObjTreeMenuId)
m_Controller.ExecuteCommand(CMD.DESELECTPARTLAYEROBJ)
ElseIf e.ClickedItem.Name = "cmdSetName" Then
m_Controller.SetLastIntegers(m_nObjTreeMenuId, 0)
m_Controller.SetLastInteger(m_nObjTreeMenuId)
m_Controller.ExecuteCommand(CMD.SETNAME)
ElseIf e.ClickedItem.Name = "cmdSetInfo" Then
m_Controller.SetLastIntegers(m_nObjTreeMenuId, 0)
m_Controller.SetLastInteger(m_nObjTreeMenuId)
m_Controller.ExecuteCommand(CMD.SETINFO)
ElseIf e.ClickedItem.Name = "cmdRelocatePartLayObj" Then
m_Controller.SetLastIntegers(m_nObjTreeMenuId, 0)
m_Controller.SetLastInteger(m_nObjTreeMenuId)
m_Controller.ExecuteCommand(CMD.RELOCATEPARTLAYEROBJ)
ElseIf e.ClickedItem.Name = "cmdCopyPartLayObj" Then
m_Controller.SetLastIntegers(m_nObjTreeMenuId, 0)
m_Controller.SetLastInteger(m_nObjTreeMenuId)
m_Controller.ExecuteCommand(CMD.COPYPARTLAYEROBJ)
ElseIf e.ClickedItem.Name = "cmdDeletePartLayObj" Then
m_Controller.SetLastIntegers(m_nObjTreeMenuId, 0)
m_Controller.SetLastInteger(m_nObjTreeMenuId)
m_Controller.ExecuteCommand(CMD.DELETE)
End If
End Sub
GenInterface.vb
+14 -14
View File
@@ -2,18 +2,18 @@
Imports System.Text
Imports TestEIn.EgtInterface
Public Class GenInterface
Public Module GenInterface
'-------------------------------- IniFile : Get --------------------------------------------------
<DllImport("kernel32.dll", CharSet:=CharSet.Unicode)>
Public Shared Function GetPrivateProfileInt(
Public Function GetPrivateProfileInt(
ByVal lpAppName As String,
ByVal lpKeyName As String,
ByVal nDefault As Integer,
ByVal lpFileName As String) As Integer
End Function
Public Shared Function GetPrivateProfileDouble(
Public Function GetPrivateProfileDouble(
ByVal lpAppName As String,
ByVal lpKeyName As String,
ByVal dDefault As Double,
@@ -24,7 +24,7 @@ Public Shared Function GetPrivateProfileDouble(
End Function
<DllImport("kernel32.dll", CharSet:=CharSet.Unicode)>
Private Shared Function GetPrivateProfileString(
Private Function GetPrivateProfileString(
ByVal lpAppName As String,
ByVal lpKeyName As String,
ByVal lpDefault As String,
@@ -32,7 +32,7 @@ Private Shared Function GetPrivateProfileString(
ByVal nSize As Integer,
ByVal lpFileName As String) As Integer
End Function
Public Shared Function GetPrivateProfileString(
Public Function GetPrivateProfileString(
ByVal lpAppName As String,
ByVal lpKeyName As String,
ByVal lpDefault As String,
@@ -44,7 +44,7 @@ Public Shared Function GetPrivateProfileString(
Return nRet
End Function
Public Shared Function GetPrivateProfileColor(
Public Function GetPrivateProfileColor(
ByVal lpAppName As String,
ByVal lpKeyName As String,
ByRef Col As Color3d,
@@ -64,7 +64,7 @@ Public Shared Function GetPrivateProfileColor(
Return False
End Function
Public Shared Function GetPrivateProfileZoomWin(
Public Function GetPrivateProfileZoomWin(
ByVal lpAppName As String,
ByVal lpKeyName As String,
ByRef bOutline As Boolean,
@@ -84,7 +84,7 @@ Public Shared Function GetPrivateProfileZoomWin(
Return False
End Function
Public Shared Function GetPrivateProfileWinPos(
Public Function GetPrivateProfileWinPos(
ByVal lpAppName As String,
ByVal lpKeyName As String,
ByRef nFlag As Integer,
@@ -110,14 +110,14 @@ End Function
'-------------------------------- IniFile : Write ------------------------------------------------
<DllImport("kernel32.dll", CharSet:=CharSet.Unicode)>
Public Shared Function WritePrivateProfileString(
Public Function WritePrivateProfileString(
ByVal lpAppName As String,
ByVal lpKeyName As String,
ByVal lpString As String,
ByVal lpFileName As String) As Boolean
End Function
Public Shared Function WritePrivateProfileWinPos(
Public Function WritePrivateProfileWinPos(
ByVal lpAppName As String,
ByVal lpKeyName As String,
ByVal nFlag As Integer,
@@ -134,15 +134,15 @@ End Function
'-------------------------------- System Menu ----------------------------------------------------
<DllImport("user32.dll")>
Public Shared Function GetSystemMenu(ByVal hWnd As IntPtr, ByVal bRevert As Boolean) As IntPtr
Public Function GetSystemMenu(ByVal hWnd As IntPtr, ByVal bRevert As Boolean) As IntPtr
End Function
<DllImport("user32.dll", CharSet:=CharSet.Auto)>
Public Shared Function AppendMenu(ByVal hMenu As IntPtr, ByVal uFlags As Integer,
ByVal uIDNewItem As Integer, ByVal lpNewItem As String) As Boolean
Public Function AppendMenu(ByVal hMenu As IntPtr, ByVal uFlags As Integer,
ByVal uIDNewItem As Integer, ByVal lpNewItem As String) As Boolean
End Function
Public Const MF_STRING As UInt32 = &H0
Public Const MF_SEPARATOR As UInt32 = &H800
Public Const WM_SYSCOMMAND As UInt32 = &H112
Public Const IDM_ABOUTBOX As UInt32 = &H10
End Class
End Module
My Project/Application.Designer.vb
Generated
+8 -8
View File
@@ -1,10 +1,10 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Il codice è stato generato da uno strumento.
' Versione runtime:4.0.30319.34014
' This code was generated by a tool.
' Runtime Version:4.0.30319.34014
'
' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se
' il codice viene rigenerato.
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
@@ -14,10 +14,10 @@ Option Explicit On
Namespace My
'NOTA: il file è generato automaticamente e non può essere modificato direttamente. Per effettuare modifiche
' o se vengono rilevati errori di compilazione nel file, andare alla Progettazione progetti
' (aprire le proprietà del progetto o fare doppio clic sul nodo Progetto in
' Esplora soluzioni) ed effettuare le modifiche nella scheda Applicazione.
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' or if you encounter build errors in this file, go to the Project Designer
' (go to Project Properties or double-click the My Project node in
' Solution Explorer), and make changes on the Application tab.
'
Partial Friend Class MyApplication
My Project/AssemblyInfo.vb
+2 -2
View File
@@ -43,5 +43,5 @@ Imports System.Runtime.InteropServices
' utilizzando l'asterisco (*) come descritto di seguito:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.5.11.5")>
<Assembly: AssemblyFileVersion("1.5.11.5")>
<Assembly: AssemblyVersion("1.5.12.1")>
<Assembly: AssemblyFileVersion("1.5.12.1")>
Resources/LookToCplane.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 384 B

Resources/Rectangle2P.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 295 B

Resources/Relocate.png
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 471 B

Scene.vb
+92 -85
View File
@@ -26,7 +26,7 @@ Public Class Scene
SELPOINT
SELPOINTZ
End Enum
Private m_nSnapType As Integer ' tipo di snap in selezione punto
Private m_nSnapType As SP ' tipo di snap in selezione punto
Private m_bAlsoSelDir As Boolean ' abilita anche selezione direzione quando selezione punto
Private m_PrevPoint As Point
Private m_ptPrev As Point3d
@@ -115,7 +115,7 @@ Public Class Scene
m_bGridCursorPos = bGridCursorPos
End Sub
'Mettere EgtInit, EgtSetKey e EgtSetFont nell'evento Load del Form, prima di inizializzare la o le Scene
'Mettere EgtInit, EgtSetKey, EgtSetFont e EgtSetLuaLibsDir nell'evento Load del Form, prima di inizializzare la o le Scene
'Mettere EgtExit nell'evento FormClosing
Public Sub Init()
@@ -183,17 +183,17 @@ Public Class Scene
Public Event OnMouseSelectedDir(ByVal sender As Object, ByVal VtDir As Vector3d)
Public Event OnMouseMoveSelPoint(ByVal sender As Object, ByVal PtP As Point3d)
Public Event OnChangedSnapPointType(ByVal sender As Object, ByVal nSpType As SP)
Public Event OnNewProject(ByVal sender As Object)
Public Event OnNewProject(ByVal sender As Object, ByVal bOk As Boolean)
Public Event OnOpeningProject(ByVal sender As Object)
Public Event OnOpenProject(ByVal sender As Object, ByVal sFile As String)
Public Event OnOpenProject(ByVal sender As Object, ByVal sFile As String, ByVal bOk As Boolean)
Public Event OnSavingProject(ByVal sender As Object, ByVal sFile As String)
Public Event OnSavedProject(ByVal sender As Object)
Public Event OnImportingProject(ByVal sender As Object)
Public Event OnImportedProject(ByVal sender As Object, ByVal sFile As String)
Public Event OnSavedProject(ByVal sender As Object, ByVal bOk As Boolean)
Public Event OnImportingProject(ByVal sender As Object, ByVal bOkType As Boolean)
Public Event OnImportedProject(ByVal sender As Object, ByVal sFile As String, ByVal bOk As Boolean)
Public Event OnExportingProject(ByVal sender As Object, ByVal sFile As String)
Public Event OnExportedProject(ByVal sender As Object)
Public Event OnExportedProject(ByVal sender As Object, ByVal bOk As Boolean)
Public Event OnExecutingScript(ByVal sender As Object, ByVal sFile As String)
Public Event OnExecutedScript(ByVal sender As Object)
Public Event OnExecutedScript(ByVal sender As Object, ByVal bOk As Boolean, ByVal sError As String)
'---- Mouse -----------
Protected Overrides Sub OnMouseEnter(e As System.EventArgs)
@@ -522,45 +522,69 @@ Public Class Scene
Private Sub ShowCursorPos(ByVal WinXY As Point)
Dim sCursorPos As New System.Text.StringBuilder
Dim ptWorld As Point3d
' se coord. griglia e non snap a punto in Z
If (m_bGridCursorPos And m_nStatus <> ST.SELPOINTZ) Then
' calcolo lo snap da utilizzare
Dim nSnap As SP = SP.PT_SKETCH
If m_nStatus = ST.SELPOINT And m_nSnapType = SP.PT_GRID Then
nSnap = SP.PT_GRID
End If
' se riesco a ricavare un punto 3d snap
Dim ptSnap As Point3d
If EgtGetGraphicSnapPoint(nSnap, WinXY, DIM_SEL, DIM_SEL, ptSnap) Then
' porto nel riferimento griglia
Dim frGrid As New Frame3d
EgtGetGridFrame(frGrid)
ptSnap.ToLoc(frGrid)
' costruisco la stringa
Dim sCursorPos As New System.Text.StringBuilder
sCursorPos.Append("X=")
sCursorPos.Append(ptSnap.x.ToString("F4", CultureInfo.InvariantCulture))
sCursorPos.Append(" Y=")
sCursorPos.Append(ptSnap.y.ToString("F4", CultureInfo.InvariantCulture))
sCursorPos.Append(" Z=")
sCursorPos.Append(ptSnap.z.ToString("F4", CultureInfo.InvariantCulture))
' visualizzazione stringa
RaiseEvent OnCursorPos(Me, sCursorPos.ToString)
Return
End If
End If
' se coord. griglia e non snap a punto in Z e riesco a ricavare un punto 3d snap
If (m_bGridCursorPos And m_nStatus <> ST.SELPOINTZ) And
EgtGetGraphicSnapPoint(IIf(m_nSnapType = SP.PT_GRID, SP.PT_GRID, SP.PT_SKETCH),
WinXY, DIM_SEL, DIM_SEL, ptWorld) Then
If m_bGridCursorPos Then
Dim frGrid As New Frame3d
EgtGetGridFrame(frGrid)
ptWorld.ToLoc(frGrid)
End If
sCursorPos.Append("X=")
sCursorPos.Append(ptWorld.x.ToString("F4", CultureInfo.InvariantCulture))
sCursorPos.Append(" Y=")
sCursorPos.Append(ptWorld.y.ToString("F4", CultureInfo.InvariantCulture))
sCursorPos.Append(" Z=")
sCursorPos.Append(ptWorld.z.ToString("F4", CultureInfo.InvariantCulture))
' se snap a punto in Z e riesco a ricavare un punto 3d snap
ElseIf m_nStatus = ST.SELPOINTZ And
EgtGetGridSnapPointZ((m_nSnapType = SP.PT_SKETCH), WinXY, m_ptGrid, ptWorld) Then
If m_bGridCursorPos Then
Dim frGrid As New Frame3d
EgtGetGridFrame(frGrid)
ptWorld.ToLoc(frGrid)
If m_nStatus = ST.SELPOINTZ Then
' se riesco a ricavare un punto Z snap
Dim ptSnap As Point3d
If EgtGetGridSnapPointZ((m_nSnapType = SP.PT_SKETCH), WinXY, m_ptGrid, ptSnap) Then
' se richiesto, porto nel riferimento griglia
If m_bGridCursorPos Then
Dim frGrid As New Frame3d
EgtGetGridFrame(frGrid)
ptSnap.ToLoc(frGrid)
End If
' costruisco la stringa
Dim sCursorPos As New System.Text.StringBuilder
sCursorPos.Append("X=")
sCursorPos.Append(ptSnap.x.ToString("F4", CultureInfo.InvariantCulture))
sCursorPos.Append(" Y=")
sCursorPos.Append(ptSnap.y.ToString("F4", CultureInfo.InvariantCulture))
sCursorPos.Append(" Z=")
sCursorPos.Append(ptSnap.z.ToString("F4", CultureInfo.InvariantCulture))
' visualizzazione stringa
RaiseEvent OnCursorPos(Me, sCursorPos.ToString)
Return
End If
sCursorPos.Append("X=")
sCursorPos.Append(ptWorld.x.ToString("F4", CultureInfo.InvariantCulture))
sCursorPos.Append(" Y=")
sCursorPos.Append(ptWorld.y.ToString("F4", CultureInfo.InvariantCulture))
sCursorPos.Append(" Z=")
sCursorPos.Append(ptWorld.z.ToString("F4", CultureInfo.InvariantCulture))
' altrimenti ricavo il punto 3d da proiezione inversa
Else
End If
' in tutti gli altri casi
If True Then
' ricavo il punto 3d da proiezione inversa
Dim ptWorld As Point3d
EgtUnProjectPoint(WinXY, ptWorld)
'ricavo direzione di vista
Dim nDir As Integer
EgtGetCameraDir(nDir)
'costruisco stringa con dati
Dim sCursorPos As New System.Text.StringBuilder
Select Case nDir
Case VT.TOP, VT.BOTTOM
sCursorPos.Append("X=")
@@ -580,9 +604,9 @@ Public Class Scene
Case Else
sCursorPos.Append(" ")
End Select
' lancio l'evento per visualizzare la stringa
RaiseEvent OnCursorPos(Me, sCursorPos.ToString)
End If
' lancio l'evento per visualizzare la stringa
RaiseEvent OnCursorPos(Me, sCursorPos.ToString)
End Sub
@@ -832,6 +856,8 @@ Public Class Scene
EraseDragGroup()
EgtResetGeoLine(False)
EgtResetWinRect(False)
' reset entità non selezionabili
EgtUnselectableClearAll()
' imposto lo stato
m_nStatus = ST.NULL
m_nOldStatus = ST.NULL
@@ -929,18 +955,15 @@ Public Class Scene
'---- Main Buttons ----
Public Function NewProject(Optional ByVal bCreatePart As Boolean = False) As Boolean
Dim bOk As Boolean = EgtNewFile()
If bCreatePart Then
If bOk And bCreatePart Then
' inserisco un nuovo gruppo (piece) sotto la radice
Dim nIdNewPart As Integer = EgtCreateGroup(GDB_ID.ROOT)
' inserisco un nuovo gruppo (layer) sotto quello appena creato
Dim nIdNewLayer As Integer = EgtCreateGroup(nIdNewPart)
End If
EgtZoom(ZM.ALL)
If bOk Then
RaiseEvent OnNewProject(Me)
Else
MessageBox.Show("Error on new file", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
' Gestione risultato
RaiseEvent OnNewProject(Me, bOk)
Return bOk
End Function
@@ -968,11 +991,7 @@ Public Class Scene
EgtZoom(ZM.ALL)
Cursor = Cursors.Default
'Gestione risultato
If bOk Then
RaiseEvent OnOpenProject(Me, sFile)
Else
MessageBox.Show("Error opening file", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
RaiseEvent OnOpenProject(Me, sFile, bOk)
Return bOk
End Function
@@ -987,11 +1006,7 @@ Public Class Scene
Dim bOk As Boolean = EgtSaveFile(sFile, NGE.CMPTEXT)
Cursor = Cursors.Default
'Gestione risultato
If bOk Then
RaiseEvent OnSavedProject(Me)
Else
MessageBox.Show("Error saving file", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
RaiseEvent OnSavedProject(Me, bOk)
Return bOk
End If
End Function
@@ -1015,11 +1030,7 @@ Public Class Scene
Dim bOk As Boolean = EgtSaveFile(SaveFileDialog.FileName, NGE.CMPTEXT)
Cursor = Cursors.Default
'Gestione risultato
If bOk Then
RaiseEvent OnSavedProject(Me)
Else
MessageBox.Show("Error saving file", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
RaiseEvent OnSavedProject(Me, bOk)
Return bOk
End Function
@@ -1042,12 +1053,12 @@ Public Class Scene
End If
'Riconoscimento tipo file
Dim nFileType As Integer = EgtGetFileType(sFile)
If nFileType <> FT.DXF And nFileType <> FT.STL And nFileType <> FT.CNC Then
MessageBox.Show("File type unknown", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Dim bOkType = (nFileType = FT.DXF Or nFileType = FT.STL Or nFileType = FT.CNC)
'Prima del caricamento
RaiseEvent OnImportingProject(Me, bOkType)
If Not bOkType Then
Return False
End If
'Prima del caricamento
RaiseEvent OnImportingProject(Me)
'Pulizia GeomDB
Cursor = Cursors.WaitCursor
Dim bOk As Boolean = EgtNewFile()
@@ -1062,11 +1073,7 @@ Public Class Scene
EgtZoom(ZM.ALL)
Cursor = Cursors.Default
'Gestione risultato
If bOk Then
RaiseEvent OnImportedProject(Me, sFile)
Else
MessageBox.Show("Error importing file", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
RaiseEvent OnImportedProject(Me, sFile, bOk)
Return bOk
End Function
@@ -1100,11 +1107,7 @@ Public Class Scene
End If
Cursor = Cursors.Default
'Gestione risultato
If bOk Then
RaiseEvent OnExportedProject(Me)
Else
MessageBox.Show("Error exporting file", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
RaiseEvent OnExportedProject(Me, bOk)
Return bOk
End Function
@@ -1143,15 +1146,15 @@ Public Class Scene
EgtZoom(ZM.ALL)
Cursor = Cursors.Default
'Gestione risultato
If bOk Then
RaiseEvent OnExecutedScript(Me)
ElseIf (sExt = ".LUA") Then
Dim sError As String = String.Empty
EgtLuaGetLastError(sError)
MessageBox.Show(sError, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
MessageBox.Show("Error executing file", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Dim sError As String = String.Empty
If Not bOk Then
If (sExt = ".LUA") Then
EgtLuaGetLastError(sError)
Else
sError = "Error executing script"
End If
End If
RaiseEvent OnExecutedScript(Me, bOk, sError)
Return bOk
End Function
@@ -1222,4 +1225,8 @@ Public Class Scene
EgtSetView(VT.ISO_NW)
End Sub
Public Sub CPlaneView()
EgtSetView(VT.CPLANE)
End Sub
End Class
TestEIn.vbproj
+26 -8
View File
@@ -40,7 +40,9 @@
<OutputPath>bin\Debug32\</OutputPath>
<DocumentationFile>
</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</NoWarn>
<WarningsAsErrors>
</WarningsAsErrors>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
<PlatformTarget>x86</PlatformTarget>
@@ -51,8 +53,11 @@
<OutputPath>bin\Release32\</OutputPath>
<DocumentationFile>
</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<RemoveIntegerChecks>true</RemoveIntegerChecks>
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</NoWarn>
<RemoveIntegerChecks>false</RemoveIntegerChecks>
<DebugSymbols>false</DebugSymbols>
<WarningsAsErrors>
</WarningsAsErrors>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
@@ -73,11 +78,13 @@
<OutputPath>bin\Debug64\</OutputPath>
<DocumentationFile>
</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</NoWarn>
<DebugType>full</DebugType>
<PlatformTarget>x64</PlatformTarget>
<CodeAnalysisIgnoreBuiltInRuleSets>false</CodeAnalysisIgnoreBuiltInRuleSets>
<CodeAnalysisIgnoreBuiltInRules>false</CodeAnalysisIgnoreBuiltInRules>
<WarningsAsErrors>
</WarningsAsErrors>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
<DefineTrace>true</DefineTrace>
@@ -85,12 +92,14 @@
<DocumentationFile>
</DocumentationFile>
<Optimize>true</Optimize>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</NoWarn>
<DebugType>None</DebugType>
<PlatformTarget>x64</PlatformTarget>
<CodeAnalysisIgnoreBuiltInRuleSets>false</CodeAnalysisIgnoreBuiltInRuleSets>
<CodeAnalysisIgnoreBuiltInRules>false</CodeAnalysisIgnoreBuiltInRules>
<RemoveIntegerChecks>true</RemoveIntegerChecks>
<WarningsAsErrors>
</WarningsAsErrors>
</PropertyGroup>
<PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
@@ -103,21 +112,25 @@
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</NoWarn>
<DebugType>full</DebugType>
<PlatformTarget>AnyCPU</PlatformTarget>
<CodeAnalysisIgnoreBuiltInRuleSets>false</CodeAnalysisIgnoreBuiltInRuleSets>
<WarningsAsErrors>
</WarningsAsErrors>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|AnyCPU'">
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Release\</OutputPath>
<Optimize>true</Optimize>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</NoWarn>
<DebugType>None</DebugType>
<PlatformTarget>AnyCPU</PlatformTarget>
<CodeAnalysisIgnoreBuiltInRuleSets>false</CodeAnalysisIgnoreBuiltInRuleSets>
<CodeAnalysisIgnoreBuiltInRules>false</CodeAnalysisIgnoreBuiltInRules>
<CodeAnalysisFailOnMissingRules>false</CodeAnalysisFailOnMissingRules>
<WarningsAsErrors>
</WarningsAsErrors>
</PropertyGroup>
<PropertyGroup>
<ApplicationIcon>Resources\TestEIn.ico</ApplicationIcon>
@@ -227,7 +240,7 @@
<ItemGroup>
<BootstrapperPackage Include=".NETFramework,Version=v4.0,Profile=Client">
<Visible>False</Visible>
<ProductName>Microsoft .NET Framework 4 Client Profile %28x86 e x64%29</ProductName>
<ProductName>Microsoft .NET Framework 4 Client Profile %28x86 and x64%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
@@ -379,6 +392,11 @@
<ItemGroup>
<EmbeddedResource Include="Resources\SelPoint.cur" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\LookToCplane.png" />
<None Include="Resources\Rectangle2P.png" />
<None Include="Resources\Relocate.png" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<PropertyGroup>
<PostBuildEvent>IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\TestEIn\TestEInR32.exe