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

TestEIn 1.6l7 :

Browse Source 
- aggiornamento per pezzi piatti.
This commit is contained in:
Dario Sassi
2016-01-08 17:18:17 +00:00
parent 715ec1546c
commit 8a30fdd7c8
5 changed files with 169 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtInterface.vb
+126 -56
View File
@@ -5057,32 +5057,6 @@ Public Function EgtPackSelectedBoxCluster(ByVal dXmin As Double, ByVal dYmin As
End If
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetClusterBBoxGlob")>
Private Function EgtGetClusterBBoxGlob_32(ByVal vId As Integer(), ByVal nCount As Integer,
ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetClusterBBoxGlob")>
Private Function EgtGetClusterBBoxGlob_64(ByVal vId As Integer(), ByVal nCount As Integer,
ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean
End Function
Public Function EgtGetClusterBBoxGlob(ByVal vId As Integer(),
ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean
If IntPtr.Size = 4 Then
Return EgtGetClusterBBoxGlob_32(vId, vId.Count(), PtMin, PtMax)
Else
Return EgtGetClusterBBoxGlob_64(vId, vId.Count(), PtMin, PtMax)
End If
End Function
Public Function EgtGetSelectedClusterBBoxGlob(ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean
Dim vId(1) As Integer
vId(0) = GDB_ID.SEL
If IntPtr.Size = 4 Then
Return EgtGetClusterBBoxGlob_32(vId, 1, PtMin, PtMax)
Else
Return EgtGetClusterBBoxGlob_64(vId, 1, PtMin, PtMax)
End If
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtMoveBoxCluster")>
Private Function EgtMoveBoxCluster_32(ByVal vId As Integer(), ByVal nCount As Integer, ByRef vtMove As Vector3d,
ByVal dXmin As Double, ByVal dYmin As Double,
@@ -5113,64 +5087,159 @@ Public Function EgtMoveSelectedBoxCluster(ByRef vtMove As Vector3d, ByVal dXmin
End If
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtMovePartCluster")>
Private Function EgtMovePartCluster_32(ByVal vId As Integer(), ByVal nCount As Integer, ByRef vtMove As Vector3d,
ByVal dXmin As Double, ByVal dYmin As Double,
ByVal dXmax As Double, ByVal dYmax As Double) As Boolean
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetClusterBBoxGlob")>
Private Function EgtGetClusterBBoxGlob_32(ByVal vId As Integer(), ByVal nCount As Integer,
ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtMovePartCluster")>
Private Function EgtMovePartCluster_64(ByVal vId As Integer(), ByVal nCount As Integer, ByRef vtMove As Vector3d,
ByVal dXmin As Double, ByVal dYmin As Double,
ByVal dXmax As Double, ByVal dYmax As Double) As Boolean
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtGetClusterBBoxGlob")>
Private Function EgtGetClusterBBoxGlob_64(ByVal vId As Integer(), ByVal nCount As Integer,
ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean
End Function
Public Function EgtMovePartCluster(ByVal vId As Integer(), ByRef vtMove As Vector3d,
ByVal dXmin As Double, ByVal dYmin As Double,
ByVal dXmax As Double, ByVal dYmax As Double) As Boolean
Public Function EgtGetClusterBBoxGlob(ByVal vId As Integer(),
ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean
If IntPtr.Size = 4 Then
Return EgtMovePartCluster_32(vId, vId.Count(), vtMove, dXmin, dYmin, dXmax, dYmax)
Return EgtGetClusterBBoxGlob_32(vId, vId.Count(), PtMin, PtMax)
Else
Return EgtMovePartCluster_64(vId, vId.Count(), vtMove, dXmin, dYmin, dXmax, dYmax)
Return EgtGetClusterBBoxGlob_64(vId, vId.Count(), PtMin, PtMax)
End If
End Function
Public Function EgtMoveSelectedPartCluster(ByRef vtMove As Vector3d, ByVal dXmin As Double, ByVal dYmin As Double,
ByVal dXmax As Double, ByVal dYmax As Double) As Boolean
Public Function EgtGetSelectedClusterBBoxGlob(ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean
Dim vId(1) As Integer
vId(0) = GDB_ID.SEL
If IntPtr.Size = 4 Then
Return EgtMovePartCluster_32(vId, 1, vtMove, dXmin, dYmin, dXmax, dYmax)
Return EgtGetClusterBBoxGlob_32(vId, 1, PtMin, PtMax)
Else
Return EgtMovePartCluster_64(vId, 1, vtMove, dXmin, dYmin, dXmax, dYmax)
Return EgtGetClusterBBoxGlob_64(vId, 1, PtMin, PtMax)
End If
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtRotatePartCluster")>
Private Function EgtRotatePartCluster_32(ByVal vId As Integer(), ByVal nCount As Integer, ByRef ptCen As Point3d,
ByRef dRotAngDeg As Double, ByVal dXmin As Double, ByVal dYmin As Double,
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtVerifyPartCluster")>
Private Function EgtVerifyPartCluster_32(ByVal vId As Integer(), ByVal nCount As Integer, ByVal bReducedCut As Boolean,
ByVal dXmin As Double, ByVal dYmin As Double,
ByVal dXmax As Double, ByVal dYmax As Double) As Boolean
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtRotatePartCluster")>
Private Function EgtRotatePartCluster_64(ByVal vId As Integer(), ByVal nCount As Integer, ByRef ptCen As Point3d,
ByRef dRotAngDeg As Double, ByVal dXmin As Double, ByVal dYmin As Double,
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtVerifyPartCluster")>
Private Function EgtVerifyPartCluster_64(ByVal vId As Integer(), ByVal nCount As Integer, ByVal bReducedCut As Boolean,
ByVal dXmin As Double, ByVal dYmin As Double,
ByVal dXmax As Double, ByVal dYmax As Double) As Boolean
End Function
Public Function EgtRotatePartCluster(ByVal vId As Integer(), ByVal ptCen As Point3d, ByRef dRotAngDeg As Double,
Public Function EgtVerifyPartCluster(ByVal vId As Integer(), ByVal bReducedCut As Boolean,
ByVal dXmin As Double, ByVal dYmin As Double,
ByVal dXmax As Double, ByVal dYmax As Double) As Boolean
If IntPtr.Size = 4 Then
Return EgtRotatePartCluster_32(vId, vId.Count(), ptCen, dRotAngDeg, dXmin, dYmin, dXmax, dYmax)
Return EgtVerifyPartCluster_32(vId, vId.Count(), bReducedCut, dXmin, dYmin, dXmax, dYmax)
Else
Return EgtRotatePartCluster_64(vId, vId.Count(), ptCen, dRotAngDeg, dXmin, dYmin, dXmax, dYmax)
Return EgtVerifyPartCluster_64(vId, vId.Count(), bReducedCut, dXmin, dYmin, dXmax, dYmax)
End If
End Function
Public Function EgtRotateSelectedPartCluster(ByVal ptCen As Point3d, ByRef dRotAngDeg As Double,
Public Function EgtVerifySelectedPartCluster(ByVal bReducedCut As Boolean,
ByVal dXmin As Double, ByVal dYmin As Double,
ByVal dXmax As Double, ByVal dYmax As Double) As Boolean
Dim vId(1) As Integer
vId(0) = GDB_ID.SEL
If IntPtr.Size = 4 Then
Return EgtRotatePartCluster_32(vId, 1, ptCen, dRotAngDeg, dXmin, dYmin, dXmax, dYmax)
Return EgtVerifyPartCluster_32(vId, 1, bReducedCut, dXmin, dYmin, dXmax, dYmax)
Else
Return EgtRotatePartCluster_64(vId, 1, ptCen, dRotAngDeg, dXmin, dYmin, dXmax, dYmax)
Return EgtVerifyPartCluster_64(vId, 1, bReducedCut, dXmin, dYmin, dXmax, dYmax)
End If
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtPackPartCluster")>
Private Function EgtPackPartCluster_32(ByVal vId As Integer(), ByVal nCount As Integer, ByVal bReducedCut As Boolean,
ByVal dXmin As Double, ByVal dYmin As Double,
ByVal dXmax As Double, ByVal dYmax As Double, ByVal bBottomUp As Boolean) As Boolean
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtPackPartCluster")>
Private Function EgtPackPartCluster_64(ByVal vId As Integer(), ByVal nCount As Integer, ByVal bReducedCut As Boolean,
ByVal dXmin As Double, ByVal dYmin As Double,
ByVal dXmax As Double, ByVal dYmax As Double, ByVal bBottomUp As Boolean) As Boolean
End Function
Public Function EgtPackPartCluster(ByVal vId As Integer(), ByVal bReducedCut As Boolean,
ByVal dXmin As Double, ByVal dYmin As Double,
ByVal dXmax As Double, ByVal dYmax As Double, ByVal bBottomUp As Boolean) As Boolean
If IntPtr.Size = 4 Then
Return EgtPackPartCluster_32(vId, vId.Count(), bReducedCut, dXmin, dYmin, dXmax, dYmax, bBottomUp)
Else
Return EgtPackPartCluster_64(vId, vId.Count(), bReducedCut, dXmin, dYmin, dXmax, dYmax, bBottomUp)
End If
End Function
Public Function EgtPackPart(ByVal nPartId As Integer, ByVal bReducedCut As Boolean,
ByVal dXmin As Double, ByVal dYmin As Double,
ByVal dXmax As Double, ByVal dYmax As Double, ByVal bBottomUp As Boolean) As Boolean
Dim vId(1) As Integer
vId(0) = nPartId
If IntPtr.Size = 4 Then
Return EgtPackPartCluster_32(vId, 1, bReducedCut, dXmin, dYmin, dXmax, dYmax, bBottomUp)
Else
Return EgtPackPartCluster_64(vId, 1, bReducedCut, dXmin, dYmin, dXmax, dYmax, bBottomUp)
End If
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtMovePartCluster")>
Private Function EgtMovePartCluster_32(ByVal vId As Integer(), ByVal nCount As Integer,
ByVal bReducedCut As Boolean, ByRef vtMove As Vector3d,
ByVal dXmin As Double, ByVal dYmin As Double,
ByVal dXmax As Double, ByVal dYmax As Double) As Boolean
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtMovePartCluster")>
Private Function EgtMovePartCluster_64(ByVal vId As Integer(), ByVal nCount As Integer,
ByVal bReducedCut As Boolean, ByRef vtMove As Vector3d,
ByVal dXmin As Double, ByVal dYmin As Double,
ByVal dXmax As Double, ByVal dYmax As Double) As Boolean
End Function
Public Function EgtMovePartCluster(ByVal vId As Integer(),
ByVal bReducedCut As Boolean, ByRef vtMove As Vector3d,
ByVal dXmin As Double, ByVal dYmin As Double,
ByVal dXmax As Double, ByVal dYmax As Double) As Boolean
If IntPtr.Size = 4 Then
Return EgtMovePartCluster_32(vId, vId.Count(), bReducedCut, vtMove, dXmin, dYmin, dXmax, dYmax)
Else
Return EgtMovePartCluster_64(vId, vId.Count(), bReducedCut, vtMove, dXmin, dYmin, dXmax, dYmax)
End If
End Function
Public Function EgtMoveSelectedPartCluster(ByVal bReducedCut As Boolean, ByRef vtMove As Vector3d,
ByVal dXmin As Double, ByVal dYmin As Double,
ByVal dXmax As Double, ByVal dYmax As Double) As Boolean
Dim vId(1) As Integer
vId(0) = GDB_ID.SEL
If IntPtr.Size = 4 Then
Return EgtMovePartCluster_32(vId, 1, bReducedCut, vtMove, dXmin, dYmin, dXmax, dYmax)
Else
Return EgtMovePartCluster_64(vId, 1, bReducedCut, vtMove, dXmin, dYmin, dXmax, dYmax)
End If
End Function
<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtRotatePartCluster")>
Private Function EgtRotatePartCluster_32(ByVal vId As Integer(), ByVal nCount As Integer,
ByVal bReducedCut As Boolean, ByRef ptCen As Point3d, ByRef dRotAngDeg As Double,
ByVal dXmin As Double, ByVal dYmin As Double,
ByVal dXmax As Double, ByVal dYmax As Double) As Boolean
End Function
<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtRotatePartCluster")>
Private Function EgtRotatePartCluster_64(ByVal vId As Integer(), ByVal nCount As Integer,
ByVal bReducedCut As Boolean, ByRef ptCen As Point3d, ByRef dRotAngDeg As Double,
ByVal dXmin As Double, ByVal dYmin As Double,
ByVal dXmax As Double, ByVal dYmax As Double) As Boolean
End Function
Public Function EgtRotatePartCluster(ByVal vId As Integer(),
ByVal bReducedCut As Boolean, ByVal ptCen As Point3d, ByRef dRotAngDeg As Double,
ByVal dXmin As Double, ByVal dYmin As Double,
ByVal dXmax As Double, ByVal dYmax As Double) As Boolean
If IntPtr.Size = 4 Then
Return EgtRotatePartCluster_32(vId, vId.Count(), bReducedCut, ptCen, dRotAngDeg, dXmin, dYmin, dXmax, dYmax)
Else
Return EgtRotatePartCluster_64(vId, vId.Count(), bReducedCut, ptCen, dRotAngDeg, dXmin, dYmin, dXmax, dYmax)
End If
End Function
Public Function EgtRotateSelectedPartCluster(ByVal bReducedCut As Boolean, ByVal ptCen As Point3d, ByRef dRotAngDeg As Double,
ByVal dXmin As Double, ByVal dYmin As Double,
ByVal dXmax As Double, ByVal dYmax As Double) As Boolean
Dim vId(1) As Integer
vId(0) = GDB_ID.SEL
If IntPtr.Size = 4 Then
Return EgtRotatePartCluster_32(vId, 1, bReducedCut, ptCen, dRotAngDeg, dXmin, dYmin, dXmax, dYmax)
Else
Return EgtRotatePartCluster_64(vId, 1, bReducedCut, ptCen, dRotAngDeg, dXmin, dYmin, dXmax, dYmax)
End If
End Function
@@ -8088,9 +8157,10 @@ End Enum
Public Const LINE_BREAK As String = "<br/>"
'Costanti : tipo creazione pezzo piatto
Public Enum FPC_TYPE As Integer
NGE = 0
REGION = 1
LAYER = 2
NGE = 3
CLOSEDCURVE = 3
End Enum
'Costanti : posizione di inserimento grezzo su corner
Public Enum MCH_CR As Integer
FlatParts.Designer.vb
Generated
+22 -10
View File
@@ -33,6 +33,7 @@ Partial Class FlatParts
Me.rbMm = New System.Windows.Forms.RadioButton()
Me.rbInch = New System.Windows.Forms.RadioButton()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.btnUseClosedCurve = New System.Windows.Forms.Button()
Me.btnReset = New System.Windows.Forms.Button()
Me.btnUseLayer = New System.Windows.Forms.Button()
Me.btnUseRegion = New System.Windows.Forms.Button()
@@ -60,7 +61,7 @@ Partial Class FlatParts
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 26.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 69.08212!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 30.91788!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(744, 414)
Me.TableLayoutPanel1.Size = New System.Drawing.Size(744, 418)
Me.TableLayoutPanel1.TabIndex = 0
'
'Scene2
@@ -71,7 +72,7 @@ Partial Class FlatParts
Me.Scene2.Location = New System.Drawing.Point(200, 29)
Me.Scene2.Margin = New System.Windows.Forms.Padding(0, 3, 3, 0)
Me.Scene2.Name = "Scene2"
Me.Scene2.Size = New System.Drawing.Size(541, 265)
Me.Scene2.Size = New System.Drawing.Size(541, 267)
Me.Scene2.TabIndex = 8
'
'tbCurrDir
@@ -100,7 +101,7 @@ Partial Class FlatParts
Me.ListView1.Name = "ListView1"
Me.TableLayoutPanel1.SetRowSpan(Me.ListView1, 2)
Me.ListView1.ShowGroups = False
Me.ListView1.Size = New System.Drawing.Size(194, 382)
Me.ListView1.Size = New System.Drawing.Size(194, 386)
Me.ListView1.SmallImageList = Me.ImageList1
Me.ListView1.TabIndex = 7
Me.ListView1.UseCompatibleStateImageBehavior = False
@@ -161,19 +162,29 @@ Partial Class FlatParts
'
'Panel1
'
Me.Panel1.Controls.Add(Me.btnUseClosedCurve)
Me.Panel1.Controls.Add(Me.btnReset)
Me.Panel1.Controls.Add(Me.btnUseLayer)
Me.Panel1.Controls.Add(Me.btnUseRegion)
Me.Panel1.Controls.Add(Me.btnInsert)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(203, 297)
Me.Panel1.Location = New System.Drawing.Point(203, 299)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(538, 114)
Me.Panel1.Size = New System.Drawing.Size(538, 116)
Me.Panel1.TabIndex = 11
'
'btnUseClosedCurve
'
Me.btnUseClosedCurve.Location = New System.Drawing.Point(218, 23)
Me.btnUseClosedCurve.Name = "btnUseClosedCurve"
Me.btnUseClosedCurve.Size = New System.Drawing.Size(75, 23)
Me.btnUseClosedCurve.TabIndex = 4
Me.btnUseClosedCurve.Text = "By CldCrv"
Me.btnUseClosedCurve.UseVisualStyleBackColor = True
'
'btnReset
'
Me.btnReset.Location = New System.Drawing.Point(219, 52)
Me.btnReset.Location = New System.Drawing.Point(218, 52)
Me.btnReset.Name = "btnReset"
Me.btnReset.Size = New System.Drawing.Size(75, 23)
Me.btnReset.TabIndex = 3
@@ -182,11 +193,11 @@ Partial Class FlatParts
'
'btnUseLayer
'
Me.btnUseLayer.Location = New System.Drawing.Point(219, 23)
Me.btnUseLayer.Location = New System.Drawing.Point(135, 23)
Me.btnUseLayer.Name = "btnUseLayer"
Me.btnUseLayer.Size = New System.Drawing.Size(75, 23)
Me.btnUseLayer.TabIndex = 2
Me.btnUseLayer.Text = "Use Layer"
Me.btnUseLayer.Text = "By Layer"
Me.btnUseLayer.UseVisualStyleBackColor = True
'
'btnUseRegion
@@ -195,7 +206,7 @@ Partial Class FlatParts
Me.btnUseRegion.Name = "btnUseRegion"
Me.btnUseRegion.Size = New System.Drawing.Size(75, 23)
Me.btnUseRegion.TabIndex = 1
Me.btnUseRegion.Text = "Use Region"
Me.btnUseRegion.Text = "By Region"
Me.btnUseRegion.UseVisualStyleBackColor = True
'
'btnInsert
@@ -211,7 +222,7 @@ Partial Class FlatParts
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(744, 414)
Me.ClientSize = New System.Drawing.Size(744, 418)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.KeyPreview = True
Me.MaximizeBox = False
@@ -241,4 +252,5 @@ End Sub
Friend WithEvents btnUseRegion As System.Windows.Forms.Button
Friend WithEvents btnUseLayer As System.Windows.Forms.Button
Friend WithEvents btnReset As System.Windows.Forms.Button
Friend WithEvents btnUseClosedCurve As System.Windows.Forms.Button
End Class
FlatParts.resx
+1 -1
View File
@@ -125,7 +125,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACy
FQAAAk1TRnQBSQFMAgEBBAEAAeABAAHgAQABIAEAASABAAT/ARkBAAj/AUIBTQE2BwABNgMAASgDAAGA
FQAAAk1TRnQBSQFMAgEBBAEAAfgBAAH4AQABIAEAASABAAT/ARkBAAj/AUIBTQE2BwABNgMAASgDAAGA
AwABQAMAAQEBAAEYBgABYP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A
/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A/wD/AP8A
/wD/AP8A/wCQAAP+PP0D/v8APAAD/gP7PPgD+wP9mQAh6X4AAckB1wHlAZgBsQHHAZgBsQHHAZgBrwHH
FlatParts.vb
+18
View File
@@ -207,6 +207,7 @@ Public Class FlatParts
Scene2.ZoomAll()
' disabilito bottoni Process e Insert
btnUseLayer.Enabled = False
btnUseClosedCurve.Enabled = False
btnUseRegion.Enabled = False
btnReset.Enabled = False
btnInsert.Enabled = False
@@ -237,6 +238,7 @@ Public Class FlatParts
Scene2.ZoomAll()
' abilito bottoni UseLayer e UseRegion, disabilito Reset e Insert
btnUseLayer.Enabled = True
btnUseClosedCurve.Enabled = True
btnUseRegion.Enabled = True
btnReset.Enabled = False
btnInsert.Enabled = False
@@ -251,6 +253,21 @@ Public Class FlatParts
Scene2.ZoomAll()
' disabilito bottoni UseLayer e UseRegion, abilito bottoni Reset e Insert
btnUseLayer.Enabled = False
btnUseClosedCurve.Enabled = False
btnUseRegion.Enabled = False
btnReset.Enabled = True
btnInsert.Enabled = True
End Sub
Private Sub btnUseClosedCurve_Click(sender As Object, e As EventArgs) Handles btnUseClosedCurve.Click
' Creo i pezzi
Dim nType As Integer = If(m_nFileType = FT.NGE, FPC_TYPE.NGE, FPC_TYPE.CLOSEDCURVE)
EgtCreateFlatParts(nType)
' Eseguo zoom
Scene2.ZoomAll()
' disabilito bottoni UseLayer e UseRegion, abilito bottoni Reset e Insert
btnUseLayer.Enabled = False
btnUseClosedCurve.Enabled = False
btnUseRegion.Enabled = False
btnReset.Enabled = True
btnInsert.Enabled = True
@@ -264,6 +281,7 @@ Public Class FlatParts
Scene2.ZoomAll()
' disabilito bottoni UseLayer e UseRegion, abilito bottoni Reset e Insert
btnUseLayer.Enabled = False
btnUseClosedCurve.Enabled = False
btnUseRegion.Enabled = False
btnReset.Enabled = True
btnInsert.Enabled = True
My Project/AssemblyInfo.vb
+2 -2
View File
@@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices
' utilizzando l'asterisco (*) come descritto di seguito:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.6.12.5")>
<Assembly: AssemblyFileVersion("1.6.12.5")>
<Assembly: AssemblyVersion("1.6.12.7")>
<Assembly: AssemblyFileVersion("1.6.12.7")>