diff --git a/Controller.vb b/Controller.vb index 946960c..49933e0 100644 --- a/Controller.vb +++ b/Controller.vb @@ -97,6 +97,7 @@ Public Class Controller RESETCOLOR CHANGEALPHA INVERTCURVE + CHANGESTARTCURVE TRIMEXTENDCURVE BREAKCURVE SPLITCURVE @@ -952,6 +953,9 @@ Public Class Controller ' Separate Curve Case CMD.EXPLODECURVE Return ProcessExplodeCurve() + ' Change Start Closed Curve + Case CMD.CHANGESTARTCURVE + Return ProcessChangeStartCurve() ' Set Curve Thickness Case CMD.SETCURVETHICKNESS Return ProcessSetCurveThickness() @@ -3597,7 +3601,7 @@ Public Class Controller m_Scene.ResetStatus() ' aggiorno stato m_nStep = 0 - RaiseEvent UpdateUI(Me, False) + RaiseEvent UpdateUI(Me, True) Case Else m_nStep = 0 Return False @@ -3627,7 +3631,7 @@ Public Class Controller m_Scene.ResetStatus() ' aggiorno stato m_nStep = 0 - RaiseEvent UpdateUI(Me, False) + RaiseEvent UpdateUI(Me, True) Case Else m_nStep = 0 Return False @@ -3701,6 +3705,34 @@ Public Class Controller Return True End Function + Private Function ProcessChangeStartCurve() As Boolean + Select Case m_nStep + Case 0 + m_Scene.SetStatusSelPoint() + ' imposto stato a punto per Change Start Curve + m_nStep = 1 + ' abilito dialogo + RaiseEvent PrepareInputBox("CHANGE START", "Insert Point on Curve", "", False, False) + m_nInpType = IBT.TY_POINT3D + Case 1 + ' eseguo cambio inizio + Dim nId As Integer = EgtGetLastSelectedObj() + EnableCommandLog() + EgtChangeClosedCurveStartPoint(nId, m_ptLast.Loc(GDB_ID.GRID), REF_TY.GRID) + DisableCommandLog() + ' reset stato scena + EgtDeselectObj(nId) + m_Scene.ResetStatus() + ' aggiorno stato + m_nStep = 0 + RaiseEvent UpdateUI(Me, False) + Case Else + m_nStep = 0 + Return False + End Select + Return True + End Function + Private Function ProcessSetCurveThickness() As Boolean Select Case m_nStep Case 0 diff --git a/EgtInterface.vb b/EgtInterface.vb index 09f7bbc..62546f6 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -1099,6 +1099,10 @@ End Function Public Function EgtInvertCurve(ByVal nId As Integer) As Boolean End Function + +Public Function EgtChangeClosedCurveStartPoint(ByVal nId As Integer, ByRef PtStart As Point3d, Optional ByVal nRefType As REF_TY = REF_TY.LOC) As Boolean +End Function + Public Function EgtModifyCurveStartPoint(ByVal nId As Integer, ByRef PtStart As Point3d, Optional ByVal nRefType As REF_TY = REF_TY.LOC) As Boolean End Function diff --git a/Form1.Designer.vb b/Form1.Designer.vb index 558f949..2dde8a1 100644 --- a/Form1.Designer.vb +++ b/Form1.Designer.vb @@ -116,6 +116,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.btnChangeStartCurve = New System.Windows.Forms.Button() Me.btnChangeLayer = New System.Windows.Forms.Button() Me.btnSetCurveTh = New System.Windows.Forms.Button() Me.btnExtendCurve = New System.Windows.Forms.Button() @@ -1690,6 +1691,7 @@ Partial Class Form1 'TabEdit ' Me.TabEdit.BackColor = System.Drawing.SystemColors.Control + Me.TabEdit.Controls.Add(Me.btnChangeStartCurve) Me.TabEdit.Controls.Add(Me.btnChangeLayer) Me.TabEdit.Controls.Add(Me.btnSetCurveTh) Me.TabEdit.Controls.Add(Me.btnExtendCurve) @@ -1705,6 +1707,23 @@ Partial Class Form1 Me.TabEdit.TabIndex = 3 Me.TabEdit.Text = "Edit" ' + 'btnChangeStartCurve + ' + Me.btnChangeStartCurve.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control + Me.btnChangeStartCurve.FlatAppearance.BorderSize = 0 + Me.btnChangeStartCurve.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control + Me.btnChangeStartCurve.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption + Me.btnChangeStartCurve.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnChangeStartCurve.Image = CType(resources.GetObject("btnChangeStartCurve.Image"), System.Drawing.Image) + Me.btnChangeStartCurve.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnChangeStartCurve.Location = New System.Drawing.Point(3, 384) + Me.btnChangeStartCurve.Name = "btnChangeStartCurve" + Me.btnChangeStartCurve.Size = New System.Drawing.Size(56, 48) + Me.btnChangeStartCurve.TabIndex = 41 + Me.btnChangeStartCurve.Text = "Start" + Me.btnChangeStartCurve.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnChangeStartCurve.UseVisualStyleBackColor = False + ' 'btnChangeLayer ' Me.btnChangeLayer.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control @@ -1732,7 +1751,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, 384) + Me.btnSetCurveTh.Location = New System.Drawing.Point(0, 432) Me.btnSetCurveTh.Name = "btnSetCurveTh" Me.btnSetCurveTh.Size = New System.Drawing.Size(56, 48) Me.btnSetCurveTh.TabIndex = 40 @@ -2537,5 +2556,6 @@ End Sub Friend WithEvents MruSFile8 As System.Windows.Forms.ToolStripMenuItem Friend WithEvents btnMergeSurf As System.Windows.Forms.Button Friend WithEvents btnInvertSurf As System.Windows.Forms.Button + Friend WithEvents btnChangeStartCurve As System.Windows.Forms.Button End Class diff --git a/Form1.resx b/Form1.resx index de248a9..729e4ab 100644 --- a/Form1.resx +++ b/Form1.resx @@ -882,66 +882,66 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 - ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACw - DQAAAk1TRnQBSQFMAgEBDgEABRABAAEQAQAE/wEJAQAI/wFCAU0BNgEEBgABNgEEAgABKAMAAUADAAFA - AwABAQEAAQgGAAEQGAABgAIAAYADAAKAAQABgAMAAYABAAGAAQACgAIAA8ABAAHAAdwBwAEAAfABygGm - AQABMwUAATMBAAEzAQABMwEAAjMCAAMWAQADHAEAAyIBAAMpAQADVQEAA00BAANCAQADOQEAAYABfAH/ - AQACUAH/AQABkwEAAdYBAAH/AewBzAEAAcYB1gHvAQAB1gLnAQABkAGpAa0CAAH/ATMDAAFmAwABmQMA - AcwCAAEzAwACMwIAATMBZgIAATMBmQIAATMBzAIAATMB/wIAAWYDAAFmATMCAAJmAgABZgGZAgABZgHM - AgABZgH/AgABmQMAAZkBMwIAAZkBZgIAApkCAAGZAcwCAAGZAf8CAAHMAwABzAEzAgABzAFmAgABzAGZ - AgACzAIAAcwB/wIAAf8BZgIAAf8BmQIAAf8BzAEAATMB/wIAAf8BAAEzAQABMwEAAWYBAAEzAQABmQEA - ATMBAAHMAQABMwEAAf8BAAH/ATMCAAMzAQACMwFmAQACMwGZAQACMwHMAQACMwH/AQABMwFmAgABMwFm - ATMBAAEzAmYBAAEzAWYBmQEAATMBZgHMAQABMwFmAf8BAAEzAZkCAAEzAZkBMwEAATMBmQFmAQABMwKZ - AQABMwGZAcwBAAEzAZkB/wEAATMBzAIAATMBzAEzAQABMwHMAWYBAAEzAcwBmQEAATMCzAEAATMBzAH/ - AQABMwH/ATMBAAEzAf8BZgEAATMB/wGZAQABMwH/AcwBAAEzAv8BAAFmAwABZgEAATMBAAFmAQABZgEA - AWYBAAGZAQABZgEAAcwBAAFmAQAB/wEAAWYBMwIAAWYCMwEAAWYBMwFmAQABZgEzAZkBAAFmATMBzAEA - AWYBMwH/AQACZgIAAmYBMwEAA2YBAAJmAZkBAAJmAcwBAAFmAZkCAAFmAZkBMwEAAWYBmQFmAQABZgKZ - AQABZgGZAcwBAAFmAZkB/wEAAWYBzAIAAWYBzAEzAQABZgHMAZkBAAFmAswBAAFmAcwB/wEAAWYB/wIA - AWYB/wEzAQABZgH/AZkBAAFmAf8BzAEAAcwBAAH/AQAB/wEAAcwBAAKZAgABmQEzAZkBAAGZAQABmQEA - AZkBAAHMAQABmQMAAZkCMwEAAZkBAAFmAQABmQEzAcwBAAGZAQAB/wEAAZkBZgIAAZkBZgEzAQABmQEz - AWYBAAGZAWYBmQEAAZkBZgHMAQABmQEzAf8BAAKZATMBAAKZAWYBAAOZAQACmQHMAQACmQH/AQABmQHM - AgABmQHMATMBAAFmAcwBZgEAAZkBzAGZAQABmQLMAQABmQHMAf8BAAGZAf8CAAGZAf8BMwEAAZkBzAFm - AQABmQH/AZkBAAGZAf8BzAEAAZkC/wEAAcwDAAGZAQABMwEAAcwBAAFmAQABzAEAAZkBAAHMAQABzAEA - AZkBMwIAAcwCMwEAAcwBMwFmAQABzAEzAZkBAAHMATMBzAEAAcwBMwH/AQABzAFmAgABzAFmATMBAAGZ - AmYBAAHMAWYBmQEAAcwBZgHMAQABmQFmAf8BAAHMAZkCAAHMAZkBMwEAAcwBmQFmAQABzAKZAQABzAGZ - AcwBAAHMAZkB/wEAAswCAALMATMBAALMAWYBAALMAZkBAAPMAQACzAH/AQABzAH/AgABzAH/ATMBAAGZ - Af8BZgEAAcwB/wGZAQABzAH/AcwBAAHMAv8BAAHMAQABMwEAAf8BAAFmAQAB/wEAAZkBAAHMATMCAAH/ - AjMBAAH/ATMBZgEAAf8BMwGZAQAB/wEzAcwBAAH/ATMB/wEAAf8BZgIAAf8BZgEzAQABzAJmAQAB/wFm - AZkBAAH/AWYBzAEAAcwBZgH/AQAB/wGZAgAB/wGZATMBAAH/AZkBZgEAAf8CmQEAAf8BmQHMAQAB/wGZ - Af8BAAH/AcwCAAH/AcwBMwEAAf8BzAFmAQAB/wHMAZkBAAH/AswBAAH/AcwB/wEAAv8BMwEAAcwB/wFm - AQAC/wGZAQAC/wHMAQACZgH/AQABZgH/AWYBAAFmAv8BAAH/AmYBAAH/AWYB/wEAAv8BZgEAASEBAAGl - AQADXwEAA3cBAAOGAQADlgEAA8sBAAOyAQAD1wEAA90BAAPjAQAD6gEAA/EBAAP4AQAB8AH7Af8BAAGk - AqABAAOAAwAB/wIAAf8DAAL/AQAB/wMAAf8BAAH/AQAC/wIAA/9DAAv8NQAC/AcAAvwHAAf8JgAB/AIA - AfwFAAH8AQAB/AkAA/woAAH8AwAB/AMAAfwCAAH8CQAD/CgAAfwEAAH8AQAB/AMAAfwJAAP8KAAB/AQA - AvwEAAH8CQAD/CcAAfwBAAT8AQAC/AQAAfwIAAP8JwAC/AUAAfwBAAH8AwAB/AgAA/woAAH8BQAB/AIA - AfwCAAH8CAAD/CkAAfwDAAH8BAAB/AEAAfwIAAP8KgAC/AEAAfwFAAL8BAAB/AMAA/wDAAH8KAAC/AMA - BPwEAAH8AwAD/AMAAfwpAAT8CAAL/PUAAvwjAAb8DwAC/AQAAvwjAAf8DQAD/AQAAvwNAAL8GQAC/AwA - A/wFAAL8DQAC/BoAAvwKAAP8BgAD/AwAAvwFAAX8EAAC/AkAA/wIAAL8DAAC/AQAB/wDAAL8CgAC/AgA - A/wJAAP8CwAD/AIAA/wDAAL8AwAC/AoAAvwHAAP8CwAD/AsABvwFAAL8AgAC/AoAAvwGAAP8DAAD/AwA - A/wHAAL8AgAC/AoAAvwFAAP8DgAE/BQAAvwCAAL8CgAC/AQAA/wQAAX8EgAC/AIAAvwKAAL8AwAD/BMA - B/wSAAP8CAAD/AMAAvwWAAX8EwAM/DUACfyAAAH5PwAC+TcACvkCAAjZCgAC/CAACvkKAAHZCQAD/B4A - AvoGAAL5DAAB2QkAA/wQAAL8CQAC/AP6BQAB+QQACNkCAAHZCQAD/A4ABPwIAAL8AQAD+goACNkCAAHZ - CQAD/AIAAvwIAAb8BwAC/AIAA/oKAAjZAgAB2QkAA/wBAAL8CAAG/AcAAvwDAAP6AQAB+ggACNkCAAHZ - CQAF/AkABPwIAAL8BAAE+gkACNkMAAT8CgAC/AkAAvwFAAP6CgAI2QkABvwVAAL8BAAE+gsACNkIAAb8 - EwAG/DsABPw9AAL8jgAD+QP6A/sD/DQAA/kD+gP7A/wXAAT8CAAJrAgAA/kD+gP7A/wJAAL5CwAE/AIA - AvkFAAmsAYUHAAP5A/oD+wP8CQAC+QoABPwBAAP5BgAJrAKFBgAD+QP6A/sD/BYAAvwBAAL5AwACBAMA - CawDhQUAA/kD+gP7A/wJAAL5DAAC+QIAA/oCBAMACawEhQQAA/kD+gP7A/wJAAL5CwAC+QEABPoBAAIE - BAAI2QWFAwAD+QP6A/sD/AoAAvkIAAP5BPoDAAIEBQAI2QWFAgAD+QP6A/sD/AsAAvkGAAL5AgAC+gUA - AgQGAAjZBIUCAAP5A/oD+wP8BwAC+QIAAvkJAAL6AgADBwoACNkDhQIAA/kD+gP7A/wHAAL5AgAC+QkA - AvoCAAMHCwAI2QKFAgAD+QP6A/sD/AgABPkLAAH6EQAI2QGFAgAD+QP6A/sD/DQAA/kD+gP7A/xyAAFC - AU0BPgcAAT4DAAEoAwABQAMAAUADAAEBAQABAQYAAQIWAAP/AQAE/wQAAcABBwL/BAABzwHnAfABHwQA - AbcB1wH8AX8EAAG7AbcB/AF/BAABvQF3AfwBfwQAAbwB9wH8AX8EAAFCAXsB/AF/BAABPgG7AfwBfwQA - Ab4B2wH8AX8EAAHdAesB/AF/BAAB5QHzAdwBdwQAAfkBwwHcAXcEAAH8AT8BwAEHBAAE/wQABP8EAAr/ - Ac8D/wH+AQcB/wHzAc8D/wH+AQMB/wHjAc8B/wGfAv8B8wH/AccBzwH/AZ8C/wH5Af8BjwHHAf8BnwEH - Af8B+QH/AR8B5wH/AZ4BAwGfAfkB/gE/AeMB/wGMAXMBnwH5AfwBfwHxAf8BwAH5AZ8B+QH4Af8B8QH/ - AeMB+QGfAfkB8QH/AfgBfwH/AfkBnwH5AeMB/wH8AR8B/wH5AZ8B+QHHAv8BAQL/AY8B8QHPAv8BwQL/ - AcABAwb/AeABDw//AfcG/wHPAfMG/wGAAQEBgAF/AecD/wGAAQEB/wG/AeMD/wHDAfMB/wHfAfEB/wH+ - AX8BwQH3AYABbwH4Af8B/AE/AcgB/wHAATcB/AFnAfgBHwHMAX8B4AEbAf4BJwH4AR8BzgEvAfABDQH/ - AQcB/AE/Ac8BDwH4AQcB/wGHAf4BfwHPAY8B/AEDAf4BBwL/Ac8BDwH+AQEB/gEHAv8BAwf/AYcH/wHP - Ef8BwAEDAv8B+AEfAv8BwAEDAv8B4AFnAYABPwHAAQMB/gF/AdABywGAAR8BwAEDAf4BfwGhAR0BgAEP - AcABAwL/AbIBcQGAAQcBwAEDAf4BfwF5AYIBgAEDAcABAwH+AX8BcgESAcABAQHAAQMB/wE/AUABcgHg - AQABwAEDAf8BnwEZARIB8AEAAcABAwH5AZ8BsgENAfgBAAHAAQMB+QGfAbIBDQH8AQABwAEDAfwBPwHb - ARsB/gEAAcABAwL/AucC/wHAAQMC/wH4AR8K/ws= + ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAC2 + DQAAAk1TRnQBSQFMAgEBDgEAATABEAEwAhABAAEQAQAE/wEJAQAI/wFCAU0BNgEEBgABNgEEAgABKAMA + AUADAAFAAwABAQEAAQgGAAEQGAABgAIAAYADAAKAAQABgAMAAYABAAGAAQACgAIAA8ABAAHAAdwBwAEA + AfABygGmAQABMwUAATMBAAEzAQABMwEAAjMCAAMWAQADHAEAAyIBAAMpAQADVQEAA00BAANCAQADOQEA + AYABfAH/AQACUAH/AQABkwEAAdYBAAH/AewBzAEAAcYB1gHvAQAB1gLnAQABkAGpAa0CAAH/ATMDAAFm + AwABmQMAAcwCAAEzAwACMwIAATMBZgIAATMBmQIAATMBzAIAATMB/wIAAWYDAAFmATMCAAJmAgABZgGZ + AgABZgHMAgABZgH/AgABmQMAAZkBMwIAAZkBZgIAApkCAAGZAcwCAAGZAf8CAAHMAwABzAEzAgABzAFm + AgABzAGZAgACzAIAAcwB/wIAAf8BZgIAAf8BmQIAAf8BzAEAATMB/wIAAf8BAAEzAQABMwEAAWYBAAEz + AQABmQEAATMBAAHMAQABMwEAAf8BAAH/ATMCAAMzAQACMwFmAQACMwGZAQACMwHMAQACMwH/AQABMwFm + AgABMwFmATMBAAEzAmYBAAEzAWYBmQEAATMBZgHMAQABMwFmAf8BAAEzAZkCAAEzAZkBMwEAATMBmQFm + AQABMwKZAQABMwGZAcwBAAEzAZkB/wEAATMBzAIAATMBzAEzAQABMwHMAWYBAAEzAcwBmQEAATMCzAEA + ATMBzAH/AQABMwH/ATMBAAEzAf8BZgEAATMB/wGZAQABMwH/AcwBAAEzAv8BAAFmAwABZgEAATMBAAFm + AQABZgEAAWYBAAGZAQABZgEAAcwBAAFmAQAB/wEAAWYBMwIAAWYCMwEAAWYBMwFmAQABZgEzAZkBAAFm + ATMBzAEAAWYBMwH/AQACZgIAAmYBMwEAA2YBAAJmAZkBAAJmAcwBAAFmAZkCAAFmAZkBMwEAAWYBmQFm + AQABZgKZAQABZgGZAcwBAAFmAZkB/wEAAWYBzAIAAWYBzAEzAQABZgHMAZkBAAFmAswBAAFmAcwB/wEA + AWYB/wIAAWYB/wEzAQABZgH/AZkBAAFmAf8BzAEAAcwBAAH/AQAB/wEAAcwBAAKZAgABmQEzAZkBAAGZ + AQABmQEAAZkBAAHMAQABmQMAAZkCMwEAAZkBAAFmAQABmQEzAcwBAAGZAQAB/wEAAZkBZgIAAZkBZgEz + AQABmQEzAWYBAAGZAWYBmQEAAZkBZgHMAQABmQEzAf8BAAKZATMBAAKZAWYBAAOZAQACmQHMAQACmQH/ + AQABmQHMAgABmQHMATMBAAFmAcwBZgEAAZkBzAGZAQABmQLMAQABmQHMAf8BAAGZAf8CAAGZAf8BMwEA + AZkBzAFmAQABmQH/AZkBAAGZAf8BzAEAAZkC/wEAAcwDAAGZAQABMwEAAcwBAAFmAQABzAEAAZkBAAHM + AQABzAEAAZkBMwIAAcwCMwEAAcwBMwFmAQABzAEzAZkBAAHMATMBzAEAAcwBMwH/AQABzAFmAgABzAFm + ATMBAAGZAmYBAAHMAWYBmQEAAcwBZgHMAQABmQFmAf8BAAHMAZkCAAHMAZkBMwEAAcwBmQFmAQABzAKZ + AQABzAGZAcwBAAHMAZkB/wEAAswCAALMATMBAALMAWYBAALMAZkBAAPMAQACzAH/AQABzAH/AgABzAH/ + ATMBAAGZAf8BZgEAAcwB/wGZAQABzAH/AcwBAAHMAv8BAAHMAQABMwEAAf8BAAFmAQAB/wEAAZkBAAHM + ATMCAAH/AjMBAAH/ATMBZgEAAf8BMwGZAQAB/wEzAcwBAAH/ATMB/wEAAf8BZgIAAf8BZgEzAQABzAJm + AQAB/wFmAZkBAAH/AWYBzAEAAcwBZgH/AQAB/wGZAgAB/wGZATMBAAH/AZkBZgEAAf8CmQEAAf8BmQHM + AQAB/wGZAf8BAAH/AcwCAAH/AcwBMwEAAf8BzAFmAQAB/wHMAZkBAAH/AswBAAH/AcwB/wEAAv8BMwEA + AcwB/wFmAQAC/wGZAQAC/wHMAQACZgH/AQABZgH/AWYBAAFmAv8BAAH/AmYBAAH/AWYB/wEAAv8BZgEA + ASEBAAGlAQADXwEAA3cBAAOGAQADlgEAA8sBAAOyAQAD1wEAA90BAAPjAQAD6gEAA/EBAAP4AQAB8AH7 + Af8BAAGkAqABAAOAAwAB/wIAAf8DAAL/AQAB/wMAAf8BAAH/AQAC/wIAA/9DAAv8NQAC/AcAAvwHAAf8 + JgAB/AIAAfwFAAH8AQAB/AkAA/woAAH8AwAB/AMAAfwCAAH8CQAD/CgAAfwEAAH8AQAB/AMAAfwJAAP8 + KAAB/AQAAvwEAAH8CQAD/CcAAfwBAAT8AQAC/AQAAfwIAAP8JwAC/AUAAfwBAAH8AwAB/AgAA/woAAH8 + BQAB/AIAAfwCAAH8CAAD/CkAAfwDAAH8BAAB/AEAAfwIAAP8KgAC/AEAAfwFAAL8BAAB/AMAA/wDAAH8 + KAAC/AMABPwEAAH8AwAD/AMAAfwpAAT8CAAL/PUAAvwjAAb8DwAC/AQAAvwjAAf8DQAD/AQAAvwNAAL8 + GQAC/AwAA/wFAAL8DQAC/BoAAvwKAAP8BgAD/AwAAvwFAAX8EAAC/AkAA/wIAAL8DAAC/AQAB/wDAAL8 + CgAC/AgAA/wJAAP8CwAD/AIAA/wDAAL8AwAC/AoAAvwHAAP8CwAD/AsABvwFAAL8AgAC/AoAAvwGAAP8 + DAAD/AwAA/wHAAL8AgAC/AoAAvwFAAP8DgAE/BQAAvwCAAL8CgAC/AQAA/wQAAX8EgAC/AIAAvwKAAL8 + AwAD/BMAB/wSAAP8CAAD/AMAAvwWAAX8EwAM/DUACfyAAAH5PwAC+TcACvkCAAjZCgAC/CAACvkKAAHZ + CQAD/B4AAvoGAAL5DAAB2QkAA/wQAAL8CQAC/AP6BQAB+QQACNkCAAHZCQAD/A4ABPwIAAL8AQAD+goA + CNkCAAHZCQAD/AIAAvwIAAb8BwAC/AIAA/oKAAjZAgAB2QkAA/wBAAL8CAAG/AcAAvwDAAP6AQAB+ggA + CNkCAAHZCQAF/AkABPwIAAL8BAAE+gkACNkMAAT8CgAC/AkAAvwFAAP6CgAI2QkABvwVAAL8BAAE+gsA + CNkIAAb8EwAG/DsABPw9AAL8jgAD+QP6A/sD/DQAA/kD+gP7A/wXAAT8CAAJrAgAA/kD+gP7A/wJAAL5 + CwAE/AIAAvkFAAmsAYUHAAP5A/oD+wP8CQAC+QoABPwBAAP5BgAJrAKFBgAD+QP6A/sD/BYAAvwBAAL5 + AwACBAMACawDhQUAA/kD+gP7A/wJAAL5DAAC+QIAA/oCBAMACawEhQQAA/kD+gP7A/wJAAL5CwAC+QEA + BPoBAAIEBAAI2QWFAwAD+QP6A/sD/AoAAvkIAAP5BPoDAAIEBQAI2QWFAgAD+QP6A/sD/AsAAvkGAAL5 + AgAC+gUAAgQGAAjZBIUCAAP5A/oD+wP8BwAC+QIAAvkJAAL6AgADBwoACNkDhQIAA/kD+gP7A/wHAAL5 + AgAC+QkAAvoCAAMHCwAI2QKFAgAD+QP6A/sD/AgABPkLAAH6EQAI2QGFAgAD+QP6A/sD/DQAA/kD+gP7 + A/xyAAFCAU0BPgcAAT4DAAEoAwABQAMAAUADAAEBAQABAQYAAQIWAAP/AQAE/wQAAcABBwL/BAABzwHn + AfABHwQAAbcB1wH8AX8EAAG7AbcB/AF/BAABvQF3AfwBfwQAAbwB9wH8AX8EAAFCAXsB/AF/BAABPgG7 + AfwBfwQAAb4B2wH8AX8EAAHdAesB/AF/BAAB5QHzAdwBdwQAAfkBwwHcAXcEAAH8AT8BwAEHBAAE/wQA + BP8EAAr/Ac8D/wH+AQcB/wHzAc8D/wH+AQMB/wHjAc8B/wGfAv8B8wH/AccBzwH/AZ8C/wH5Af8BjwHH + Af8BnwEHAf8B+QH/AR8B5wH/AZ4BAwGfAfkB/gE/AeMB/wGMAXMBnwH5AfwBfwHxAf8BwAH5AZ8B+QH4 + Af8B8QH/AeMB+QGfAfkB8QH/AfgBfwH/AfkBnwH5AeMB/wH8AR8B/wH5AZ8B+QHHAv8BAQL/AY8B8QHP + Av8BwQL/AcABAwb/AeABDw//AfcG/wHPAfMG/wGAAQEBgAF/AecD/wGAAQEB/wG/AeMD/wHDAfMB/wHf + AfEB/wH+AX8BwQH3AYABbwH4Af8B/AE/AcgB/wHAATcB/AFnAfgBHwHMAX8B4AEbAf4BJwH4AR8BzgEv + AfABDQH/AQcB/AE/Ac8BDwH4AQcB/wGHAf4BfwHPAY8B/AEDAf4BBwL/Ac8BDwH+AQEB/gEHAv8BAwf/ + AYcH/wHPEf8BwAEDAv8B+AEfAv8BwAEDAv8B4AFnAYABPwHAAQMB/gF/AdABywGAAR8BwAEDAf4BfwGh + AR0BgAEPAcABAwL/AbIBcQGAAQcBwAEDAf4BfwF5AYIBgAEDAcABAwH+AX8BcgESAcABAQHAAQMB/wE/ + AUABcgHgAQABwAEDAf8BnwEZARIB8AEAAcABAwH5AZ8BsgENAfgBAAHAAQMB+QGfAbIBDQH8AQABwAED + AfwBPwHbARsB/gEAAcABAwL/AucC/wHAAQMC/wH4AR8K/ws= @@ -952,7 +952,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADW - CAAAAk1TRnQBSQFMAgEBAgEAATABBwEwAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAAVABBwFQAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -1104,12 +1104,12 @@ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAAAd0SU1FB94KFxElNy40HNcAAAD+SURBVFhHzdUBjsIgAERRD9bTejpvgf1G7ABD - S1tKNXnJMtv1E7ObfYQQbmXHHubXNOOLaLLPufEsYp/o87WoXCI59FLE5RLFs/nQw60XmF/lxz/qAr94 - lMX5fvEz+XAUb/6N1Fz3V8CbS0jZqLLjHkQkqDbjsGMrIhJUTXHYsQURCarmOOy4hYgE1a447LiGiATV - 7jjsWENEgupQHHZ0iEhQHY7DjjkiElSn4rCjIiJBdToOO0ZEJKi6xFEO9WjULY70EOPlf7GoaxzpIY+n - l+geR3pYuYA+11N6+IML1H4HLvn4UQ7xEovL4rDjSHYcyY4j2XEkO45kx3HC4w3Q1q4ttTanIgAAAABJ - RU5ErkJggg== + xAAADsQBlSsOGwAAAAd0SU1FB98DEAomN07xiugAAAEYSURBVFhHxZWBDYMgFEQdzOGcpdN1C/rPSnt8 + joqAlORFe1DehWhcQgh/RYYjsLEauImscp0Ke4Fslz6eXwolkh+jyORUIlvrgxH8tYCN/PhnFfjII06O + +ew/PmgFmx+SEve9BdicRIyUMjK8AiQkZE7lQIa1QEJCpkoOZFgDJCRkquVAhmdAQkLmkhzI8BeQkJC5 + LAcyLAEJCZkmOZChAhISMs1yIEMPJCRkuuRAhgwkJGS65UCGEUhIyAyRgzwoSyP9x057ZBOG+opFhsiN + Le7lJ1N5WmKY/LjfS/gFxQK8rhUbkHKBzS+4tQCANLm6ydIz0H38ERvlAseEfwuGyYGN99GXCsxGhjOR + 4UxkOBMZzkSG8wjLC3uFfZK6X129AAAAAElFTkSuQmCC @@ -1214,6 +1214,18 @@ Y4C55tAaQOosc+gKMMscbgvAjp18d86hEWFGgGQcv0Zr90FTwmiAwjie9KsSkv6/r4SRAJl5PLmx/Kos tDAYYN9x+C+5Qgu9AY5vX2UOWhgIsM/L23NdgxbGA/BR9faghTxAI/l8LVpoXFAyJcAo5c4rTNETU/TE FD0xRU9M0RNT9CMsP8YUDae/Iv6fAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAAd0SU1FB98DEAo4OuQByYoAAAFASURBVFhH7ZNBTgMxDEWzReJI5TpchgVXqLgG + G9Zcgw1SDxHyPU3lON9OWGA2HelJkxf72yO1pdb6r1CZCZWZULlLefuuwPrfQKVHe04NvMjgcv58FvB+ + +BPri6Cyg8Br8AxfwLJciEqAZhVkkWAZfAxf1npQCUxIJw5zFrF1mlnMIeHQS3n4Yh59KsPNmcXY1NR4 + r8HwDrvfyZrF2BR+PfCGA/SrrKZIzXBQxY3lcBAtAJCjMpsy98MhKPRYLQCi3PEQFHrcF/izBRr5P0IR + qriR+zcUoRq8Js1igWXWLMzWONsajbcA+lSGmzOJjmnuhMvgXtXesHUaKkF7aNgVWaQ8vn8IG7UeVHbQ + rIJGMPjp5VU4lmB14XBApQcCb+F8geVAC5W7yOAGu9uFykyozITKTKjMhMpMqMyEyjxq+QGwST/rODHN + EAAAAABJRU5ErkJggg== diff --git a/Form1.vb b/Form1.vb index f63437f..939812f 100644 --- a/Form1.vb +++ b/Form1.vb @@ -543,6 +543,7 @@ Public Class Form1 btnChangeLayer.Enabled = bSelOk btnChangeColor.Enabled = bSelOk btnInvertCurve.Enabled = bSelOk + btnChangeStartCurve.Enabled = bSelOk btnExtendCurve.Enabled = bSelOk btnBreakCurve.Enabled = bSelOk btnJoinCurve.Enabled = bLayerOk And bSelOk @@ -635,6 +636,7 @@ Public Class Form1 SetTextAndToolTip(btnBreakCurve, 513, 514) ' Break Curve
Split Curve in Pieces (Shift) SetTextAndToolTip(btnJoinCurve, 515, 516) ' Join Curves SetTextAndToolTip(btnExplodeCurve, 517, 518) ' Explode Text or Curve in Components + SetTextAndToolTip(btnChangeStartCurve, 521, 522) ' Start / Change Closed Curve Start Point SetTextAndToolTip(btnSetCurveTh, 519, 520) ' Set Curve Thickness and Extrusion ' Transform TabTransform.Text = EgtMsg(601) ' Transform @@ -994,6 +996,10 @@ Public Class Form1 m_Controller.ExecuteCommand(CMD.INVERTCURVE) End Sub + Private Sub btnChangeStart_Click(sender As System.Object, e As System.EventArgs) Handles btnChangeStartCurve.Click + m_Controller.ExecuteCommand(CMD.CHANGESTARTCURVE) + End Sub + Private Sub btnExtendCurve_Click(sender As System.Object, e As System.EventArgs) Handles btnExtendCurve.Click m_Controller.ExecuteCommand(CMD.TRIMEXTENDCURVE) End Sub @@ -1063,12 +1069,21 @@ Public Class Form1 ' pulisco output tsStatusOutput.Text = "" ResetInputBox() - ' Con 'A' forzo il passaggio ad arco se in modalità continua - ElseIf e.KeyData = Keys.A Then - m_Controller.ContinueArcPDP() - ' Con 'L' forzo il passaggio a retta se in modalità continua - ElseIf e.KeyData = Keys.L Then - m_Controller.ContinueLine2P() + ' con SPAZIO ripeto l'ultimo comando + ElseIf e.KeyData = Keys.Space Then + m_Controller.RepeatLastCommand() + ' Se in modalità continuazione + ElseIf m_Controller.GetContinue() Then + ' Con 'A' forzo il passaggio ad arco + If e.KeyData = Keys.A Then + m_Controller.ContinueArcPDP() + ' Con 'L' forzo il passaggio a retta + ElseIf e.KeyData = Keys.L Then + m_Controller.ContinueLine2P() + End If + ' Se in acquisizione punto + Else + End If End Sub @@ -1077,9 +1092,6 @@ Public Class Form1 If e.KeyData = Keys.Delete Then m_Controller.SetLastInteger(GDB_ID.SEL) m_Controller.ExecuteCommand(CMD.DELETE) - ' con SPAZIO ripeto l'ultimo comando - ElseIf e.KeyData = Keys.Space Then - m_Controller.RepeatLastCommand() End If End Sub diff --git a/Resources/ChangeStart.png b/Resources/ChangeStart.png new file mode 100644 index 0000000..6ff78df Binary files /dev/null and b/Resources/ChangeStart.png differ diff --git a/Resources/Line2P.png b/Resources/Line2P.png index b2666c2..bb1cc56 100644 Binary files a/Resources/Line2P.png and b/Resources/Line2P.png differ diff --git a/Scene.Designer.vb b/Scene.Designer.vb index 4aae859..7cd371a 100644 --- a/Scene.Designer.vb +++ b/Scene.Designer.vb @@ -43,9 +43,9 @@ Partial Class Scene Me.cmdPerpendicularPoint = New System.Windows.Forms.ToolStripMenuItem() Me.cmdMinDistPoint = New System.Windows.Forms.ToolStripMenuItem() Me.sepSelPnt1 = New System.Windows.Forms.ToolStripSeparator() - Me.cmdStopDrag = New System.Windows.Forms.ToolStripMenuItem() - Me.sepSelPnt2 = New System.Windows.Forms.ToolStripSeparator() Me.cmdExcludeSurfForSnap = New System.Windows.Forms.ToolStripMenuItem() + Me.sepSelPnt2 = New System.Windows.Forms.ToolStripSeparator() + Me.cmdStopDrag = New System.Windows.Forms.ToolStripMenuItem() Me.MenuScene.SuspendLayout() Me.SuspendLayout() ' @@ -55,7 +55,7 @@ Partial Class Scene Me.MenuScene.Name = "ContextMenuStrip1" Me.MenuScene.ShowCheckMargin = True Me.MenuScene.ShowImageMargin = False - Me.MenuScene.Size = New System.Drawing.Size(184, 462) + Me.MenuScene.Size = New System.Drawing.Size(193, 462) ' 'cmdSelectAll ' @@ -101,67 +101,78 @@ Partial Class Scene 'cmdSketchPoint ' Me.cmdSketchPoint.Name = "cmdSketchPoint" + Me.cmdSketchPoint.ShortcutKeyDisplayString = "S" Me.cmdSketchPoint.Size = New System.Drawing.Size(183, 22) Me.cmdSketchPoint.Text = "Sketch Point" ' 'cmdGridPoint ' Me.cmdGridPoint.Name = "cmdGridPoint" + Me.cmdGridPoint.ShortcutKeyDisplayString = "G" Me.cmdGridPoint.Size = New System.Drawing.Size(183, 22) Me.cmdGridPoint.Text = "Grid Point" ' 'cmdEndPoint ' Me.cmdEndPoint.Name = "cmdEndPoint" - Me.cmdEndPoint.Size = New System.Drawing.Size(183, 22) + Me.cmdEndPoint.ShortcutKeyDisplayString = "E" + Me.cmdEndPoint.Size = New System.Drawing.Size(192, 22) Me.cmdEndPoint.Text = "End Point" ' 'cmdMidPoint ' Me.cmdMidPoint.Name = "cmdMidPoint" - Me.cmdMidPoint.Size = New System.Drawing.Size(183, 22) + Me.cmdMidPoint.ShortcutKeyDisplayString = "M" + Me.cmdMidPoint.Size = New System.Drawing.Size(192, 22) Me.cmdMidPoint.Text = "Mid Point" ' 'cmdCenterPoint ' Me.cmdCenterPoint.Name = "cmdCenterPoint" - Me.cmdCenterPoint.Size = New System.Drawing.Size(183, 22) + Me.cmdCenterPoint.ShortcutKeyDisplayString = "C" + Me.cmdCenterPoint.Size = New System.Drawing.Size(192, 22) Me.cmdCenterPoint.Text = "Center" ' 'cmdCentroid ' Me.cmdCentroid.Name = "cmdCentroid" - Me.cmdCentroid.Size = New System.Drawing.Size(183, 22) + Me.cmdCentroid.ShortcutKeyDisplayString = "B" + Me.cmdCentroid.Size = New System.Drawing.Size(192, 22) Me.cmdCentroid.Text = "Centroid" ' 'cmdNearPoint ' Me.cmdNearPoint.Name = "cmdNearPoint" - Me.cmdNearPoint.Size = New System.Drawing.Size(183, 22) + Me.cmdNearPoint.ShortcutKeyDisplayString = "N" + Me.cmdNearPoint.Size = New System.Drawing.Size(192, 22) Me.cmdNearPoint.Text = "Near Point" ' 'cmdIntersectionPoint ' Me.cmdIntersectionPoint.Name = "cmdIntersectionPoint" - Me.cmdIntersectionPoint.Size = New System.Drawing.Size(183, 22) + Me.cmdIntersectionPoint.ShortcutKeyDisplayString = "I" + Me.cmdIntersectionPoint.Size = New System.Drawing.Size(192, 22) Me.cmdIntersectionPoint.Text = "Intersection Point" ' 'cmdTangentPoint ' Me.cmdTangentPoint.Name = "cmdTangentPoint" - Me.cmdTangentPoint.Size = New System.Drawing.Size(183, 22) + Me.cmdTangentPoint.ShortcutKeyDisplayString = "T" + Me.cmdTangentPoint.Size = New System.Drawing.Size(192, 22) Me.cmdTangentPoint.Text = "Tangent Point" ' 'cmdPerpendicularPoint ' Me.cmdPerpendicularPoint.Name = "cmdPerpendicularPoint" - Me.cmdPerpendicularPoint.Size = New System.Drawing.Size(183, 22) + Me.cmdPerpendicularPoint.ShortcutKeyDisplayString = "P" + Me.cmdPerpendicularPoint.Size = New System.Drawing.Size(192, 22) Me.cmdPerpendicularPoint.Text = "Perpendicular Point" ' 'cmdMinDistPoint ' Me.cmdMinDistPoint.Name = "cmdMinDistPoint" - Me.cmdMinDistPoint.Size = New System.Drawing.Size(183, 22) + Me.cmdMinDistPoint.ShortcutKeyDisplayString = "D" + Me.cmdMinDistPoint.Size = New System.Drawing.Size(192, 22) Me.cmdMinDistPoint.Text = "Min Dist Point" ' 'sepSelPnt1 @@ -169,22 +180,22 @@ Partial Class Scene Me.sepSelPnt1.Name = "sepSelPnt1" Me.sepSelPnt1.Size = New System.Drawing.Size(180, 6) ' - 'cmdStopDrag + 'cmdExcludeSurfForSnap ' - Me.cmdStopDrag.Name = "cmdStopDrag" - Me.cmdStopDrag.Size = New System.Drawing.Size(183, 22) - Me.cmdStopDrag.Text = "Drag Off" + Me.cmdExcludeSurfForSnap.Name = "cmdExcludeSurfForSnap" + Me.cmdExcludeSurfForSnap.Size = New System.Drawing.Size(183, 22) + Me.cmdExcludeSurfForSnap.Text = "ToolStripMenuItem1" ' 'sepSelPnt2 ' Me.sepSelPnt2.Name = "sepSelPnt2" Me.sepSelPnt2.Size = New System.Drawing.Size(180, 6) ' - 'cmdExcludeSurfForSnap + 'cmdStopDrag ' - Me.cmdExcludeSurfForSnap.Name = "cmdExcludeSurfForSnap" - Me.cmdExcludeSurfForSnap.Size = New System.Drawing.Size(183, 22) - Me.cmdExcludeSurfForSnap.Text = "ToolStripMenuItem1" + Me.cmdStopDrag.Name = "cmdStopDrag" + Me.cmdStopDrag.Size = New System.Drawing.Size(183, 22) + Me.cmdStopDrag.Text = "Drag Off" ' 'Scene ' diff --git a/Scene.resx b/Scene.resx index 67b4e4a..8656ced 100644 --- a/Scene.resx +++ b/Scene.resx @@ -120,4 +120,7 @@ 17, 17 + + 46 + \ No newline at end of file diff --git a/Scene.vb b/Scene.vb index e791656..69a0ce0 100644 --- a/Scene.vb +++ b/Scene.vb @@ -860,6 +860,64 @@ Public Class Scene End If End Sub + '-------------------------------- KeyDown -------------------------------------------------------- + Private Sub Scene_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles MyBase.KeyDown + ' Con selezione punti e drag abilitato + If (m_nStatus = ST.GETDIST Or m_nStatus = ST.GETDIST2 Or m_nStatus = ST.SELPOINT) And m_bDragOn Then + ' Con 'S' imposto Punto Sketch + If e.KeyData = Keys.S Then + m_nSnapType = SP.PT_SKETCH + RaiseEvent OnChangedSnapPointType(Me, m_nSnapType) + ' Con 'G' imposto Punto Griglia + ElseIf e.KeyData = Keys.G Then + m_nSnapType = SP.PT_GRID + RaiseEvent OnChangedSnapPointType(Me, m_nSnapType) + ' Con 'E' imposto Punto Finale + ElseIf e.KeyData = Keys.E Then + m_nSnapType = SP.PT_END + RaiseEvent OnChangedSnapPointType(Me, m_nSnapType) + ' Con 'M' imposto Punto Medio + ElseIf e.KeyData = Keys.M Then + m_nSnapType = SP.PT_MID + RaiseEvent OnChangedSnapPointType(Me, m_nSnapType) + ' Con 'C' imposto Centro + ElseIf e.KeyData = Keys.C Then + m_nSnapType = SP.CENTER + RaiseEvent OnChangedSnapPointType(Me, m_nSnapType) + ' Con 'B' imposto Baricentro + ElseIf e.KeyData = Keys.B Then + m_nSnapType = SP.CENTROID + RaiseEvent OnChangedSnapPointType(Me, m_nSnapType) + ' Con 'N' imposto Punto Vicino + ElseIf e.KeyData = Keys.N Then + m_nSnapType = SP.PT_NEAR + RaiseEvent OnChangedSnapPointType(Me, m_nSnapType) + ' Con 'I' imposto Punto Intersezione + ElseIf e.KeyData = Keys.I Then + m_nSnapType = SP.PT_INTERS + RaiseEvent OnChangedSnapPointType(Me, m_nSnapType) + ' Con 'T' imposto Punto Tangente + ElseIf e.KeyData = Keys.T Then + If m_bTangentPointOn Then + m_nSnapType = SP.PT_TANGENT + RaiseEvent OnChangedSnapPointType(Me, m_nSnapType) + End If + ' Con 'P' imposto Punto Perpendicolare + ElseIf e.KeyData = Keys.P Then + If m_bPerpendicularPointOn Then + m_nSnapType = SP.PT_PERPENDICULAR + RaiseEvent OnChangedSnapPointType(Me, m_nSnapType) + End If + ' Con 'D' imposto Punto Minima Distanza + ElseIf e.KeyData = Keys.D Then + If m_bMinDistPointOn Then + m_nSnapType = SP.PT_MINDIST + RaiseEvent OnChangedSnapPointType(Me, m_nSnapType) + End If + End If + End If + End Sub + '---- Status management ------------- Private Function IsRestorableCurrStatus() As Boolean Select Case m_nStatus diff --git a/TestEIn.vbproj b/TestEIn.vbproj index 00b9404..a884c54 100644 --- a/TestEIn.vbproj +++ b/TestEIn.vbproj @@ -509,6 +509,9 @@ + + + IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\TestEIn\TestEInR32.exe