TestEIn 1.5j6 :
- notevoli miglioramenti a disegno e gestione pezzi/layer.
This commit is contained in:
Dario Sassi
+334
-82
@@ -120,6 +120,27 @@ Structure Vector3d
|
||||
Return False
|
||||
End If
|
||||
End Function
|
||||
' Restituisce vettore in globale partendo da espressione nel riferimento dell'oggetto
|
||||
Function Glob(ByVal nId As Integer) As Vector3d
|
||||
Dim vtV As New Vector3d(x, y, z)
|
||||
EgtVectorToIdGlob(vtV, nId)
|
||||
Return vtV
|
||||
End Function
|
||||
' Restituisce vettore nel riferimento dell'oggetto partendo da espressione in globale
|
||||
Function Loc(ByVal nId As Integer) As Vector3d
|
||||
Dim vtV As New Vector3d(x, y, z)
|
||||
EgtVectorToIdLoc(vtV, nId)
|
||||
Return vtV
|
||||
End Function
|
||||
' Restituisce vettore nel riferimento del 2°oggetto partendo da espressione nel riferimento del 1° oggetto
|
||||
Function LocLoc(ByVal nIdSou As Integer, ByVal nIdDest As Integer) As Vector3d
|
||||
Dim vtV As New Vector3d(x, y, z)
|
||||
If EgtVectorToIdGlob(vtV, nIdSou) And EgtVectorToIdLoc(vtV, nIdDest) Then
|
||||
Return vtV
|
||||
Else
|
||||
Return Me
|
||||
End If
|
||||
End Function
|
||||
' Versore Asse X
|
||||
Shared Function X_AX() As Vector3d
|
||||
Dim vtZ As New Vector3d(1, 0, 0)
|
||||
@@ -219,6 +240,27 @@ Structure Point3d
|
||||
Return False
|
||||
End If
|
||||
End Function
|
||||
' Restituisce punto in globale partendo da espressione nel riferimento dell'oggetto
|
||||
Function Glob(ByVal nId As Integer) As Point3d
|
||||
Dim ptP As New Point3d(x, y, z)
|
||||
EgtPointToIdGlob(ptP, nId)
|
||||
Return ptP
|
||||
End Function
|
||||
' Restituisce punto nel riferimento dell'oggetto partendo da espressione in globale
|
||||
Function Loc(ByVal nId As Integer) As Point3d
|
||||
Dim ptP As New Point3d(x, y, z)
|
||||
EgtPointToIdLoc(ptP, nId)
|
||||
Return ptP
|
||||
End Function
|
||||
' Restituisce punto nel riferimento del 2°oggetto partendo da espressione nel riferimento del 1° oggetto
|
||||
Function LocLoc(ByVal nIdSou As Integer, ByVal nIdDest As Integer) As Point3d
|
||||
Dim ptP As New Point3d(x, y, z)
|
||||
If EgtPointToIdGlob(ptP, nIdSou) And EgtPointToIdLoc(ptP, nIdDest) Then
|
||||
Return ptP
|
||||
Else
|
||||
Return Me
|
||||
End If
|
||||
End Function
|
||||
' Punto Origine
|
||||
Shared Function ORIG() As Point3d
|
||||
Dim ptP As New Point3d(0, 0, 0)
|
||||
@@ -347,22 +389,42 @@ Class Frame3d
|
||||
Return False
|
||||
End If
|
||||
End Function
|
||||
' Riferimento Globale o Identità
|
||||
Shared Function GLOB() As Frame3d
|
||||
Dim frRef As New Frame3d
|
||||
Return frRef
|
||||
End Function
|
||||
End Class
|
||||
|
||||
Structure Color
|
||||
Structure Color3d
|
||||
' Membri
|
||||
Dim R, G, B, A As Integer
|
||||
' Costruttori
|
||||
Sub New(ByVal nRed As Integer, ByVal nGreen As Integer, ByVal nBlue As Integer, Optional ByVal nAlpha As Integer = 100)
|
||||
R = nRed
|
||||
G = nGreen
|
||||
B = nBlue
|
||||
A = nAlpha
|
||||
End Sub
|
||||
' Inizializzatori
|
||||
Sub Setup(ByVal nRed As Integer, ByVal nGreen As Integer, ByVal nBlue As Integer, Optional ByVal nAlpha As Integer = 100)
|
||||
R = nRed
|
||||
G = nGreen
|
||||
B = nBlue
|
||||
A = nAlpha
|
||||
End Sub
|
||||
' Conversione a System.Drawing.Color
|
||||
Function ToColor() As System.Drawing.Color
|
||||
Return System.Drawing.Color.FromArgb(A * 255 / 100, R, G, B)
|
||||
End Function
|
||||
' Conversione da System.Drawing.Color
|
||||
Sub FromColor(ByVal SysCol As System.Drawing.Color)
|
||||
R = SysCol.R
|
||||
G = SysCol.G
|
||||
B = SysCol.B
|
||||
A = SysCol.A * 100 / 255
|
||||
End Sub
|
||||
|
||||
End Structure
|
||||
|
||||
#If PLATFORM = "x64" Then
|
||||
@@ -445,6 +507,12 @@ Private Shared Function EgtVectorLocToLoc(ByRef X As Double, ByRef Y As Double,
|
||||
ByRef PtO2 As Point3d, ByRef VtX2 As Vector3d, ByRef VtY2 As Vector3d, ByRef VtZ2 As Vector3d) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtGetVectorRotation(ByRef VtS As Vector3d, ByRef VtE As Vector3d, ByRef VtAx As Vector3d,
|
||||
ByRef dAngRotDeg As Double, ByRef bDet As Boolean) As Boolean
|
||||
End Function
|
||||
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Private Shared Function EgtPointTranslate(ByRef X As Double, ByRef Y As Double, ByRef Z As Double,
|
||||
ByRef VtMove As Vector3d) As Boolean
|
||||
@@ -532,7 +600,7 @@ Public Shared Function EgtGetCurrentContext() As Integer
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtSetDefaultMaterial(ByVal nRed As Integer, ByVal nGreen As Integer, ByVal nBlue As Integer) As Boolean
|
||||
Public Shared Function EgtSetDefaultMaterial(ByRef DefCol As Color3d) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
@@ -544,7 +612,7 @@ Public Shared Function EgtOpenFile(ByVal sFilePath As String) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtSaveFile(ByVal sFilePath As String, ByVal nFlag As Integer) As Boolean
|
||||
Public Shared Function EgtSaveFile(ByVal sFilePath As String, ByVal nFlag As NGE) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
@@ -584,8 +652,40 @@ Public Shared Function EgtCreateGroup(ByVal nParentId As Integer) As Integer
|
||||
Return EgtCreateGroup(nParentId, Point3d.ORIG(), Vector3d.X_AX(), Vector3d.Y_AX(), Vector3d.Z_AX())
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtCreateGeoPoint(ByVal nParentId As Integer,
|
||||
ByRef PtP As Point3d) As Integer
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtCreateCurveLine(ByVal nParentId As Integer,
|
||||
ByRef PtStart As Point3d, ByRef PtEnd As Point3d) As Integer
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtCreateCurveArc3P(ByVal nParentId As Integer,
|
||||
ByRef PtStart As Point3d, ByRef PtMid As Point3d, ByRef PtEnd As Point3d) As Integer
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtCreateCurveArcC2PN(ByVal nParentId As Integer,
|
||||
ByRef PtCen As Point3d, ByRef PtStart As Point3d, ByRef PtEnd As Point3d,
|
||||
ByRef VtNorm As Vector3d) As Integer
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtCreateSurfTriMeshByContour(ByVal nParentId As Integer, ByVal nCrvId As Integer, ByVal dLinTol As Double) As Integer
|
||||
End Function
|
||||
|
||||
'---------- GeomDb Objects Modify ----------------------------------------------
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Private Shared Function EgtChangeGroupFrame(ByVal nId As Integer,
|
||||
ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean
|
||||
End Function
|
||||
Public Shared Function EgtChangeGroupFrame(ByVal nId As Integer, ByRef frRef As Frame3d) As Boolean
|
||||
Return EgtChangeGroupFrame(nId, frRef.Orig(), frRef.VersX(), frRef.VersY(), frRef.VersZ())
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtFlipText(ByVal nId As Integer) As Boolean
|
||||
End Function
|
||||
@@ -595,9 +695,45 @@ Public Shared Function EgtMirrorText(ByVal nId As Integer, ByVal bOnL As Boolean
|
||||
End Function
|
||||
|
||||
|
||||
'---------- GeomDb Curves Modify -----------------------------------------------
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtInvertCurve(ByVal nId As Integer) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtModifyCurveEndPoint(ByVal nId As Integer, ByRef PtEnd As Point3d) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtModifyCurveArc3P(ByVal nId As Integer, ByRef PtMid As Point3d) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtModifyCurveArcC2PN(ByVal nId As Integer, ByRef PtEnd As Point3d) As Boolean
|
||||
End Function
|
||||
|
||||
|
||||
'---------- GeomDb Objects -----------------------------------------------------
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtExistsObj(ByVal nGroupId As Integer) As Boolean
|
||||
Public Shared Function EgtExistsObj(ByVal nId As Integer) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtGetParent(ByVal nId As Integer) As Integer
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Private Shared Function EgtGetGroupGlobFrame(ByVal nId As Integer,
|
||||
ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean
|
||||
End Function
|
||||
Public Shared Function EgtGetGroupGlobFrame(ByVal nId As Integer, ByRef frGRef As Frame3d) As Boolean
|
||||
Dim PtOrig As Point3d
|
||||
Dim VtDirX, VtDirY, VtDirZ As Vector3d
|
||||
If Not EgtGetGroupGlobFrame(nId, PtOrig, VtDirX, VtDirY, VtDirZ) Then
|
||||
Return False
|
||||
Else
|
||||
Return frGRef.Setup(PtOrig, VtDirX, VtDirY, VtDirZ)
|
||||
End If
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
@@ -620,6 +756,22 @@ End Function
|
||||
Public Shared Function EgtGetPrev(ByVal nId As Integer) As Integer
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtGetFirstGroupInGroup(ByVal nGroupId As Integer) As Integer
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtGetNextGroup(ByVal nId As Integer) As Integer
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtGetLastGroupInGroup(ByVal nGroupId As Integer) As Integer
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtGetPrevGroup(ByVal nId As Integer) As Integer
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtGetBBox(ByVal nId As Integer, ByVal nFlag As Integer,
|
||||
ByRef PtMin As Point3d, ByRef PtMax As Point3d) As Boolean
|
||||
@@ -631,23 +783,23 @@ Public Shared Function EgtGetBBoxGlob(ByVal nId As Integer, ByVal nFlag As Integ
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtCopy(ByVal nId As Integer, ByVal nRefId As Integer, ByVal nSonBeforeAfter As Integer) As Integer
|
||||
Public Shared Function EgtCopy(ByVal nId As Integer, ByVal nRefId As Integer, Optional ByVal nSonBeforeAfter As GDB_POS = GDB_POS.SON) As Integer
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtCopyGlob(ByVal nId As Integer, ByVal nRefId As Integer, ByVal nSonBeforeAfter As Integer) As Integer
|
||||
Public Shared Function EgtCopyGlob(ByVal nId As Integer, ByVal nRefId As Integer, Optional ByVal nSonBeforeAfter As GDB_POS = GDB_POS.SON) As Integer
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtRelocate(ByVal nId As Integer, ByVal nRefId As Integer, ByVal nSonBeforeAfter As Integer) As Integer
|
||||
Public Shared Function EgtRelocate(ByVal nId As Integer, ByVal nRefId As Integer, Optional ByVal nSonBeforeAfter As GDB_POS = GDB_POS.SON) As Integer
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtRelocateGlob(ByVal nId As Integer, ByVal nRefId As Integer, ByVal nSonBeforeAfter As Integer) As Integer
|
||||
Public Shared Function EgtRelocateGlob(ByVal nId As Integer, ByVal nRefId As Integer, Optional ByVal nSonBeforeAfter As GDB_POS = GDB_POS.SON) As Integer
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtErase(ByVal nId As Integer) As Integer
|
||||
Public Shared Function EgtErase(ByVal nId As Integer) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
@@ -753,6 +905,18 @@ End Function
|
||||
Public Shared Function EgtGetCalcMark(ByVal nId As Integer, ByRef bMark As Boolean) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtSetColor(ByVal nId As Integer, ByRef ColObj As Color3d) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtGetColor(ByVal nId As Integer, ByRef ColObj As Color3d) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtGetCalcColor(ByVal nId As Integer, ByRef ColObj As Color3d) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtSetName(ByVal nId As Integer, ByVal sName As String) As Boolean
|
||||
End Function
|
||||
@@ -909,6 +1073,24 @@ Public Shared Function EgtShearGroup(ByVal nId As Integer, ByRef PtOn As Point3d
|
||||
End Function
|
||||
|
||||
|
||||
'---------- GeomDb Snap Vector/Point/Frame -------------------------------------
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Private Shared Function EgtVectorToIdGlob(ByRef VtV As Vector3d, ByVal nId As Integer) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Private Shared Function EgtVectorToIdLoc(ByRef VtV As Vector3d, ByVal nId As Integer) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Private Shared Function EgtPointToIdGlob(ByRef PtP As Point3d, ByVal nId As Integer) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Private Shared Function EgtPointToIdLoc(ByRef PtP As Point3d, ByVal nId As Integer) As Boolean
|
||||
End Function
|
||||
|
||||
|
||||
'---------- Scene --------------------------------------------------------------
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtInitScene(ByVal hWnd As IntPtr, ByVal nDriver As Integer,
|
||||
@@ -916,21 +1098,58 @@ Public Shared Function EgtInitScene(ByVal hWnd As IntPtr, ByVal nDriver As Integ
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtSetBackground(ByVal nTopRed As Integer, ByVal nTopGreen As Integer, ByVal nTopBlue As Integer,
|
||||
ByVal nBottomRed As Integer, ByVal nBottomGreen As Integer, ByVal nBottomBlue As Integer,
|
||||
Optional ByVal bRedraw As Boolean = True) As Boolean
|
||||
Public Shared Function EgtSetBackground(ByRef colTop As Color3d, ByRef colBottom As Color3d, Optional ByVal bRedraw As Boolean = True) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtSetMarkAttribs(ByVal nRed As Integer, ByVal nGreen As Integer, ByVal nBlue As Integer) As Boolean
|
||||
Public Shared Function EgtSetMarkAttribs(ByRef colMark As Color3d) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtSetGeoLineAttribs(ByVal nRed As Integer, ByVal nGreen As Integer, ByVal nBlue As Integer) As Boolean
|
||||
Public Shared Function EgtSetGeoLineAttribs(ByRef colGl As Color3d) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtSetWinRectAttribs(ByVal bOutline As Boolean, ByVal nRed As Integer, ByVal nGreen As Integer, ByVal nBlue As Integer, ByVal nAlpha As Integer) As Boolean
|
||||
Public Shared Function EgtSetWinRectAttribs(ByVal bOutline As Boolean, ByRef colWr As Color3d) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtSetGridShow(ByVal bShowGrid As Boolean, ByVal bShowFrame As Boolean) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Private Shared Function EgtSetGridFrame(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean
|
||||
End Function
|
||||
Public Shared Function EgtSetGridFrame(ByRef frRef As Frame3d) As Boolean
|
||||
Return EgtSetGridFrame(frRef.Orig(), frRef.VersX(), frRef.VersY(), frRef.VersZ())
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtSetGridGeo(ByVal dSnapStep As Double, ByVal nMinLineSstep As Integer, ByVal nMajLineSstep As Integer, ByVal nExtSstep As Integer) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtSetGridColor(ByRef colMinLine As Color3d, ByRef colMajLine As Color3d) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Private Shared Function EgtGetGridFrame(ByRef PtOrig As Point3d, ByRef VtX As Vector3d, ByRef VtY As Vector3d, ByRef VtZ As Vector3d) As Boolean
|
||||
End Function
|
||||
Public Shared Function EgtGetGridFrame(ByRef frRef As Frame3d) As Boolean
|
||||
Dim PtOrig As Point3d
|
||||
Dim VtDirX, VtDirY, VtDirZ As Vector3d
|
||||
If Not EgtGetGridFrame(PtOrig, VtDirX, VtDirY, VtDirZ) Then
|
||||
Return False
|
||||
Else
|
||||
Return frRef.Setup(PtOrig, VtDirX, VtDirY, VtDirZ)
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Shared Function EgtGetGridVersZ() As Vector3d
|
||||
Dim PtOrig As Point3d
|
||||
Dim VtDirX, VtDirY, VtDirZ As Vector3d
|
||||
EgtGetGridFrame(PtOrig, VtDirX, VtDirY, VtDirZ)
|
||||
Return VtDirZ
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
@@ -971,13 +1190,18 @@ Public Shared Function EgtUnselectableClearAll() As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtGetSelectedSnapPoint(ByVal nSnap As Integer,
|
||||
Private Shared Function EgtGetGraphicSnapPoint(ByVal nSnap As Integer,
|
||||
ByVal nWinX As Integer, ByVal nWinY As Integer, ByVal nSelW As Integer, ByVal nSelH As Integer,
|
||||
ByRef ptP As Point3d) As Boolean
|
||||
End Function
|
||||
Public Shared Function EgtGetGraphicSnapPoint(ByVal nSnap As Integer,
|
||||
ByVal PtWin As Point, ByVal nSelW As Integer, ByVal nSelH As Integer,
|
||||
ByRef ptP As Point3d) As Boolean
|
||||
Return EgtGetGraphicSnapPoint(nSnap, PtWin.X, PtWin.Y, nSelW, nSelH, ptP)
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtSetShowMode(ByVal nShowMode As Integer, Optional ByVal bRedraw As Boolean = True) As Boolean
|
||||
Public Shared Function EgtSetShowMode(ByVal nShowMode As SM, Optional ByVal bRedraw As Boolean = True) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
@@ -993,7 +1217,7 @@ Public Shared Function EgtGetShowCurveDirection() As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtZoom(ByVal nZoom As Integer, Optional ByVal bRedraw As Boolean = True) As Boolean
|
||||
Public Shared Function EgtZoom(ByVal nZoom As ZM, Optional ByVal bRedraw As Boolean = True) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
@@ -1030,7 +1254,7 @@ Public Shared Function EgtZoomWin(ByVal Prev As Point, ByVal Curr As Point, Opti
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
Public Shared Function EgtSetView(ByVal nView As Integer, Optional ByVal bRedraw As Boolean = True) As Boolean
|
||||
Public Shared Function EgtSetView(ByVal nView As VT, Optional ByVal bRedraw As Boolean = True) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport(EgtIntDll, CharSet:=CharSet.Unicode)>
|
||||
@@ -1101,80 +1325,108 @@ End Function
|
||||
Public Const EPS_SMALL As Double = 0.001
|
||||
Public Const EPS_ZERO As Double = 0.0000001
|
||||
'Costanti : TIPO DI FILE
|
||||
Public Const FT_NULL As Integer = 0
|
||||
Public Const FT_NGE As Integer = 1
|
||||
Public Const FT_NFE As Integer = 2
|
||||
Public Const FT_DXF As Integer = 11
|
||||
Public Const FT_STL As Integer = 12
|
||||
Public Const FT_CNC As Integer = 13
|
||||
Public Const FT_TSC As Integer = 101
|
||||
Public Const FT_LUA As Integer = 102
|
||||
Public Enum FT As Integer
|
||||
NULL = 0
|
||||
NGE = 1
|
||||
NFE = 2
|
||||
DXF = 11
|
||||
STL = 12
|
||||
CNC = 13
|
||||
TSC = 101
|
||||
LUA = 102
|
||||
End Enum
|
||||
'Costanti : FORMATO FILE NGE
|
||||
Public Const NGE_TEXT As Integer = 0
|
||||
Public Const NGE_BIN As Integer = 1
|
||||
Public Const NGE_CMPTEXT As Integer = 2
|
||||
Public Enum NGE As Integer
|
||||
TEXT = 0
|
||||
BIN = 1
|
||||
CMPTEXT = 2
|
||||
End Enum
|
||||
'Costanti : ID GEOMDB
|
||||
Public Const GDB_ID_ROOT As Integer = 0
|
||||
Public Const GDB_ID_NULL As Integer = -1
|
||||
Public Const GDB_ID_SEL As Integer = -2
|
||||
Public Enum GDB_ID As Integer
|
||||
ROOT = 0
|
||||
NULL = -1
|
||||
SEL = -2
|
||||
End Enum
|
||||
'Costanti : TIPO OGGETTI
|
||||
Public Const TY_NONE As Integer = 0
|
||||
Public Const TY_GROUP As Integer = 2
|
||||
Public Const TY_GEO_VECTOR As Integer = 128
|
||||
Public Const TY_GEO_POINT As Integer = 129
|
||||
Public Const TY_GEO_FRAME As Integer = 130
|
||||
Public Const TY_CRV_LINE As Integer = 256
|
||||
Public Const TY_CRV_ARC As Integer = 257
|
||||
Public Const TY_CRV_BEZ As Integer = 258
|
||||
Public Const TY_CRV_COMPO As Integer = 259
|
||||
Public Const TY_SRF_MESH As Integer = 512
|
||||
Public Const TY_EXT_TEXT As Integer = 1024
|
||||
Public Enum TY As Integer
|
||||
NONE = 0
|
||||
GROUP = 2
|
||||
GEO_VECTOR = 128
|
||||
GEO_POINT = 129
|
||||
GEO_FRAME = 130
|
||||
CRV_LINE = 256
|
||||
CRV_ARC = 257
|
||||
CRV_BEZ = 258
|
||||
CRV_COMPO = 259
|
||||
SRF_MESH = 512
|
||||
EXT_TEXT = 1024
|
||||
End Enum
|
||||
'Costanti : POSIZIONE DI COPIA DI UN OGGETTO
|
||||
Public Const GDB_BEFORE As Integer = -1
|
||||
Public Const GDB_SON As Integer = 0
|
||||
Public Const GDB_AFTER As Integer = 1
|
||||
Public Enum GDB_POS As Integer
|
||||
BEFORE = -1
|
||||
SON = 0
|
||||
AFTER = 1
|
||||
End Enum
|
||||
'Costanti : LIVELLO DI UN OGGETTO
|
||||
Public Const GDB_LV_USER As Integer = 1
|
||||
Public Const GDB_LV_SYSTEM As Integer = 2
|
||||
Public Const GDB_LV_TEMP As Integer = 3
|
||||
Public Enum GDB_LV As Integer
|
||||
USER = 1
|
||||
SYSTEM = 2
|
||||
TEMP = 3
|
||||
End Enum
|
||||
'Costanti : MODO DI UN OGGETTO
|
||||
Public Const GDB_MD_STD As Integer = 1
|
||||
Public Const GDB_MD_LOCKED As Integer = 2
|
||||
Public Const GDB_MD_HIDDEN As Integer = 3
|
||||
Public Enum GDB_MD As Integer
|
||||
STD = 1
|
||||
LOCKED = 2
|
||||
HIDDEN = 3
|
||||
End Enum
|
||||
'Costanti : STATO DI UN OGGETTO
|
||||
Public Const GDB_ST_OFF As Integer = 0
|
||||
Public Const GDB_ST_ON As Integer = 1
|
||||
Public Const GDB_ST_SEL As Integer = 2
|
||||
Public Enum GDB_ST As Integer
|
||||
OFF = 0
|
||||
ON_ = 1
|
||||
SEL = 2
|
||||
End Enum
|
||||
'Costanti : TIPO VISUALIZZAZIONE
|
||||
Public Const SM_WIREFRAME As Integer = 0
|
||||
Public Const SM_HIDDENLINE As Integer = 1
|
||||
Public Const SM_SHADING As Integer = 2
|
||||
Public Enum SM As Integer
|
||||
WIREFRAME = 0
|
||||
HIDDENLINE = 1
|
||||
SHADING = 2
|
||||
End Enum
|
||||
'Costanti : TIPO ZOOM
|
||||
Public Const ZM_ALL As Integer = 1
|
||||
Public Const ZM_IN As Integer = 2
|
||||
Public Const ZM_OUT As Integer = 3
|
||||
Public Enum ZM As Integer
|
||||
ALL = 1
|
||||
IN_ = 2
|
||||
OUT = 3
|
||||
End Enum
|
||||
'Costanti : TIPO VISTA
|
||||
Public Const CT_NONE As Integer = 0
|
||||
Public Const CT_TOP As Integer = 1
|
||||
Public Const CT_FRONT As Integer = 2
|
||||
Public Const CT_RIGHT As Integer = 3
|
||||
Public Const CT_BACK As Integer = 4
|
||||
Public Const CT_LEFT As Integer = 5
|
||||
Public Const CT_BOTTOM As Integer = 6
|
||||
Public Const CT_ISO_SW As Integer = 7
|
||||
Public Const CT_ISO_SE As Integer = 8
|
||||
Public Const CT_ISO_NE As Integer = 9
|
||||
Public Const CT_ISO_NW As Integer = 10
|
||||
Public Enum VT As Integer
|
||||
NONE = 0
|
||||
TOP = 1
|
||||
FRONT = 2
|
||||
RIGHT = 3
|
||||
BACK = 4
|
||||
LEFT = 5
|
||||
BOTTOM = 6
|
||||
ISO_SW = 7
|
||||
ISO_SE = 8
|
||||
ISO_NE = 9
|
||||
ISO_NW = 10
|
||||
End Enum
|
||||
'Costanti : TIPO SNAP POINT
|
||||
Public Const SP_END As Integer = 0
|
||||
Public Const SP_MID As Integer = 1
|
||||
Public Const SP_CENTER As Integer = 2
|
||||
Public Const SP_NEAR As Integer = 3
|
||||
Public Enum SP As Integer
|
||||
PT_SKETCH = 0
|
||||
PT_GRID = 1
|
||||
PT_END = 2
|
||||
PT_MID = 3
|
||||
CENTER = 4
|
||||
PT_NEAR = 5
|
||||
End Enum
|
||||
'Costanti : flag per BBOX
|
||||
Public Const BBF_STANDARD As Integer = 0
|
||||
Public Const BBF_ONLY_VISIBLE As Integer = 1
|
||||
Public Const BBF_IGNORE_TEXT As Integer = 2
|
||||
Public Const BBF_IGNORE_DIM As Integer = 3
|
||||
Public Const BBF_EXACT As Integer = 4
|
||||
Public Enum BBF As Integer
|
||||
STANDARD = 0
|
||||
ONLY_VISIBLE = 1
|
||||
IGNORE_TEXT = 2
|
||||
IGNORE_DIM = 3
|
||||
EXACT = 4
|
||||
End Enum
|
||||
|
||||
End Class
|
||||
|
||||
Generated
+430
-92
@@ -25,7 +25,6 @@ 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.ToolStripStatusOnL = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Me.ToolStripStatusOutput = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
@@ -68,16 +67,38 @@ Partial Class Form1
|
||||
Me.tboxCmd = New System.Windows.Forms.TextBox()
|
||||
Me.TreeView1 = New System.Windows.Forms.TreeView()
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.txtColor = New System.Windows.Forms.TextBox()
|
||||
Me.btnColor = New System.Windows.Forms.Button()
|
||||
Me.btnNewLayer = New System.Windows.Forms.Button()
|
||||
Me.txtPartLay = New System.Windows.Forms.TextBox()
|
||||
Me.btnNewPart = New System.Windows.Forms.Button()
|
||||
Me.TabControl2 = New System.Windows.Forms.TabControl()
|
||||
Me.TabDraw = New System.Windows.Forms.TabPage()
|
||||
Me.TabTest = New System.Windows.Forms.TabPage()
|
||||
Me.btnMove = New System.Windows.Forms.Button()
|
||||
Me.btnRotM90 = New System.Windows.Forms.Button()
|
||||
Me.btnRotP90 = New System.Windows.Forms.Button()
|
||||
Me.btnArc3P = New System.Windows.Forms.Button()
|
||||
Me.btnArcCSE = New System.Windows.Forms.Button()
|
||||
Me.btnPoint = New System.Windows.Forms.Button()
|
||||
Me.btnLine2P = New System.Windows.Forms.Button()
|
||||
Me.TabConstruct = New System.Windows.Forms.TabPage()
|
||||
Me.btnPlane = New System.Windows.Forms.Button()
|
||||
Me.TabEdit = New System.Windows.Forms.TabPage()
|
||||
Me.btnDelete = New System.Windows.Forms.Button()
|
||||
Me.TabTransform = New System.Windows.Forms.TabPage()
|
||||
Me.btnMirror = New System.Windows.Forms.Button()
|
||||
Me.btnCopy = New System.Windows.Forms.Button()
|
||||
Me.btnRotate = New System.Windows.Forms.Button()
|
||||
Me.btnMove = New System.Windows.Forms.Button()
|
||||
Me.TabTest = New System.Windows.Forms.TabPage()
|
||||
Me.XbtnRotM90 = New System.Windows.Forms.Button()
|
||||
Me.XbtnRotP90 = New System.Windows.Forms.Button()
|
||||
Me.XbtnMirror = New System.Windows.Forms.Button()
|
||||
Me.OpenFileDialog = New System.Windows.Forms.OpenFileDialog()
|
||||
Me.SaveFileDialog = New System.Windows.Forms.SaveFileDialog()
|
||||
Me.btnGetDist = New System.Windows.Forms.CheckBox()
|
||||
Me.ObjTreeTimer = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.ColorDialog1 = New System.Windows.Forms.ColorDialog()
|
||||
Me.Scene1 = New TestEIn.Scene()
|
||||
Me.btnInvertCurve = New System.Windows.Forms.Button()
|
||||
Me.TableLayoutPanel1.SuspendLayout()
|
||||
Me.StatusStrip1.SuspendLayout()
|
||||
Me.TabControl1.SuspendLayout()
|
||||
@@ -88,7 +109,12 @@ Partial Class Form1
|
||||
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.TableLayoutPanel3.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.TabControl2.SuspendLayout()
|
||||
Me.TabDraw.SuspendLayout()
|
||||
Me.TabConstruct.SuspendLayout()
|
||||
Me.TabEdit.SuspendLayout()
|
||||
Me.TabTransform.SuspendLayout()
|
||||
Me.TabTest.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
@@ -111,19 +137,9 @@ Partial Class Form1
|
||||
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.Size = New System.Drawing.Size(1056, 473)
|
||||
Me.TableLayoutPanel1.Size = New System.Drawing.Size(1056, 533)
|
||||
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(755, 365)
|
||||
Me.Scene1.TabIndex = 1
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
Me.StatusStrip1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
@@ -131,7 +147,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.ToolStripStatusOnL, Me.ToolStripStatusOutput, Me.ToolStripStatusCursorPos, Me.ToolStripStatusOnR})
|
||||
Me.StatusStrip1.Location = New System.Drawing.Point(0, 451)
|
||||
Me.StatusStrip1.Location = New System.Drawing.Point(0, 511)
|
||||
Me.StatusStrip1.MaximumSize = New System.Drawing.Size(0, 22)
|
||||
Me.StatusStrip1.MinimumSize = New System.Drawing.Size(0, 22)
|
||||
Me.StatusStrip1.Name = "StatusStrip1"
|
||||
@@ -724,33 +740,37 @@ Partial Class Form1
|
||||
'
|
||||
Me.TableLayoutPanel3.ColumnCount = 1
|
||||
Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
|
||||
Me.TableLayoutPanel3.Controls.Add(Me.tBoxInfo, 0, 1)
|
||||
Me.TableLayoutPanel3.Controls.Add(Me.tboxCmd, 0, 2)
|
||||
Me.TableLayoutPanel3.Controls.Add(Me.TreeView1, 0, 0)
|
||||
Me.TableLayoutPanel3.Controls.Add(Me.tBoxInfo, 0, 2)
|
||||
Me.TableLayoutPanel3.Controls.Add(Me.tboxCmd, 0, 3)
|
||||
Me.TableLayoutPanel3.Controls.Add(Me.TreeView1, 0, 1)
|
||||
Me.TableLayoutPanel3.Controls.Add(Me.Panel1, 0, 0)
|
||||
Me.TableLayoutPanel3.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.TableLayoutPanel3.Location = New System.Drawing.Point(853, 83)
|
||||
Me.TableLayoutPanel3.Name = "TableLayoutPanel3"
|
||||
Me.TableLayoutPanel3.RowCount = 3
|
||||
Me.TableLayoutPanel3.RowCount = 4
|
||||
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, 60.0!))
|
||||
Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 40.0!))
|
||||
Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 80.0!))
|
||||
Me.TableLayoutPanel3.Size = New System.Drawing.Size(200, 365)
|
||||
Me.TableLayoutPanel3.Size = New System.Drawing.Size(200, 425)
|
||||
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, 174)
|
||||
Me.tBoxInfo.Location = New System.Drawing.Point(3, 230)
|
||||
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, 108)
|
||||
Me.tBoxInfo.Size = New System.Drawing.Size(194, 112)
|
||||
Me.tBoxInfo.TabIndex = 24
|
||||
'
|
||||
'tboxCmd
|
||||
'
|
||||
Me.tboxCmd.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.tboxCmd.Location = New System.Drawing.Point(3, 288)
|
||||
Me.tboxCmd.Location = New System.Drawing.Point(3, 348)
|
||||
Me.tboxCmd.Multiline = True
|
||||
Me.tboxCmd.Name = "tboxCmd"
|
||||
Me.tboxCmd.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
|
||||
@@ -764,10 +784,10 @@ Partial Class Form1
|
||||
Me.TreeView1.HideSelection = False
|
||||
Me.TreeView1.ImageIndex = 0
|
||||
Me.TreeView1.ImageList = Me.ImageList1
|
||||
Me.TreeView1.Location = New System.Drawing.Point(3, 3)
|
||||
Me.TreeView1.Location = New System.Drawing.Point(3, 53)
|
||||
Me.TreeView1.Name = "TreeView1"
|
||||
Me.TreeView1.SelectedImageIndex = 0
|
||||
Me.TreeView1.Size = New System.Drawing.Size(194, 165)
|
||||
Me.TreeView1.Size = New System.Drawing.Size(194, 171)
|
||||
Me.TreeView1.TabIndex = 0
|
||||
'
|
||||
'ImageList1
|
||||
@@ -777,20 +797,87 @@ Partial Class Form1
|
||||
Me.ImageList1.Images.SetKeyName(0, "Maters.ico")
|
||||
Me.ImageList1.Images.SetKeyName(1, "NoGeo.ico")
|
||||
Me.ImageList1.Images.SetKeyName(2, "Group.ico")
|
||||
Me.ImageList1.Images.SetKeyName(3, "Vector.ico")
|
||||
Me.ImageList1.Images.SetKeyName(4, "Point.ico")
|
||||
Me.ImageList1.Images.SetKeyName(5, "Frame.ico")
|
||||
Me.ImageList1.Images.SetKeyName(6, "Line.ico")
|
||||
Me.ImageList1.Images.SetKeyName(7, "Arc.ico")
|
||||
Me.ImageList1.Images.SetKeyName(8, "CBezier.ico")
|
||||
Me.ImageList1.Images.SetKeyName(9, "CCompo.ico")
|
||||
Me.ImageList1.Images.SetKeyName(10, "STriMesh.ico")
|
||||
Me.ImageList1.Images.SetKeyName(11, "text.ico")
|
||||
Me.ImageList1.Images.SetKeyName(3, "Part.ico")
|
||||
Me.ImageList1.Images.SetKeyName(4, "Layer.ico")
|
||||
Me.ImageList1.Images.SetKeyName(5, "Vector.ico")
|
||||
Me.ImageList1.Images.SetKeyName(6, "Point.ico")
|
||||
Me.ImageList1.Images.SetKeyName(7, "Frame.ico")
|
||||
Me.ImageList1.Images.SetKeyName(8, "Line.ico")
|
||||
Me.ImageList1.Images.SetKeyName(9, "Arc.ico")
|
||||
Me.ImageList1.Images.SetKeyName(10, "CBezier.ico")
|
||||
Me.ImageList1.Images.SetKeyName(11, "CCompo.ico")
|
||||
Me.ImageList1.Images.SetKeyName(12, "STriMesh.ico")
|
||||
Me.ImageList1.Images.SetKeyName(13, "text.ico")
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.AutoSize = True
|
||||
Me.Panel1.Controls.Add(Me.txtColor)
|
||||
Me.Panel1.Controls.Add(Me.btnColor)
|
||||
Me.Panel1.Controls.Add(Me.btnNewLayer)
|
||||
Me.Panel1.Controls.Add(Me.txtPartLay)
|
||||
Me.Panel1.Controls.Add(Me.btnNewPart)
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel1.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(200, 50)
|
||||
Me.Panel1.TabIndex = 25
|
||||
'
|
||||
'txtColor
|
||||
'
|
||||
Me.txtColor.BackColor = System.Drawing.SystemColors.ControlLightLight
|
||||
Me.txtColor.Location = New System.Drawing.Point(171, 0)
|
||||
Me.txtColor.Name = "txtColor"
|
||||
Me.txtColor.ReadOnly = True
|
||||
Me.txtColor.Size = New System.Drawing.Size(26, 20)
|
||||
Me.txtColor.TabIndex = 1
|
||||
'
|
||||
'btnColor
|
||||
'
|
||||
Me.btnColor.Location = New System.Drawing.Point(146, 23)
|
||||
Me.btnColor.Name = "btnColor"
|
||||
Me.btnColor.Size = New System.Drawing.Size(51, 24)
|
||||
Me.btnColor.TabIndex = 28
|
||||
Me.btnColor.Text = "Color"
|
||||
Me.btnColor.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnNewLayer
|
||||
'
|
||||
Me.btnNewLayer.Location = New System.Drawing.Point(73, 23)
|
||||
Me.btnNewLayer.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnNewLayer.Name = "btnNewLayer"
|
||||
Me.btnNewLayer.Size = New System.Drawing.Size(70, 24)
|
||||
Me.btnNewLayer.TabIndex = 27
|
||||
Me.btnNewLayer.Text = "New Layer"
|
||||
Me.btnNewLayer.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtPartLay
|
||||
'
|
||||
Me.txtPartLay.BackColor = System.Drawing.SystemColors.ControlLightLight
|
||||
Me.txtPartLay.Location = New System.Drawing.Point(0, 0)
|
||||
Me.txtPartLay.Margin = New System.Windows.Forms.Padding(2, 0, 2, 2)
|
||||
Me.txtPartLay.Name = "txtPartLay"
|
||||
Me.txtPartLay.ReadOnly = True
|
||||
Me.txtPartLay.Size = New System.Drawing.Size(173, 20)
|
||||
Me.txtPartLay.TabIndex = 25
|
||||
'
|
||||
'btnNewPart
|
||||
'
|
||||
Me.btnNewPart.Location = New System.Drawing.Point(0, 23)
|
||||
Me.btnNewPart.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.btnNewPart.Name = "btnNewPart"
|
||||
Me.btnNewPart.Size = New System.Drawing.Size(70, 24)
|
||||
Me.btnNewPart.TabIndex = 26
|
||||
Me.btnNewPart.Text = "New Part"
|
||||
Me.btnNewPart.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TabControl2
|
||||
'
|
||||
Me.TabControl2.Alignment = System.Windows.Forms.TabAlignment.Left
|
||||
Me.TabControl2.Controls.Add(Me.TabDraw)
|
||||
Me.TabControl2.Controls.Add(Me.TabConstruct)
|
||||
Me.TabControl2.Controls.Add(Me.TabEdit)
|
||||
Me.TabControl2.Controls.Add(Me.TabTransform)
|
||||
Me.TabControl2.Controls.Add(Me.TabTest)
|
||||
Me.TabControl2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.TabControl2.HotTrack = True
|
||||
@@ -798,74 +885,158 @@ Partial Class Form1
|
||||
Me.TabControl2.Multiline = True
|
||||
Me.TabControl2.Name = "TabControl2"
|
||||
Me.TabControl2.SelectedIndex = 0
|
||||
Me.TabControl2.Size = New System.Drawing.Size(83, 365)
|
||||
Me.TabControl2.Size = New System.Drawing.Size(83, 425)
|
||||
Me.TabControl2.TabIndex = 10
|
||||
'
|
||||
'TabDraw
|
||||
'
|
||||
Me.TabDraw.BackColor = System.Drawing.SystemColors.Control
|
||||
Me.TabDraw.Controls.Add(Me.btnArc3P)
|
||||
Me.TabDraw.Controls.Add(Me.btnArcCSE)
|
||||
Me.TabDraw.Controls.Add(Me.btnPoint)
|
||||
Me.TabDraw.Controls.Add(Me.btnLine2P)
|
||||
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, 357)
|
||||
Me.TabDraw.Size = New System.Drawing.Size(56, 417)
|
||||
Me.TabDraw.TabIndex = 0
|
||||
Me.TabDraw.Text = "Draw"
|
||||
'
|
||||
'TabTest
|
||||
'btnArc3P
|
||||
'
|
||||
Me.TabTest.BackColor = System.Drawing.SystemColors.Control
|
||||
Me.TabTest.Controls.Add(Me.btnMove)
|
||||
Me.TabTest.Controls.Add(Me.btnRotM90)
|
||||
Me.TabTest.Controls.Add(Me.btnRotP90)
|
||||
Me.TabTest.Controls.Add(Me.btnMirror)
|
||||
Me.TabTest.Location = New System.Drawing.Point(23, 4)
|
||||
Me.TabTest.Name = "TabTest"
|
||||
Me.TabTest.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabTest.Size = New System.Drawing.Size(56, 357)
|
||||
Me.TabTest.TabIndex = 1
|
||||
Me.TabTest.Text = "Test"
|
||||
Me.btnArc3P.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
|
||||
Me.btnArc3P.FlatAppearance.BorderSize = 0
|
||||
Me.btnArc3P.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
|
||||
Me.btnArc3P.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
|
||||
Me.btnArc3P.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnArc3P.Image = Global.TestEIn.My.Resources.Resources.Arc3P
|
||||
Me.btnArc3P.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnArc3P.Location = New System.Drawing.Point(0, 144)
|
||||
Me.btnArc3P.Name = "btnArc3P"
|
||||
Me.btnArc3P.Size = New System.Drawing.Size(56, 48)
|
||||
Me.btnArc3P.TabIndex = 33
|
||||
Me.btnArc3P.Text = "Arc 3p"
|
||||
Me.btnArc3P.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnArc3P.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnMove
|
||||
'btnArcCSE
|
||||
'
|
||||
Me.btnMove.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
|
||||
Me.btnMove.FlatAppearance.BorderSize = 0
|
||||
Me.btnMove.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
|
||||
Me.btnMove.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
|
||||
Me.btnMove.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnMove.Location = New System.Drawing.Point(0, 144)
|
||||
Me.btnMove.Name = "btnMove"
|
||||
Me.btnMove.Size = New System.Drawing.Size(56, 48)
|
||||
Me.btnMove.TabIndex = 29
|
||||
Me.btnMove.Text = "Move"
|
||||
Me.btnMove.UseVisualStyleBackColor = False
|
||||
Me.btnArcCSE.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
|
||||
Me.btnArcCSE.FlatAppearance.BorderSize = 0
|
||||
Me.btnArcCSE.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
|
||||
Me.btnArcCSE.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
|
||||
Me.btnArcCSE.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnArcCSE.Image = Global.TestEIn.My.Resources.Resources.ArcCSE
|
||||
Me.btnArcCSE.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnArcCSE.Location = New System.Drawing.Point(0, 96)
|
||||
Me.btnArcCSE.Name = "btnArcCSE"
|
||||
Me.btnArcCSE.Size = New System.Drawing.Size(56, 48)
|
||||
Me.btnArcCSE.TabIndex = 32
|
||||
Me.btnArcCSE.Text = "Arc cse"
|
||||
Me.btnArcCSE.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnArcCSE.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnRotM90
|
||||
'btnPoint
|
||||
'
|
||||
Me.btnRotM90.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
|
||||
Me.btnRotM90.FlatAppearance.BorderSize = 0
|
||||
Me.btnRotM90.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
|
||||
Me.btnRotM90.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
|
||||
Me.btnRotM90.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnRotM90.Location = New System.Drawing.Point(0, 96)
|
||||
Me.btnRotM90.Name = "btnRotM90"
|
||||
Me.btnRotM90.Size = New System.Drawing.Size(56, 48)
|
||||
Me.btnRotM90.TabIndex = 27
|
||||
Me.btnRotM90.Text = "Rot-90"
|
||||
Me.btnRotM90.UseVisualStyleBackColor = False
|
||||
Me.btnPoint.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
|
||||
Me.btnPoint.FlatAppearance.BorderSize = 0
|
||||
Me.btnPoint.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
|
||||
Me.btnPoint.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
|
||||
Me.btnPoint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnPoint.Image = Global.TestEIn.My.Resources.Resources.Point
|
||||
Me.btnPoint.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnPoint.Location = New System.Drawing.Point(0, 0)
|
||||
Me.btnPoint.Name = "btnPoint"
|
||||
Me.btnPoint.Size = New System.Drawing.Size(56, 48)
|
||||
Me.btnPoint.TabIndex = 31
|
||||
Me.btnPoint.Text = "Point"
|
||||
Me.btnPoint.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnPoint.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnRotP90
|
||||
'btnLine2P
|
||||
'
|
||||
Me.btnRotP90.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
|
||||
Me.btnRotP90.FlatAppearance.BorderSize = 0
|
||||
Me.btnRotP90.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
|
||||
Me.btnRotP90.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
|
||||
Me.btnRotP90.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnRotP90.Location = New System.Drawing.Point(0, 0)
|
||||
Me.btnRotP90.Name = "btnRotP90"
|
||||
Me.btnRotP90.Size = New System.Drawing.Size(56, 48)
|
||||
Me.btnRotP90.TabIndex = 26
|
||||
Me.btnRotP90.Text = "Rot+90"
|
||||
Me.btnRotP90.UseVisualStyleBackColor = False
|
||||
Me.btnLine2P.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
|
||||
Me.btnLine2P.FlatAppearance.BorderSize = 0
|
||||
Me.btnLine2P.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
|
||||
Me.btnLine2P.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
|
||||
Me.btnLine2P.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnLine2P.Image = Global.TestEIn.My.Resources.Resources.Line2P
|
||||
Me.btnLine2P.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnLine2P.Location = New System.Drawing.Point(0, 48)
|
||||
Me.btnLine2P.Name = "btnLine2P"
|
||||
Me.btnLine2P.Size = New System.Drawing.Size(56, 48)
|
||||
Me.btnLine2P.TabIndex = 30
|
||||
Me.btnLine2P.Text = "Line 2p"
|
||||
Me.btnLine2P.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnLine2P.UseVisualStyleBackColor = False
|
||||
'
|
||||
'TabConstruct
|
||||
'
|
||||
Me.TabConstruct.BackColor = System.Drawing.SystemColors.Control
|
||||
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, 417)
|
||||
Me.TabConstruct.TabIndex = 4
|
||||
Me.TabConstruct.Text = "Construct"
|
||||
'
|
||||
'btnPlane
|
||||
'
|
||||
Me.btnPlane.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
|
||||
Me.btnPlane.FlatAppearance.BorderSize = 0
|
||||
Me.btnPlane.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
|
||||
Me.btnPlane.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
|
||||
Me.btnPlane.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnPlane.Image = Global.TestEIn.My.Resources.Resources.Plane
|
||||
Me.btnPlane.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnPlane.Location = New System.Drawing.Point(0, 0)
|
||||
Me.btnPlane.Name = "btnPlane"
|
||||
Me.btnPlane.Size = New System.Drawing.Size(56, 48)
|
||||
Me.btnPlane.TabIndex = 33
|
||||
Me.btnPlane.Text = "Plane"
|
||||
Me.btnPlane.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnPlane.UseVisualStyleBackColor = False
|
||||
'
|
||||
'TabEdit
|
||||
'
|
||||
Me.TabEdit.BackColor = System.Drawing.SystemColors.Control
|
||||
Me.TabEdit.Controls.Add(Me.btnInvertCurve)
|
||||
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, 417)
|
||||
Me.TabEdit.TabIndex = 3
|
||||
Me.TabEdit.Text = "Edit"
|
||||
'
|
||||
'btnDelete
|
||||
'
|
||||
Me.btnDelete.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
|
||||
Me.btnDelete.FlatAppearance.BorderSize = 0
|
||||
Me.btnDelete.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
|
||||
Me.btnDelete.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
|
||||
Me.btnDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnDelete.Image = Global.TestEIn.My.Resources.Resources.Delete
|
||||
Me.btnDelete.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnDelete.Location = New System.Drawing.Point(0, 0)
|
||||
Me.btnDelete.Name = "btnDelete"
|
||||
Me.btnDelete.Size = New System.Drawing.Size(56, 48)
|
||||
Me.btnDelete.TabIndex = 30
|
||||
Me.btnDelete.Text = "Delete"
|
||||
Me.btnDelete.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnDelete.UseVisualStyleBackColor = False
|
||||
'
|
||||
'TabTransform
|
||||
'
|
||||
Me.TabTransform.BackColor = System.Drawing.SystemColors.Control
|
||||
Me.TabTransform.Controls.Add(Me.btnMirror)
|
||||
Me.TabTransform.Controls.Add(Me.btnCopy)
|
||||
Me.TabTransform.Controls.Add(Me.btnRotate)
|
||||
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, 417)
|
||||
Me.TabTransform.TabIndex = 2
|
||||
Me.TabTransform.Text = "Transform"
|
||||
'
|
||||
'btnMirror
|
||||
'
|
||||
@@ -874,13 +1045,122 @@ Partial Class Form1
|
||||
Me.btnMirror.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
|
||||
Me.btnMirror.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
|
||||
Me.btnMirror.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnMirror.Location = New System.Drawing.Point(0, 48)
|
||||
Me.btnMirror.Image = Global.TestEIn.My.Resources.Resources.Mirror
|
||||
Me.btnMirror.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnMirror.Location = New System.Drawing.Point(0, 144)
|
||||
Me.btnMirror.Name = "btnMirror"
|
||||
Me.btnMirror.Size = New System.Drawing.Size(56, 48)
|
||||
Me.btnMirror.TabIndex = 28
|
||||
Me.btnMirror.TabIndex = 32
|
||||
Me.btnMirror.Text = "Mirror"
|
||||
Me.btnMirror.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnMirror.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnCopy
|
||||
'
|
||||
Me.btnCopy.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
|
||||
Me.btnCopy.FlatAppearance.BorderSize = 0
|
||||
Me.btnCopy.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
|
||||
Me.btnCopy.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
|
||||
Me.btnCopy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnCopy.Image = Global.TestEIn.My.Resources.Resources.Copy
|
||||
Me.btnCopy.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnCopy.Location = New System.Drawing.Point(0, 48)
|
||||
Me.btnCopy.Name = "btnCopy"
|
||||
Me.btnCopy.Size = New System.Drawing.Size(56, 48)
|
||||
Me.btnCopy.TabIndex = 31
|
||||
Me.btnCopy.Text = "Copy"
|
||||
Me.btnCopy.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnCopy.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnRotate
|
||||
'
|
||||
Me.btnRotate.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
|
||||
Me.btnRotate.FlatAppearance.BorderSize = 0
|
||||
Me.btnRotate.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
|
||||
Me.btnRotate.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
|
||||
Me.btnRotate.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnRotate.Image = Global.TestEIn.My.Resources.Resources.Rotate
|
||||
Me.btnRotate.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnRotate.Location = New System.Drawing.Point(0, 96)
|
||||
Me.btnRotate.Name = "btnRotate"
|
||||
Me.btnRotate.Size = New System.Drawing.Size(56, 48)
|
||||
Me.btnRotate.TabIndex = 30
|
||||
Me.btnRotate.Text = "Rotate"
|
||||
Me.btnRotate.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnRotate.UseVisualStyleBackColor = False
|
||||
'
|
||||
'btnMove
|
||||
'
|
||||
Me.btnMove.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
|
||||
Me.btnMove.FlatAppearance.BorderSize = 0
|
||||
Me.btnMove.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
|
||||
Me.btnMove.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
|
||||
Me.btnMove.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnMove.Image = Global.TestEIn.My.Resources.Resources.Move
|
||||
Me.btnMove.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnMove.Location = New System.Drawing.Point(0, 0)
|
||||
Me.btnMove.Name = "btnMove"
|
||||
Me.btnMove.Size = New System.Drawing.Size(56, 48)
|
||||
Me.btnMove.TabIndex = 29
|
||||
Me.btnMove.Text = "Move"
|
||||
Me.btnMove.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnMove.UseVisualStyleBackColor = False
|
||||
'
|
||||
'TabTest
|
||||
'
|
||||
Me.TabTest.BackColor = System.Drawing.SystemColors.Control
|
||||
Me.TabTest.Controls.Add(Me.XbtnRotM90)
|
||||
Me.TabTest.Controls.Add(Me.XbtnRotP90)
|
||||
Me.TabTest.Controls.Add(Me.XbtnMirror)
|
||||
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, 417)
|
||||
Me.TabTest.TabIndex = 1
|
||||
Me.TabTest.Text = "Test"
|
||||
'
|
||||
'XbtnRotM90
|
||||
'
|
||||
Me.XbtnRotM90.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
|
||||
Me.XbtnRotM90.FlatAppearance.BorderSize = 0
|
||||
Me.XbtnRotM90.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
|
||||
Me.XbtnRotM90.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
|
||||
Me.XbtnRotM90.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.XbtnRotM90.Location = New System.Drawing.Point(0, 96)
|
||||
Me.XbtnRotM90.Name = "XbtnRotM90"
|
||||
Me.XbtnRotM90.Size = New System.Drawing.Size(56, 48)
|
||||
Me.XbtnRotM90.TabIndex = 27
|
||||
Me.XbtnRotM90.Text = "Rot-90"
|
||||
Me.XbtnRotM90.UseVisualStyleBackColor = False
|
||||
'
|
||||
'XbtnRotP90
|
||||
'
|
||||
Me.XbtnRotP90.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
|
||||
Me.XbtnRotP90.FlatAppearance.BorderSize = 0
|
||||
Me.XbtnRotP90.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
|
||||
Me.XbtnRotP90.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
|
||||
Me.XbtnRotP90.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.XbtnRotP90.Location = New System.Drawing.Point(0, 0)
|
||||
Me.XbtnRotP90.Name = "XbtnRotP90"
|
||||
Me.XbtnRotP90.Size = New System.Drawing.Size(56, 48)
|
||||
Me.XbtnRotP90.TabIndex = 26
|
||||
Me.XbtnRotP90.Text = "Rot+90"
|
||||
Me.XbtnRotP90.UseVisualStyleBackColor = False
|
||||
'
|
||||
'XbtnMirror
|
||||
'
|
||||
Me.XbtnMirror.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
|
||||
Me.XbtnMirror.FlatAppearance.BorderSize = 0
|
||||
Me.XbtnMirror.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
|
||||
Me.XbtnMirror.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
|
||||
Me.XbtnMirror.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.XbtnMirror.Location = New System.Drawing.Point(0, 48)
|
||||
Me.XbtnMirror.Name = "XbtnMirror"
|
||||
Me.XbtnMirror.Size = New System.Drawing.Size(56, 48)
|
||||
Me.XbtnMirror.TabIndex = 28
|
||||
Me.XbtnMirror.Text = "Mirror"
|
||||
Me.XbtnMirror.UseVisualStyleBackColor = False
|
||||
'
|
||||
'OpenFileDialog
|
||||
'
|
||||
Me.OpenFileDialog.DefaultExt = "Nge"
|
||||
@@ -900,13 +1180,44 @@ Partial Class Form1
|
||||
Me.btnGetDist.Text = "Get Dist"
|
||||
Me.btnGetDist.UseVisualStyleBackColor = True
|
||||
'
|
||||
'ObjTreeTimer
|
||||
'
|
||||
Me.ObjTreeTimer.Interval = 2000
|
||||
'
|
||||
'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(755, 425)
|
||||
Me.Scene1.TabIndex = 1
|
||||
'
|
||||
'btnInvertCurve
|
||||
'
|
||||
Me.btnInvertCurve.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control
|
||||
Me.btnInvertCurve.FlatAppearance.BorderSize = 0
|
||||
Me.btnInvertCurve.FlatAppearance.MouseDownBackColor = System.Drawing.SystemColors.Control
|
||||
Me.btnInvertCurve.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.GradientInactiveCaption
|
||||
Me.btnInvertCurve.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnInvertCurve.Image = Global.TestEIn.My.Resources.Resources.InvertCurve
|
||||
Me.btnInvertCurve.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.btnInvertCurve.Location = New System.Drawing.Point(0, 48)
|
||||
Me.btnInvertCurve.Name = "btnInvertCurve"
|
||||
Me.btnInvertCurve.Size = New System.Drawing.Size(56, 48)
|
||||
Me.btnInvertCurve.TabIndex = 31
|
||||
Me.btnInvertCurve.Text = "Invert"
|
||||
Me.btnInvertCurve.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnInvertCurve.UseVisualStyleBackColor = False
|
||||
'
|
||||
'Form1
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.AutoSize = True
|
||||
Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
|
||||
Me.ClientSize = New System.Drawing.Size(1056, 473)
|
||||
Me.ClientSize = New System.Drawing.Size(1056, 533)
|
||||
Me.Controls.Add(Me.TableLayoutPanel1)
|
||||
Me.Cursor = System.Windows.Forms.Cursors.Arrow
|
||||
Me.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
@@ -931,7 +1242,13 @@ Partial Class Form1
|
||||
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.TableLayoutPanel3.ResumeLayout(False)
|
||||
Me.TableLayoutPanel3.PerformLayout()
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
Me.TabControl2.ResumeLayout(False)
|
||||
Me.TabDraw.ResumeLayout(False)
|
||||
Me.TabConstruct.ResumeLayout(False)
|
||||
Me.TabEdit.ResumeLayout(False)
|
||||
Me.TabTransform.ResumeLayout(False)
|
||||
Me.TabTest.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
@@ -950,9 +1267,9 @@ End Sub
|
||||
Friend WithEvents ToolStripStatusOutput As System.Windows.Forms.ToolStripStatusLabel
|
||||
Friend WithEvents ToolStripStatusOnL As System.Windows.Forms.ToolStripStatusLabel
|
||||
Friend WithEvents ToolStripStatusOnR As System.Windows.Forms.ToolStripStatusLabel
|
||||
Friend WithEvents btnRotM90 As System.Windows.Forms.Button
|
||||
Friend WithEvents btnRotP90 As System.Windows.Forms.Button
|
||||
Friend WithEvents btnMirror As System.Windows.Forms.Button
|
||||
Friend WithEvents XbtnRotM90 As System.Windows.Forms.Button
|
||||
Friend WithEvents XbtnRotP90 As System.Windows.Forms.Button
|
||||
Friend WithEvents XbtnMirror As System.Windows.Forms.Button
|
||||
Friend WithEvents TableLayoutPanel3 As System.Windows.Forms.TableLayoutPanel
|
||||
Friend WithEvents TabControl2 As System.Windows.Forms.TabControl
|
||||
Friend WithEvents TabDraw As System.Windows.Forms.TabPage
|
||||
@@ -990,5 +1307,26 @@ End Sub
|
||||
Friend WithEvents btnZoomIn As System.Windows.Forms.Button
|
||||
Friend WithEvents btnTop As System.Windows.Forms.Button
|
||||
Friend WithEvents btnMove As System.Windows.Forms.Button
|
||||
Friend WithEvents TabTransform As System.Windows.Forms.TabPage
|
||||
Friend WithEvents TabEdit As System.Windows.Forms.TabPage
|
||||
Friend WithEvents btnRotate As System.Windows.Forms.Button
|
||||
Friend WithEvents btnLine2P As System.Windows.Forms.Button
|
||||
Friend WithEvents btnPoint As System.Windows.Forms.Button
|
||||
Friend WithEvents btnArcCSE As System.Windows.Forms.Button
|
||||
Friend WithEvents ObjTreeTimer As System.Windows.Forms.Timer
|
||||
Friend WithEvents btnDelete As System.Windows.Forms.Button
|
||||
Friend WithEvents btnArc3P As System.Windows.Forms.Button
|
||||
Friend WithEvents txtPartLay As System.Windows.Forms.TextBox
|
||||
Friend WithEvents btnNewPart As System.Windows.Forms.Button
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents btnNewLayer As System.Windows.Forms.Button
|
||||
Friend WithEvents btnColor As System.Windows.Forms.Button
|
||||
Friend WithEvents ColorDialog1 As System.Windows.Forms.ColorDialog
|
||||
Friend WithEvents txtColor As System.Windows.Forms.TextBox
|
||||
Friend WithEvents TabConstruct As System.Windows.Forms.TabPage
|
||||
Friend WithEvents btnCopy As System.Windows.Forms.Button
|
||||
Friend WithEvents btnMirror As System.Windows.Forms.Button
|
||||
Friend WithEvents btnPlane As System.Windows.Forms.Button
|
||||
Friend WithEvents btnInvertCurve As System.Windows.Forms.Button
|
||||
|
||||
End Class
|
||||
|
||||
+39
-29
@@ -159,8 +159,8 @@
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADS
|
||||
DAAAAk1TRnQBSQFMAgEBDAEAAWABBQFgAQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAC4
|
||||
DQAAAk1TRnQBSQFMAgEBDgEAARABBwEQAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAAUADAAEBAQABCAYAARAYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||
@@ -188,33 +188,37 @@
|
||||
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
|
||||
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
|
||||
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
|
||||
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8AXAAG/AUA
|
||||
C/wqAAf8BAAC/AcAAvwHAAf8BgAC/BkAAvwDAAH8AgAB/AUAAfwBAAH8CQAD/AgAAvwaAAL8AgAB/AMA
|
||||
AfwDAAH8AgAB/AkAA/wIAAL8BQAF/BAAAvwCAAH8BAAB/AEAAfwDAAH8CQAD/AgAAvwEAAf8AwAC/AoA
|
||||
AvwCAAH8BAAC/AQAAfwJAAP8CAAD/AIAA/wDAAL8AwAC/AoAAvwBAAH8AQAE/AEAAvwEAAH8CAAD/AkA
|
||||
BvwFAAL8AgAC/AoAAvwBAAL8BQAB/AEAAfwDAAH8CAAD/AoAA/wHAAL8AgAC/AoAAvwCAAH8BQAB/AIA
|
||||
AfwCAAH8CAAD/BQAAvwCAAL8CgAC/AMAAfwDAAH8BAAB/AEAAfwIAAP8FAAC/AIAAvwKAAL8BAAC/AEA
|
||||
AfwFAAL8BAAB/AMAA/wDAAH8FAAD/AgAA/wGAAL8AwAE/AQAAfwDAAP8AwAB/BUADPwIAAT8CAAL/BYA
|
||||
CfyAAAH5PwAC+RQAAvwhAAr5DQAC/AQAAvwhAAr5DAAD/AQAAvwgAAL6BgAC+QwAA/wFAAL8EwAC/AkA
|
||||
AvwD+gUAAfkMAAP8BgAD/BEABPwIAAL8AQAD+hAAA/wIAAL8EAAG/AcAAvwCAAP6DgAD/AkAA/wPAAb8
|
||||
BwAC/AMAA/oBAAH6CgAD/AsAA/wPAAT8CAAC/AQABPoJAAP8DAAD/BAAAvwJAAL8BQAD+ggAA/wOAAT8
|
||||
GQAC/AQABPoHAAP8EAAF/BUABvwMAAP8EwAH/BIABPwNAAL8FgAF/BMAAvyuAAP5A/oD+wP8NAAD+QP6
|
||||
A/sD/BcABPwZAAP5A/oD+wP8CQAC+QsABPwCAAL5BwAC/A0AA/kD+gP7A/wJAAL5CgAE/AEAA/kIAAP8
|
||||
DAAD+QP6A/sD/BYAAvwBAAL5AwACBAYAA/wLAAP5A/oD+wP8CQAC+QwAAvkCAAP6AgQHAAP8CgAD+QP6
|
||||
A/sD/AkAAvkLAAL5AQAE+gEAAgQIAAP8AgAC/AUAA/kD+gP7A/wKAAL5CAAD+QT6AwACBAkAA/wBAAL8
|
||||
BQAD+QP6A/sD/AsAAvkGAAL5AgAC+gUAAgQKAAX8BQAD+QP6A/sD/AcAAvkCAAL5CQAC+gIAAwcOAAT8
|
||||
BQAD+QP6A/sD/AcAAvkCAAL5CQAC+gIAAwcMAAb8BQAD+QP6A/sD/AgABPkLAAH6EQAG/AUAA/kD+gP7
|
||||
A/w0AAP5A/oD+wP8cgABQgFNAT4HAAE+AwABKAMAAUADAAFAAwABAQEAAQEGAAECFgAD/4EACv8B/gEH
|
||||
AcABBwT/Af4BAwHPAecB8AEfAZ8C/wHzAbcB1wH8AX8BnwL/AfkBuwG3AfwBfwGfAQcB/wH5Ab0BdwH8
|
||||
AX8BngEDAZ8B+QG8AfcB/AF/AYwBcwGfAfkBQgF7AfwBfwHAAfkBnwH5AT4BuwH8AX8B4wH5AZ8B+QG+
|
||||
AdsB/AF/Af8B+QGfAfkB3QHrAfwBfwH/AfkBnwH5AeUB8wHcAXcC/wGPAfEB+QHDAdwBdwL/AcABAwH8
|
||||
AT8BwAEHAv8B4AEPD/8B9wb/Ac8B8wL/Ac8D/wGAAQEB/wHzAc8D/wGAAQEB/wHjAc8D/wHDAfMB/wHH
|
||||
Ac8B/wH+AX8BwQH3Af8BjwHHAf8B/AE/AcgC/wEfAecB/wH4AR8BzAF/Af4BPwHjAf8B+AEfAc4BLwH8
|
||||
AX8B8QH/AfwBPwHPAQ8B+AH/AfEB/wH+AX8BzwGPAfEB/wH4AX8C/wHPAQ8B4wH/AfwBHwL/AQMB/wHH
|
||||
Av8BAQL/AYcB/wHPAv8BwQL/Ac8V/wHAAQMC/wH4AR8C/wHAAQMC/wHgAWcC/wHAAQMB/gF/AdABywHn
|
||||
Af8BwAEDAf4BfwGhAR0B4wH/AcABAwL/AbIBcQHxAf8BwAEDAf4BfwF5AYIB+AH/AcABAwH+AX8BcgES
|
||||
AfwBZwHAAQMB/wE/AUABcgH+AScBwAEDAf8BnwEZARIB/wEHAcABAwH5AZ8BsgENAf8BhwHAAQMB+QGf
|
||||
AbIBDQH+AQcBwAEDAfwBPwHbARsB/gEHAcABAwL/AucC/wHAAQMC/wH4AR8K/ws=
|
||||
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/0MAC/w1AAL8BwAC/AcA
|
||||
B/wmAAH8AgAB/AUAAfwBAAH8CQAD/CgAAfwDAAH8AwAB/AIAAfwJAAP8KAAB/AQAAfwBAAH8AwAB/AkA
|
||||
A/woAAH8BAAC/AQAAfwJAAP8JwAB/AEABPwBAAL8BAAB/AgAA/wnAAL8BQAB/AEAAfwDAAH8CAAD/CgA
|
||||
AfwFAAH8AgAB/AIAAfwIAAP8KQAB/AMAAfwEAAH8AQAB/AgAA/wqAAL8AQAB/AUAAvwEAAH8AwAD/AMA
|
||||
AfwoAAL8AwAE/AQAAfwDAAP8AwAB/CkABPwIAAv89QAC/CMABvwPAAL8BAAC/CMAB/wNAAP8BAAC/A0A
|
||||
AvwZAAL8DAAD/AUAAvwNAAL8GgAC/AoAA/wGAAP8DAAC/AUABfwQAAL8CQAD/AgAAvwMAAL8BAAH/AMA
|
||||
AvwKAAL8CAAD/AkAA/wLAAP8AgAD/AMAAvwDAAL8CgAC/AcAA/wLAAP8CwAG/AUAAvwCAAL8CgAC/AYA
|
||||
A/wMAAP8DAAD/AcAAvwCAAL8CgAC/AUAA/wOAAT8FAAC/AIAAvwKAAL8BAAD/BAABfwSAAL8AgAC/AoA
|
||||
AvwDAAP8EwAH/BIAA/wIAAP8AwAC/BYABfwTAAz8NQAJ/IAAAfk/AAL5NwAK+QIACNkKAAL8IAAK+QoA
|
||||
AdkJAAP8HgAC+gYAAvkMAAHZCQAD/BAAAvwJAAL8A/oFAAH5BAAI2QIAAdkJAAP8DgAE/AgAAvwBAAP6
|
||||
CgAI2QIAAdkJAAP8AgAC/AgABvwHAAL8AgAD+goACNkCAAHZCQAD/AEAAvwIAAb8BwAC/AMAA/oBAAH6
|
||||
CAAI2QIAAdkJAAX8CQAE/AgAAvwEAAT6CQAI2QwABPwKAAL8CQAC/AUAA/oKAAjZCQAG/BUAAvwEAAT6
|
||||
CwAI2QgABvwTAAb8OwAE/D0AAvyOAAP5A/oD+wP8NAAD+QP6A/sD/BcABPwIAAmsCAAD+QP6A/sD/AkA
|
||||
AvkLAAT8AgAC+QUACawBhQcAA/kD+gP7A/wJAAL5CgAE/AEAA/kGAAmsAoUGAAP5A/oD+wP8FgAC/AEA
|
||||
AvkDAAIEAwAJrAOFBQAD+QP6A/sD/AkAAvkMAAL5AgAD+gIEAwAJrASFBAAD+QP6A/sD/AkAAvkLAAL5
|
||||
AQAE+gEAAgQEAAjZBYUDAAP5A/oD+wP8CgAC+QgAA/kE+gMAAgQFAAjZBYUCAAP5A/oD+wP8CwAC+QYA
|
||||
AvkCAAL6BQACBAYACNkEhQIAA/kD+gP7A/wHAAL5AgAC+QkAAvoCAAMHCgAI2QOFAgAD+QP6A/sD/AcA
|
||||
AvkCAAL5CQAC+gIAAwcLAAjZAoUCAAP5A/oD+wP8CAAE+QsAAfoRAAjZAYUCAAP5A/oD+wP8NAAD+QP6
|
||||
A/sD/HIAAUIBTQE+BwABPgMAASgDAAFAAwABQAMAAQEBAAEBBgABAhYAA/8BAAT/BAABwAEHAv8EAAHP
|
||||
AecB8AEfBAABtwHXAfwBfwQAAbsBtwH8AX8EAAG9AXcB/AF/BAABvAH3AfwBfwQAAUIBewH8AX8EAAE+
|
||||
AbsB/AF/BAABvgHbAfwBfwQAAd0B6wH8AX8EAAHlAfMB3AF3BAAB+QHDAdwBdwQAAfwBPwHAAQcEAAT/
|
||||
BAAE/wQACv8BzwP/Af4BBwH/AfMBzwP/Af4BAwH/AeMBzwH/AZ8C/wHzAf8BxwHPAf8BnwL/AfkB/wGP
|
||||
AccB/wGfAQcB/wH5Af8BHwHnAf8BngEDAZ8B+QH+AT8B4wH/AYwBcwGfAfkB/AF/AfEB/wHAAfkBnwH5
|
||||
AfgB/wHxAf8B4wH5AZ8B+QHxAf8B+AF/Af8B+QGfAfkB4wH/AfwBHwH/AfkBnwH5AccC/wEBAv8BjwHx
|
||||
Ac8C/wHBAv8BwAEDBv8B4AEPD/8B9wb/Ac8B8wb/AYABAQGAAX8B5wP/AYABAQH/Ab8B4wP/AcMB8wH/
|
||||
Ad8B8QH/Af4BfwHBAfcBgAFvAfgB/wH8AT8ByAH/AcABNwH8AWcB+AEfAcwBfwHgARsB/gEnAfgBHwHO
|
||||
AS8B8AENAf8BBwH8AT8BzwEPAfgBBwH/AYcB/gF/Ac8BjwH8AQMB/gEHAv8BzwEPAf4BAQH+AQcC/wED
|
||||
B/8Bhwf/Ac8R/wHAAQMC/wH4AR8C/wHAAQMC/wHgAWcBgAE/AcABAwH+AX8B0AHLAYABHwHAAQMB/gF/
|
||||
AaEBHQGAAQ8BwAEDAv8BsgFxAYABBwHAAQMB/gF/AXkBggGAAQMBwAEDAf4BfwFyARIBwAEBAcABAwH/
|
||||
AT8BQAFyAeABAAHAAQMB/wGfARkBEgHwAQABwAEDAfkBnwGyAQ0B+AEAAcABAwH5AZ8BsgENAfwBAAHA
|
||||
AQMB/AE/AdsBGwH+AQABwAEDAv8C5wL/AcABAwL/AfgBHwr/Cw==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="OpenFileDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
@@ -223,6 +227,12 @@
|
||||
<metadata name="SaveFileDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>165, 7</value>
|
||||
</metadata>
|
||||
<metadata name="ObjTreeTimer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>508, 10</value>
|
||||
</metadata>
|
||||
<metadata name="ColorDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>634, 10</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>34</value>
|
||||
</metadata>
|
||||
|
||||
+2
-2
@@ -37,7 +37,7 @@ End Function
|
||||
Public Shared Function GetPrivateProfileColor(
|
||||
ByVal lpAppName As String,
|
||||
ByVal lpKeyName As String,
|
||||
ByRef Col As Color,
|
||||
ByRef Col As Color3d,
|
||||
ByVal lpFileName As String) As Boolean
|
||||
Dim sVal As String = String.Empty
|
||||
GetPrivateProfileString(lpAppName, lpKeyName, "", sVal, lpFileName)
|
||||
@@ -58,7 +58,7 @@ Public Shared Function GetPrivateProfileZoomWin(
|
||||
ByVal lpAppName As String,
|
||||
ByVal lpKeyName As String,
|
||||
ByRef bOutline As Boolean,
|
||||
ByRef Col As Color,
|
||||
ByRef Col As Color3d,
|
||||
ByVal lpFileName As String) As Boolean
|
||||
Dim sVal As String = String.Empty
|
||||
GetPrivateProfileString(lpAppName, lpKeyName, "", sVal, lpFileName)
|
||||
|
||||
@@ -43,5 +43,5 @@ Imports System.Runtime.InteropServices
|
||||
' utilizzando l'asterisco (*) come descritto di seguito:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.5.10.5")>
|
||||
<Assembly: AssemblyFileVersion("1.5.10.5")>
|
||||
<Assembly: AssemblyVersion("1.5.10.6")>
|
||||
<Assembly: AssemblyFileVersion("1.5.10.6")>
|
||||
|
||||
Generated
+110
@@ -80,6 +80,36 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Cerca una risorsa localizzata di tipo System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Arc3P() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Arc3P", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Cerca una risorsa localizzata di tipo System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property ArcCSE() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("ArcCSE", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Cerca una risorsa localizzata di tipo System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Copy() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Copy", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Cerca una risorsa localizzata di tipo System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
@@ -90,6 +120,16 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Cerca una risorsa localizzata di tipo System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Delete() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Delete", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Cerca una risorsa localizzata di tipo System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
@@ -130,6 +170,26 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Cerca una risorsa localizzata di tipo System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property InvertCurve() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("InvertCurve", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Cerca una risorsa localizzata di tipo System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Line2P() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Line2P", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Cerca una risorsa localizzata di tipo System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
@@ -220,6 +280,26 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Cerca una risorsa localizzata di tipo System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Mirror() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Mirror", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Cerca una risorsa localizzata di tipo System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Move() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Move", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Cerca una risorsa localizzata di tipo System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
@@ -230,6 +310,26 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Cerca una risorsa localizzata di tipo System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Plane() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Plane", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Cerca una risorsa localizzata di tipo System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Point() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Point", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Cerca una risorsa localizzata di tipo System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
@@ -260,6 +360,16 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Cerca una risorsa localizzata di tipo System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Rotate() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Rotate", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Cerca una risorsa localizzata di tipo System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
||||
+79
-46
@@ -118,38 +118,101 @@
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||
<data name="New" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\New.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="GetDist" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\GetDist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="LookFromBACK" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\LookFromBACK.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="Plane" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Plane.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Rotate" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Rotate.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Analyze" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Analyze.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="LookFromISO_NE" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\LookFromISO_NE.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="LookFromTOP" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\LookFromTOP.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Copy" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Copy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Line2P" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Line2P.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="LookFromBACK" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\LookFromBACK.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Mirror" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Mirror.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="LookFromISO_SE" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\LookFromISO_SE.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Import" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Import.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="RenderingWF" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\RenderingWF.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ZoomAll" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ZoomAll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="Move" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Move.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ZoomIn" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ZoomIn.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="LookFromRIGHT" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\LookFromRIGHT.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="LookFromLEFT" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\LookFromLEFT.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="CurveDir" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\CurveDir.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Point" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Point.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="RenderingHL" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\RenderingHL.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Exec" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Exec.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ZoomOut" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ZoomOut.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Export.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="New" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\New.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Import" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Import.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="SaveAs" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\SaveAs.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ZoomIn" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ZoomIn.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ArcCSE" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ArcCSE.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="LookFromLEFT" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\LookFromLEFT.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Save" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="LookFromRIGHT" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\LookFromRIGHT.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="Arc3P" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Arc3P.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="LookFromFRONT" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\LookFromFRONT.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ZoomAll" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ZoomAll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="RenderingSH" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\RenderingSH.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Open" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Open.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
@@ -157,40 +220,10 @@
|
||||
<data name="LookFromISO_SW" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\LookFromISO_SW.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="RenderingSH" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\RenderingSH.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="LookFromISO_NE" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\LookFromISO_NE.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="SaveAs" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\SaveAs.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="RenderingWF" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\RenderingWF.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="LookFromTOP" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\LookFromTOP.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Export.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="RenderingHL" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\RenderingHL.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="GetDist" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\GetDist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="LookFromISO_NW" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\LookFromISO_NW.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="ZoomOut" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ZoomOut.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="LookFromFRONT" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\LookFromFRONT.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="CurveDir" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\CurveDir.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="InvertCurve" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\InvertCurve.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
</root>
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 340 B |
Binary file not shown.
|
After Width: | Height: | Size: 382 B |
Binary file not shown.
|
After Width: | Height: | Size: 329 B |
Binary file not shown.
|
After Width: | Height: | Size: 1.0 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 326 B |
Binary file not shown.
|
After Width: | Height: | Size: 321 B |
Binary file not shown.
|
After Width: | Height: | Size: 273 B |
Binary file not shown.
|
After Width: | Height: | Size: 374 B |
Binary file not shown.
|
After Width: | Height: | Size: 277 B |
Binary file not shown.
|
After Width: | Height: | Size: 233 B |
Binary file not shown.
|
After Width: | Height: | Size: 334 B |
Binary file not shown.
|
After Width: | Height: | Size: 326 B |
Generated
+47
-8
@@ -24,21 +24,49 @@ Partial Class Scene
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.MenuScene = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.cmdSelectAll = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.cmdDeselectAll = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.SepSel1 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.cmdWinSelect = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.cmdEndPoint = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.cmdMidPoint = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.cmdCenterPoint = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.cmdNearPoint = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.cmdDeselectAll = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.cmdSketchPoint = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.cmdGridPoint = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.MenuScene.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MenuScene
|
||||
'
|
||||
Me.MenuScene.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cmdDeselectAll, Me.cmdEndPoint, Me.cmdMidPoint, Me.cmdCenterPoint, Me.cmdNearPoint})
|
||||
Me.MenuScene.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cmdSelectAll, Me.cmdDeselectAll, Me.SepSel1, Me.cmdWinSelect, Me.cmdSketchPoint, Me.cmdGridPoint, Me.cmdEndPoint, Me.cmdMidPoint, Me.cmdCenterPoint, Me.cmdNearPoint})
|
||||
Me.MenuScene.Name = "ContextMenuStrip1"
|
||||
Me.MenuScene.ShowCheckMargin = True
|
||||
Me.MenuScene.ShowImageMargin = False
|
||||
Me.MenuScene.Size = New System.Drawing.Size(153, 136)
|
||||
Me.MenuScene.Size = New System.Drawing.Size(153, 230)
|
||||
'
|
||||
'cmdSelectAll
|
||||
'
|
||||
Me.cmdSelectAll.Name = "cmdSelectAll"
|
||||
Me.cmdSelectAll.Size = New System.Drawing.Size(152, 22)
|
||||
Me.cmdSelectAll.Text = "Select All"
|
||||
'
|
||||
'cmdDeselectAll
|
||||
'
|
||||
Me.cmdDeselectAll.Name = "cmdDeselectAll"
|
||||
Me.cmdDeselectAll.Size = New System.Drawing.Size(152, 22)
|
||||
Me.cmdDeselectAll.Text = "Deselect All"
|
||||
'
|
||||
'SepSel1
|
||||
'
|
||||
Me.SepSel1.Name = "SepSel1"
|
||||
Me.SepSel1.Size = New System.Drawing.Size(149, 6)
|
||||
'
|
||||
'cmdWinSelect
|
||||
'
|
||||
Me.cmdWinSelect.Name = "cmdWinSelect"
|
||||
Me.cmdWinSelect.Size = New System.Drawing.Size(152, 22)
|
||||
Me.cmdWinSelect.Text = "Select Window"
|
||||
'
|
||||
'cmdEndPoint
|
||||
'
|
||||
@@ -50,7 +78,7 @@ Partial Class Scene
|
||||
'
|
||||
Me.cmdMidPoint.Name = "cmdMidPoint"
|
||||
Me.cmdMidPoint.Size = New System.Drawing.Size(152, 22)
|
||||
Me.cmdMidPoint.Text = "MidPoint"
|
||||
Me.cmdMidPoint.Text = "Mid Point"
|
||||
'
|
||||
'cmdCenterPoint
|
||||
'
|
||||
@@ -64,11 +92,17 @@ Partial Class Scene
|
||||
Me.cmdNearPoint.Size = New System.Drawing.Size(152, 22)
|
||||
Me.cmdNearPoint.Text = "Near Point"
|
||||
'
|
||||
'cmdDeselectAll
|
||||
'cmdSketchPoint
|
||||
'
|
||||
Me.cmdDeselectAll.Name = "cmdDeselectAll"
|
||||
Me.cmdDeselectAll.Size = New System.Drawing.Size(152, 22)
|
||||
Me.cmdDeselectAll.Text = "Deselect All"
|
||||
Me.cmdSketchPoint.Name = "cmdSketchPoint"
|
||||
Me.cmdSketchPoint.Size = New System.Drawing.Size(152, 22)
|
||||
Me.cmdSketchPoint.Text = "Sketch Point"
|
||||
'
|
||||
'cmdGridPoint
|
||||
'
|
||||
Me.cmdGridPoint.Name = "cmdGridPoint"
|
||||
Me.cmdGridPoint.Size = New System.Drawing.Size(152, 22)
|
||||
Me.cmdGridPoint.Text = "Grid Point"
|
||||
'
|
||||
'Scene
|
||||
'
|
||||
@@ -86,5 +120,10 @@ End Sub
|
||||
Friend WithEvents cmdCenterPoint As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents cmdNearPoint As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents cmdDeselectAll As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents cmdSelectAll As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents cmdWinSelect As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents SepSel1 As System.Windows.Forms.ToolStripSeparator
|
||||
Friend WithEvents cmdSketchPoint As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents cmdGridPoint As System.Windows.Forms.ToolStripMenuItem
|
||||
|
||||
End Class
|
||||
|
||||
@@ -10,17 +10,18 @@ Public Class Scene
|
||||
|
||||
'---- Members ---------
|
||||
Private m_nGseContext As Integer
|
||||
Private m_nStatus As Integer
|
||||
Private m_nOldStatus As Integer
|
||||
Private m_nStatus As ST
|
||||
Private m_nOldStatus As ST
|
||||
Private Enum ST As Integer
|
||||
NULL = 0
|
||||
PAN = 1
|
||||
ROT = 2
|
||||
ZOOMWIN = 3
|
||||
ANALYZE = 4
|
||||
GETDIST = 5
|
||||
GETDIST2 = 6
|
||||
SELPOINT = 7
|
||||
WINSEL = 4
|
||||
ANALYZE = 5
|
||||
GETDIST = 6
|
||||
GETDIST2 = 7
|
||||
SELPOINT = 8
|
||||
End Enum
|
||||
Private m_nSnapType As Integer
|
||||
Private m_PrevPoint As Point
|
||||
@@ -29,13 +30,13 @@ Public Class Scene
|
||||
Private m_b2Buff As Boolean
|
||||
Private m_nColorBits As Integer
|
||||
Private m_nDepthBits As Integer
|
||||
Private m_BackTopColor As Color
|
||||
Private m_BackBotColor As Color
|
||||
Private m_DefColor As Color
|
||||
Private m_MarkColor As Color
|
||||
Private m_BackTopColor As Color3d
|
||||
Private m_BackBotColor As Color3d
|
||||
Private m_DefColor As Color3d
|
||||
Private m_MarkColor As Color3d
|
||||
Private m_bZwOutline As Boolean
|
||||
Private m_ZwColor As Color
|
||||
Private m_DstLnColor As Color
|
||||
Private m_ZwColor As Color3d
|
||||
Private m_DstLnColor As Color3d
|
||||
|
||||
|
||||
'---- Constructor -----
|
||||
@@ -50,7 +51,7 @@ Public Class Scene
|
||||
m_nGseContext = 0
|
||||
m_nStatus = ST.NULL
|
||||
m_nOldStatus = ST.NULL
|
||||
m_nSnapType = SP_END
|
||||
m_nSnapType = SP.PT_GRID
|
||||
m_PrevPoint = Point.Empty
|
||||
m_nDriver = 3
|
||||
m_b2Buff = True
|
||||
@@ -74,25 +75,25 @@ Public Class Scene
|
||||
m_nDepthBits = nDepthBits
|
||||
End Sub
|
||||
|
||||
Public Sub SetViewBackground(ByRef BackTopColor As Color, ByRef BackBotColor As Color)
|
||||
Public Sub SetViewBackground(ByRef BackTopColor As Color3d, ByRef BackBotColor As Color3d)
|
||||
m_BackTopColor = BackTopColor
|
||||
m_BackBotColor = BackBotColor
|
||||
End Sub
|
||||
|
||||
Public Sub SetDefaultMaterial(ByRef DefColor As Color)
|
||||
Public Sub SetDefaultMaterial(ByRef DefColor As Color3d)
|
||||
m_DefColor = DefColor
|
||||
End Sub
|
||||
|
||||
Public Sub SetMarkMaterial(ByRef DefColor As Color)
|
||||
Public Sub SetMarkMaterial(ByRef DefColor As Color3d)
|
||||
m_MarkColor = DefColor
|
||||
End Sub
|
||||
|
||||
Public Sub SetZoomWinAttribs(ByVal bZwOutline As Boolean, ByRef ZwColor As Color)
|
||||
Public Sub SetZoomWinAttribs(ByVal bZwOutline As Boolean, ByRef ZwColor As Color3d)
|
||||
m_bZwOutline = bZwOutline
|
||||
m_ZwColor = ZwColor
|
||||
End Sub
|
||||
|
||||
Public Sub SetDistLineMaterial(ByRef DstLnColor As Color)
|
||||
Public Sub SetDistLineMaterial(ByRef DstLnColor As Color3d)
|
||||
m_DstLnColor = DstLnColor
|
||||
End Sub
|
||||
|
||||
@@ -101,13 +102,12 @@ Public Class Scene
|
||||
|
||||
Public Sub Init()
|
||||
m_nGseContext = EgtInitGeomDB()
|
||||
EgtSetDefaultMaterial(m_DefColor.R, m_DefColor.G, m_DefColor.B)
|
||||
EgtSetDefaultMaterial(m_DefColor)
|
||||
EgtInitScene(Handle, m_nDriver, m_b2Buff, m_nColorBits, m_nDepthBits)
|
||||
EgtSetBackground(m_BackTopColor.R, m_BackTopColor.G, m_BackTopColor.B,
|
||||
m_BackBotColor.R, m_BackBotColor.G, m_BackBotColor.B)
|
||||
EgtSetMarkAttribs(m_MarkColor.R, m_MarkColor.G, m_MarkColor.B)
|
||||
EgtSetWinRectAttribs(m_bZwOutline, m_ZwColor.R, m_ZwColor.G, m_ZwColor.B, m_ZwColor.A)
|
||||
EgtSetGeoLineAttribs(m_DstLnColor.R, m_DstLnColor.G, m_DstLnColor.B)
|
||||
EgtSetBackground(m_BackTopColor, m_BackBotColor)
|
||||
EgtSetMarkAttribs(m_MarkColor)
|
||||
EgtSetWinRectAttribs(m_bZwOutline, m_ZwColor)
|
||||
EgtSetGeoLineAttribs(m_DstLnColor)
|
||||
EgtInitTscExec()
|
||||
End Sub
|
||||
|
||||
@@ -155,7 +155,7 @@ Public Class Scene
|
||||
End Sub
|
||||
|
||||
'---- Events ----------
|
||||
Public Event OnMouseSelected(ByVal sender As Object, ByVal nId As Integer)
|
||||
Public Event OnMouseSelected(ByVal sender As Object, ByVal nId As Integer, ByVal bLast As Boolean)
|
||||
Public Event OnMouseAnalyzed(ByVal sender As Object, ByVal nId As Integer)
|
||||
Public Event OnMouseDownScene(ByVal sender As Object)
|
||||
Public Event OnCursorPos(ByVal sender As Object, ByVal sCursorPos As String)
|
||||
@@ -184,14 +184,22 @@ Public Class Scene
|
||||
Protected Overrides Sub OnMouseDown(e As System.Windows.Forms.MouseEventArgs)
|
||||
' Imposto il contesto della scena come corrente
|
||||
EgtSetCurrentContext(m_nGseContext)
|
||||
' --- Pressione tasto sinistro ---
|
||||
If e.Button = Windows.Forms.MouseButtons.Left Then
|
||||
If m_nStatus = ST.NULL Or m_nStatus = ST.ANALYZE Then
|
||||
' se stato WINSEL oppure NULL e premuto SHIFT allora inizio selezione a finestra
|
||||
If m_nStatus = ST.WINSEL Or
|
||||
(m_nStatus = ST.NULL And (Control.ModifierKeys And Keys.Shift) = Keys.Shift) Then
|
||||
Cursor = New Cursor(Me.GetType(), "WinSelect.cur")
|
||||
m_PrevPoint = e.Location
|
||||
m_nStatus = ST.WINSEL
|
||||
' se stato NULL (selezione) o analisi
|
||||
ElseIf m_nStatus = ST.NULL Or m_nStatus = ST.ANALYZE Then
|
||||
If m_nStatus = ST.NULL Then
|
||||
Cursor = New Cursor(Me.GetType(), "Select.cur")
|
||||
Else
|
||||
Cursor = New Cursor(Me.GetType(), "Analyze.cur")
|
||||
End If
|
||||
Dim nId As Integer = GDB_ID_NULL
|
||||
Dim nId As Integer = GDB_ID.NULL
|
||||
Dim nSel As Integer
|
||||
EgtSelect(e.Location, DIM_SEL, DIM_SEL, nSel)
|
||||
If nSel = 1 Then
|
||||
@@ -206,24 +214,26 @@ Public Class Scene
|
||||
nId = MselDlg.GetId()
|
||||
End If
|
||||
End If
|
||||
If nId <> GDB_ID_NULL Then
|
||||
If nId <> GDB_ID.NULL Then
|
||||
If m_nStatus = ST.NULL Then
|
||||
RaiseEvent OnMouseSelected(Me, nId)
|
||||
RaiseEvent OnMouseSelected(Me, nId, True)
|
||||
Else
|
||||
RaiseEvent OnMouseAnalyzed(Me, nId)
|
||||
End If
|
||||
End If
|
||||
' se stato misura di distanza (primo punto)
|
||||
ElseIf m_nStatus = ST.GETDIST Then
|
||||
If EgtGetSelectedSnapPoint(m_nSnapType, e.Location.X, e.Location.Y, DIM_SEL, DIM_SEL, m_ptPrev) Then
|
||||
If EgtGetGraphicSnapPoint(m_nSnapType, e.Location, DIM_SEL, DIM_SEL, m_ptPrev) Then
|
||||
' salvo il punto di riferimento
|
||||
Dim ptWin As Point3d
|
||||
EgtProjectPoint(m_ptPrev, ptWin)
|
||||
m_PrevPoint = New Point(ptWin.x, ptWin.y)
|
||||
m_nStatus = ST.GETDIST2
|
||||
End If
|
||||
' se stato misura di distanza (secondo punto)
|
||||
ElseIf m_nStatus = ST.GETDIST2 Then
|
||||
Dim ptSel As Point3d
|
||||
If EgtGetSelectedSnapPoint(m_nSnapType, e.Location.X, e.Location.Y, DIM_SEL, DIM_SEL, ptSel) Then
|
||||
If EgtGetGraphicSnapPoint(m_nSnapType, e.Location, DIM_SEL, DIM_SEL, ptSel) Then
|
||||
' disegno la linea (coordinate geo globali)
|
||||
EgtSetGeoLine(m_ptPrev, ptSel)
|
||||
' calcolo la distanza e il delta e li visualizzo
|
||||
@@ -245,32 +255,33 @@ Public Class Scene
|
||||
m_nStatus = ST.NULL
|
||||
m_nOldStatus = ST.NULL
|
||||
End If
|
||||
' se stato selezione punto
|
||||
ElseIf m_nStatus = ST.SELPOINT Then
|
||||
If EgtGetSelectedSnapPoint(m_nSnapType, e.Location.X, e.Location.Y, DIM_SEL, DIM_SEL, m_ptPrev) Then
|
||||
If EgtGetGraphicSnapPoint(m_nSnapType, e.Location, DIM_SEL, DIM_SEL, m_ptPrev) Then
|
||||
RaiseEvent OnMouseSelectedPoint(Me, m_ptPrev)
|
||||
End If
|
||||
End If
|
||||
' --- Pressione tasto medio (rotella) ---
|
||||
ElseIf e.Button = Windows.Forms.MouseButtons.Middle Then
|
||||
' se premuto SHIFT entro in zoom a finestra
|
||||
If (Control.ModifierKeys And Keys.Shift) = Keys.Shift Then
|
||||
If m_nStatus = ST.ANALYZE Or m_nStatus = ST.GETDIST Or m_nStatus = ST.GETDIST2 Or m_nStatus = ST.SELPOINT Then
|
||||
m_nOldStatus = m_nStatus
|
||||
End If
|
||||
SaveCurrStatus()
|
||||
m_nStatus = ST.ZOOMWIN
|
||||
Cursor = New Cursor(Me.GetType(), "ZoomWin.cur")
|
||||
' se premuto CTRL entro in rotazione vista
|
||||
ElseIf (Control.ModifierKeys And Keys.Control) = Keys.Control Then
|
||||
If m_nStatus = ST.ANALYZE Or m_nStatus = ST.GETDIST Or m_nStatus = ST.GETDIST2 Or m_nStatus = ST.SELPOINT Then
|
||||
m_nOldStatus = m_nStatus
|
||||
End If
|
||||
SaveCurrStatus()
|
||||
m_nStatus = ST.ROT
|
||||
Cursor = New Cursor(Me.GetType(), "Rotate.cur")
|
||||
' altrimenti entro in pan
|
||||
Else
|
||||
If m_nStatus = ST.ANALYZE Or m_nStatus = ST.GETDIST Or m_nStatus = ST.GETDIST2 Or m_nStatus = ST.SELPOINT Then
|
||||
m_nOldStatus = m_nStatus
|
||||
End If
|
||||
SaveCurrStatus()
|
||||
m_nStatus = ST.PAN
|
||||
Cursor = New Cursor(Me.GetType(), "Pan.cur")
|
||||
End If
|
||||
' salvo il punto in coordinate finestra
|
||||
m_PrevPoint = e.Location
|
||||
' --- Tutti gli altri casi ---
|
||||
Else
|
||||
MyBase.OnMouseDown(e)
|
||||
End If
|
||||
@@ -284,33 +295,55 @@ Public Class Scene
|
||||
If nOldGseCtx <> m_nGseContext Then
|
||||
EgtSetCurrentContext(m_nGseContext)
|
||||
End If
|
||||
' rilascio tasto medio (rotella)
|
||||
If e.Button = Windows.Forms.MouseButtons.Middle Then
|
||||
' --- Rilascio tasto sinistro ---
|
||||
If e.Button = Windows.Forms.MouseButtons.Left Then
|
||||
If m_nStatus = ST.WINSEL Then
|
||||
EgtResetWinRect(True)
|
||||
' determino entità selezionate
|
||||
Dim Center As Point
|
||||
Center.X = 0.5 * (e.Location.X + m_PrevPoint.X)
|
||||
Center.Y = 0.5 * (e.Location.Y + m_PrevPoint.Y)
|
||||
Dim nH As Integer = Abs(e.Location.X - m_PrevPoint.X)
|
||||
Dim nW As Integer = Abs(e.Location.Y - m_PrevPoint.Y)
|
||||
Dim nSel As Integer
|
||||
EgtSelect(Center, nH, nW, nSel)
|
||||
' notifico per ogni entità selezionata
|
||||
Dim nId = EgtGetFirstObjInSelWin()
|
||||
While nId <> GDB_ID.NULL
|
||||
Dim nNextId = EgtGetNextObjInSelWin()
|
||||
RaiseEvent OnMouseSelected(Me, nId, (nNextId = GDB_ID.NULL))
|
||||
nId = nNextId
|
||||
End While
|
||||
' ritorno allo stato NULL
|
||||
m_nStatus = ST.NULL
|
||||
Cursor = New Cursor(Me.GetType(), "Select.cur")
|
||||
End If
|
||||
' --- Rilascio tasto medio (rotella) ---
|
||||
ElseIf e.Button = Windows.Forms.MouseButtons.Middle Then
|
||||
If m_nStatus = ST.ZOOMWIN Then
|
||||
EgtResetWinRect(False)
|
||||
EgtZoomWin(m_PrevPoint, e.Location, True)
|
||||
End If
|
||||
' eventuale ripristino vecchio stato
|
||||
If m_nOldStatus = ST.ANALYZE Then
|
||||
m_nStatus = m_nOldStatus
|
||||
Cursor = New Cursor(Me.GetType(), "Analyze.cur")
|
||||
ElseIf m_nOldStatus = ST.GETDIST Or m_nOldStatus = ST.GETDIST2 Then
|
||||
m_nStatus = m_nOldStatus
|
||||
Cursor = New Cursor(Me.GetType(), "GetDist.cur")
|
||||
ElseIf m_nOldStatus = ST.SELPOINT Then
|
||||
m_nStatus = m_nOldStatus
|
||||
Cursor = New Cursor(Me.GetType(), "Select.cur")
|
||||
If RestoreStatus() Then
|
||||
' non devo fare alcunché
|
||||
' reset dello stato se non NULL
|
||||
ElseIf m_nStatus <> ST.NULL Then
|
||||
m_nStatus = ST.NULL
|
||||
Cursor = New Cursor(Me.GetType(), "Select.cur")
|
||||
End If
|
||||
' rilascio tasto destro
|
||||
' --- Rilascio tasto destro ---
|
||||
ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
|
||||
If m_nStatus = ST.NULL Then
|
||||
MenuScene.Visible = True
|
||||
For Each i As ToolStripMenuItem In MenuScene.Items
|
||||
If i.Name = "cmdDeselectAll" Then
|
||||
For Each i As ToolStripItem In MenuScene.Items
|
||||
If i.Name = "cmdSelectAll" Then
|
||||
i.Visible = True
|
||||
ElseIf i.Name = "cmdDeselectAll" Then
|
||||
i.Visible = True
|
||||
ElseIf i.Name = "sepSel1" Then
|
||||
i.Visible = True
|
||||
ElseIf i.Name = "cmdWinSelect" Then
|
||||
i.Visible = True
|
||||
Else
|
||||
i.Visible = False
|
||||
@@ -318,19 +351,25 @@ Public Class Scene
|
||||
Next
|
||||
ElseIf m_nStatus = ST.GETDIST Or m_nStatus = ST.GETDIST2 Or m_nStatus = ST.SELPOINT Then
|
||||
MenuScene.Visible = True
|
||||
For Each i As ToolStripMenuItem In MenuScene.Items
|
||||
If i.Name = "cmdEndPoint" Then
|
||||
For Each i As ToolStripItem In MenuScene.Items
|
||||
If i.Name = "cmdSketchPoint" Then
|
||||
i.Visible = True
|
||||
i.Checked = (m_nSnapType = SP_END)
|
||||
DirectCast(i, ToolStripMenuItem).Checked = (m_nSnapType = SP.PT_SKETCH)
|
||||
ElseIf i.Name = "cmdGridPoint" Then
|
||||
i.Visible = True
|
||||
DirectCast(i, ToolStripMenuItem).Checked = (m_nSnapType = SP.PT_GRID)
|
||||
ElseIf i.Name = "cmdEndPoint" Then
|
||||
i.Visible = True
|
||||
DirectCast(i, ToolStripMenuItem).Checked = (m_nSnapType = SP.PT_END)
|
||||
ElseIf i.Name = "cmdMidPoint" Then
|
||||
i.Visible = True
|
||||
i.Checked = (m_nSnapType = SP_MID)
|
||||
DirectCast(i, ToolStripMenuItem).Checked = (m_nSnapType = SP.PT_MID)
|
||||
ElseIf i.Name = "cmdCenterPoint" Then
|
||||
i.Visible = True
|
||||
i.Checked = (m_nSnapType = SP_CENTER)
|
||||
DirectCast(i, ToolStripMenuItem).Checked = (m_nSnapType = SP.CENTER)
|
||||
ElseIf i.Name = "cmdNearPoint" Then
|
||||
i.Visible = True
|
||||
i.Checked = (m_nSnapType = SP_NEAR)
|
||||
DirectCast(i, ToolStripMenuItem).Checked = (m_nSnapType = SP.PT_NEAR)
|
||||
Else
|
||||
i.Visible = False
|
||||
End If
|
||||
@@ -338,7 +377,7 @@ Public Class Scene
|
||||
Else
|
||||
MenuScene.Visible = False
|
||||
End If
|
||||
' tutti gli altri casi
|
||||
' --- Tutti gli altri casi ---
|
||||
Else
|
||||
MyBase.OnMouseUp(e)
|
||||
End If
|
||||
@@ -356,8 +395,16 @@ Public Class Scene
|
||||
End If
|
||||
'Visualizzo le coordinate del mouse
|
||||
ShowCursorPos(e.Location)
|
||||
'In base allo stato...
|
||||
If e.Button = Windows.Forms.MouseButtons.Middle Then
|
||||
' --- Premuto tasto sinistro ---
|
||||
If e.Button = Windows.Forms.MouseButtons.Left Then
|
||||
If m_nStatus = ST.WINSEL Then
|
||||
Cursor = New Cursor(Me.GetType(), "WinSelect.cur")
|
||||
EgtSetWinRect(m_PrevPoint, e.Location, True)
|
||||
'Else
|
||||
' m_nStatus = ST.NULL
|
||||
End If
|
||||
' --- Premuto tasto centrale (rotella) ---
|
||||
ElseIf e.Button = Windows.Forms.MouseButtons.Middle Then
|
||||
If m_nStatus = ST.ZOOMWIN Then
|
||||
Cursor = New Cursor(Me.GetType(), "ZoomWin.cur")
|
||||
EgtSetWinRect(m_PrevPoint, e.Location, True)
|
||||
@@ -372,8 +419,10 @@ Public Class Scene
|
||||
m_PrevPoint = e.Location
|
||||
Else
|
||||
m_nStatus = ST.NULL
|
||||
Cursor = New Cursor(Me.GetType(), "Select.cur")
|
||||
End If
|
||||
' --- Altri casi dipendenti dallo stato ---
|
||||
ElseIf m_nStatus = ST.WINSEL Then
|
||||
Cursor = New Cursor(Me.GetType(), "WinSelect.cur")
|
||||
ElseIf m_nStatus = ST.ANALYZE Then
|
||||
Cursor = New Cursor(Me.GetType(), "Analyze.cur")
|
||||
ElseIf m_nStatus = ST.GETDIST Then
|
||||
@@ -386,8 +435,9 @@ Public Class Scene
|
||||
ElseIf m_nStatus = ST.SELPOINT Then
|
||||
Cursor = New Cursor(Me.GetType(), "Select.cur")
|
||||
Dim ptP As Point3d
|
||||
EgtUnProjectPoint(e.Location, ptP)
|
||||
RaiseEvent OnMouseMoveSelPoint(Me, ptP)
|
||||
If EgtGetGraphicSnapPoint(SP.PT_SKETCH, e.Location, DIM_SEL, DIM_SEL, ptP) Then
|
||||
RaiseEvent OnMouseMoveSelPoint(Me, ptP)
|
||||
End If
|
||||
Else
|
||||
MyBase.OnMouseMove(e)
|
||||
End If
|
||||
@@ -439,17 +489,17 @@ Public Class Scene
|
||||
'costruisco stringa con dati
|
||||
Dim sCursorPos As New System.Text.StringBuilder
|
||||
Select Case nDir
|
||||
Case CT_TOP, CT_BOTTOM
|
||||
Case VT.TOP, VT.BOTTOM
|
||||
sCursorPos.Append("X=")
|
||||
sCursorPos.Append(ptWorld.x.ToString("F4", CultureInfo.InvariantCulture))
|
||||
sCursorPos.Append(" Y=")
|
||||
sCursorPos.Append(ptWorld.y.ToString("F4", CultureInfo.InvariantCulture))
|
||||
Case CT_FRONT, CT_BACK
|
||||
Case VT.FRONT, VT.BACK
|
||||
sCursorPos.Append("X=")
|
||||
sCursorPos.Append(ptWorld.x.ToString("F4", CultureInfo.InvariantCulture))
|
||||
sCursorPos.Append(" Z=")
|
||||
sCursorPos.Append(ptWorld.z.ToString("F4", CultureInfo.InvariantCulture))
|
||||
Case CT_LEFT, CT_RIGHT
|
||||
Case VT.LEFT, VT.RIGHT
|
||||
sCursorPos.Append("Y=")
|
||||
sCursorPos.Append(ptWorld.y.ToString("F4", CultureInfo.InvariantCulture))
|
||||
sCursorPos.Append(" Z=")
|
||||
@@ -463,29 +513,112 @@ Public Class Scene
|
||||
|
||||
Private Sub MenuScene_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles MenuScene.ItemClicked
|
||||
|
||||
If e.ClickedItem.Name = "cmdDeselectAll" Then
|
||||
If e.ClickedItem.Name = "cmdSelectAll" Then
|
||||
|
||||
ElseIf e.ClickedItem.Name = "cmdDeselectAll" Then
|
||||
EgtDeselectAll()
|
||||
EgtDraw()
|
||||
ElseIf e.ClickedItem.Name = "cmdWinSelect" Then
|
||||
m_nStatus = ST.WINSEL
|
||||
ElseIf e.ClickedItem.Name = "cmdSketchPoint" Then
|
||||
m_nSnapType = SP.PT_SKETCH
|
||||
ElseIf e.ClickedItem.Name = "cmdGridPoint" Then
|
||||
m_nSnapType = SP.PT_GRID
|
||||
ElseIf e.ClickedItem.Name = "cmdEndPoint" Then
|
||||
m_nSnapType = SP_END
|
||||
m_nSnapType = SP.PT_END
|
||||
ElseIf e.ClickedItem.Name = "cmdMidPoint" Then
|
||||
m_nSnapType = SP_MID
|
||||
m_nSnapType = SP.PT_MID
|
||||
ElseIf e.ClickedItem.Name = "cmdCenterPoint" Then
|
||||
m_nSnapType = SP_CENTER
|
||||
m_nSnapType = SP.CENTER
|
||||
ElseIf e.ClickedItem.Name = "cmdNearPoint" Then
|
||||
m_nSnapType = SP_NEAR
|
||||
m_nSnapType = SP.PT_NEAR
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'---- Status management -------------
|
||||
Private Sub SaveCurrStatus()
|
||||
If m_nStatus = ST.WINSEL Or
|
||||
m_nStatus = ST.ANALYZE Or
|
||||
m_nStatus = ST.GETDIST Or m_nStatus = ST.GETDIST2 Or
|
||||
m_nStatus = ST.SELPOINT Then
|
||||
m_nOldStatus = m_nStatus
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Function RestoreStatus() As Boolean
|
||||
' eventuale ripristino vecchio stato
|
||||
If m_nOldStatus = ST.WINSEL Then
|
||||
m_nStatus = m_nOldStatus
|
||||
Cursor = New Cursor(Me.GetType(), "WinSelect.cur")
|
||||
Return True
|
||||
ElseIf m_nOldStatus = ST.ANALYZE Then
|
||||
m_nStatus = m_nOldStatus
|
||||
Cursor = New Cursor(Me.GetType(), "Analyze.cur")
|
||||
Return True
|
||||
ElseIf m_nOldStatus = ST.GETDIST Or m_nOldStatus = ST.GETDIST2 Then
|
||||
m_nStatus = m_nOldStatus
|
||||
Cursor = New Cursor(Me.GetType(), "GetDist.cur")
|
||||
Return True
|
||||
ElseIf m_nOldStatus = ST.SELPOINT Then
|
||||
m_nStatus = m_nOldStatus
|
||||
Cursor = New Cursor(Me.GetType(), "Select.cur")
|
||||
Return True
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public Sub SetStatusAnalyze()
|
||||
m_nStatus = ST.ANALYZE
|
||||
End Sub
|
||||
|
||||
Public Sub SetStatusGetDistance()
|
||||
m_nStatus = ST.GETDIST
|
||||
End Sub
|
||||
|
||||
Public Sub SetStatusSelPoint()
|
||||
m_nStatus = ST.SELPOINT
|
||||
End Sub
|
||||
|
||||
Public Sub ResetStatus(Optional ByVal bRedraw As Boolean = True)
|
||||
' pulisco eventuali geometrie temporanee
|
||||
EraseDragGroup()
|
||||
EgtResetGeoLine(False)
|
||||
EgtResetWinRect(False)
|
||||
' imposto lo stato
|
||||
m_nStatus = ST.NULL
|
||||
m_nOldStatus = ST.NULL
|
||||
' aggiorno visualizzazione
|
||||
If bRedraw Then
|
||||
EgtDraw()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub ResetStatusAnalyze()
|
||||
If m_nStatus = ST.ANALYZE Then
|
||||
m_nStatus = ST.NULL
|
||||
m_nOldStatus = ST.NULL
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub ResetStatusGetDistance()
|
||||
If m_nStatus = ST.GETDIST Or m_nStatus = ST.GETDIST2 Then
|
||||
m_nStatus = ST.NULL
|
||||
m_nOldStatus = ST.NULL
|
||||
End If
|
||||
EgtResetGeoLine()
|
||||
RaiseEvent OnCloseGetDist(Me)
|
||||
End Sub
|
||||
|
||||
'---- Drag Group ------
|
||||
Private m_nDragGroup As Integer = GDB_ID_NULL
|
||||
Private m_nDragGroup As Integer = GDB_ID.NULL
|
||||
|
||||
Public Function CreateDragGroup() As Boolean
|
||||
m_nDragGroup = EgtCreateGroup(GDB_ID_ROOT)
|
||||
If m_nDragGroup = GDB_ID_NULL Then
|
||||
m_nDragGroup = EgtCreateGroup(GDB_ID.ROOT)
|
||||
If m_nDragGroup = GDB_ID.NULL Then
|
||||
Return False
|
||||
End If
|
||||
EgtSetLevel(m_nDragGroup, GDB_LV_TEMP)
|
||||
EgtSetLevel(m_nDragGroup, GDB_LV.TEMP)
|
||||
EgtSetMark(m_nDragGroup)
|
||||
EgtUnselectableAdd(m_nDragGroup)
|
||||
Return True
|
||||
End Function
|
||||
@@ -493,12 +626,12 @@ Public Class Scene
|
||||
Public Function EraseDragGroup() As Boolean
|
||||
EgtErase(m_nDragGroup)
|
||||
EgtUnselectableRemove(m_nDragGroup)
|
||||
m_nDragGroup = GDB_ID_NULL
|
||||
m_nDragGroup = GDB_ID.NULL
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function AddToDragGroup(ByVal nId As Integer) As Boolean
|
||||
Return EgtCopyGlob(nId, m_nDragGroup, GDB_SON) <> GDB_ID_NULL
|
||||
Return EgtCopyGlob(nId, m_nDragGroup, GDB_POS.SON) <> GDB_ID.NULL
|
||||
End Function
|
||||
|
||||
Public Function GetDragGroup() As Integer
|
||||
@@ -508,7 +641,7 @@ Public Class Scene
|
||||
'---- Main Buttons ----
|
||||
Public Function NewProject() As Boolean
|
||||
Dim bOk As Boolean = EgtNewFile()
|
||||
EgtZoom(ZM_ALL)
|
||||
EgtZoom(ZM.ALL)
|
||||
If bOk Then
|
||||
RaiseEvent OnNewProject(Me)
|
||||
Else
|
||||
@@ -538,7 +671,7 @@ Public Class Scene
|
||||
'Caricamento del progetto
|
||||
Cursor = Cursors.WaitCursor
|
||||
Dim bOk As Boolean = EgtOpenFile(sFile)
|
||||
EgtZoom(ZM_ALL)
|
||||
EgtZoom(ZM.ALL)
|
||||
Cursor = Cursors.Default
|
||||
'Gestione risultato
|
||||
If bOk Then
|
||||
@@ -550,14 +683,14 @@ Public Class Scene
|
||||
End Function
|
||||
|
||||
Public Function SaveProject(Optional ByVal sFile As String = "") As Boolean
|
||||
If String.IsNullOrEmpty(sFile) Or EgtGetFileType(sFile) <> FT_NGE Then
|
||||
If String.IsNullOrEmpty(sFile) Or EgtGetFileType(sFile) <> FT.NGE Then
|
||||
Return SaveAsProject(sFile)
|
||||
Else
|
||||
'Prima del salvataggio
|
||||
RaiseEvent OnSavingProject(Me, sFile)
|
||||
'Salvataggio del progetto
|
||||
Cursor = Cursors.WaitCursor
|
||||
Dim bOk As Boolean = EgtSaveFile(sFile, NGE_CMPTEXT)
|
||||
Dim bOk As Boolean = EgtSaveFile(sFile, NGE.CMPTEXT)
|
||||
Cursor = Cursors.Default
|
||||
'Gestione risultato
|
||||
If bOk Then
|
||||
@@ -584,7 +717,7 @@ Public Class Scene
|
||||
RaiseEvent OnSavingProject(Me, SaveFileDialog.FileName)
|
||||
'Salvataggio del progetto
|
||||
Cursor = Cursors.WaitCursor
|
||||
Dim bOk As Boolean = EgtSaveFile(SaveFileDialog.FileName, NGE_CMPTEXT)
|
||||
Dim bOk As Boolean = EgtSaveFile(SaveFileDialog.FileName, NGE.CMPTEXT)
|
||||
Cursor = Cursors.Default
|
||||
'Gestione risultato
|
||||
If bOk Then
|
||||
@@ -614,7 +747,7 @@ 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
|
||||
If nFileType <> FT.DXF And nFileType <> FT.STL And nFileType <> FT.CNC Then
|
||||
MessageBox.Show("File type unknown", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
Return False
|
||||
End If
|
||||
@@ -624,14 +757,14 @@ Public Class Scene
|
||||
Cursor = Cursors.WaitCursor
|
||||
Dim bOk As Boolean = EgtNewFile()
|
||||
'Importazione
|
||||
If nFileType = FT_DXF Then
|
||||
If nFileType = FT.DXF Then
|
||||
bOk = bOk And EgtImportDxf(sFile)
|
||||
ElseIf nFileType = FT_STL Then
|
||||
ElseIf nFileType = FT.STL Then
|
||||
bOk = bOk And EgtImportStl(sFile)
|
||||
ElseIf nFileType = FT_CNC Then
|
||||
ElseIf nFileType = FT.CNC Then
|
||||
bOk = bOk And EgtImportCnc(sFile)
|
||||
End If
|
||||
EgtZoom(ZM_ALL)
|
||||
EgtZoom(ZM.ALL)
|
||||
Cursor = Cursors.Default
|
||||
'Gestione risultato
|
||||
If bOk Then
|
||||
@@ -656,7 +789,7 @@ Public Class Scene
|
||||
End If
|
||||
'Riconoscimento tipo file
|
||||
Dim nFileType As Integer = EgtGetFileType(SaveFileDialog.FileName)
|
||||
If nFileType <> FT_DXF And nFileType <> FT_STL Then
|
||||
If nFileType <> FT.DXF And nFileType <> FT.STL Then
|
||||
MessageBox.Show("File type unknown", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
Return False
|
||||
End If
|
||||
@@ -665,10 +798,10 @@ Public Class Scene
|
||||
'Esportazione del progetto
|
||||
Cursor = Cursors.WaitCursor
|
||||
Dim bOk As Boolean = False
|
||||
If nFileType = FT_DXF Then
|
||||
bOk = EgtExportDxf(GDB_ID_ROOT, SaveFileDialog.FileName)
|
||||
ElseIf nFileType = FT_STL Then
|
||||
bOk = EgtExportStl(GDB_ID_ROOT, SaveFileDialog.FileName)
|
||||
If nFileType = FT.DXF Then
|
||||
bOk = EgtExportDxf(GDB_ID.ROOT, SaveFileDialog.FileName)
|
||||
ElseIf nFileType = FT.STL Then
|
||||
bOk = EgtExportStl(GDB_ID.ROOT, SaveFileDialog.FileName)
|
||||
End If
|
||||
Cursor = Cursors.Default
|
||||
'Gestione risultato
|
||||
@@ -712,7 +845,7 @@ Public Class Scene
|
||||
Else
|
||||
bOk = EgtTscExecFile(sFile)
|
||||
End If
|
||||
EgtZoom(ZM_ALL)
|
||||
EgtZoom(ZM.ALL)
|
||||
Cursor = Cursors.Default
|
||||
'Gestione risultato
|
||||
If bOk Then
|
||||
@@ -727,105 +860,67 @@ Public Class Scene
|
||||
Return bOk
|
||||
End Function
|
||||
|
||||
'---- Analyze Operations -------------
|
||||
Public Sub SetStatusAnalyze()
|
||||
m_nStatus = ST.ANALYZE
|
||||
'---- Zoom Buttons ----
|
||||
Public Sub ZoomAll()
|
||||
EgtZoom(ZM.ALL)
|
||||
End Sub
|
||||
|
||||
Public Sub ResetStatusAnalyze()
|
||||
If m_nStatus = ST.ANALYZE Then
|
||||
m_nStatus = ST.NULL
|
||||
m_nOldStatus = ST.NULL
|
||||
End If
|
||||
Public Sub ZoomIn()
|
||||
EgtZoom(ZM.IN_)
|
||||
End Sub
|
||||
|
||||
'---- Distance Operations -------------
|
||||
Public Sub SetStatusGetDistance()
|
||||
m_nStatus = ST.GETDIST
|
||||
Public Sub ZoomOut()
|
||||
EgtZoom(ZM.OUT)
|
||||
End Sub
|
||||
|
||||
Public Sub ResetStatusGetDistance()
|
||||
If m_nStatus = ST.GETDIST Or m_nStatus = ST.GETDIST2 Then
|
||||
m_nStatus = ST.NULL
|
||||
m_nOldStatus = ST.NULL
|
||||
End If
|
||||
EgtResetGeoLine()
|
||||
RaiseEvent OnCloseGetDist(Me)
|
||||
End Sub
|
||||
|
||||
'---- Distance Operations -------------
|
||||
Public Sub SetStatusSelPoint()
|
||||
m_nStatus = ST.SELPOINT
|
||||
End Sub
|
||||
|
||||
Public Sub ResetStatusSelPoint()
|
||||
If m_nStatus = ST.SELPOINT Then
|
||||
m_nStatus = ST.NULL
|
||||
m_nOldStatus = ST.NULL
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'---- Zoom Buttons ----
|
||||
Public Sub ZoomAll()
|
||||
EgtZoom(ZM_ALL)
|
||||
End Sub
|
||||
|
||||
Public Sub ZoomIn()
|
||||
EgtZoom(ZM_IN)
|
||||
End Sub
|
||||
|
||||
Public Sub ZoomOut()
|
||||
EgtZoom(ZM_OUT)
|
||||
End Sub
|
||||
|
||||
'---- Rendering Buttons ----
|
||||
Public Sub WireFrame()
|
||||
EgtSetShowMode(SM_WIREFRAME)
|
||||
EgtSetShowMode(SM.WIREFRAME)
|
||||
End Sub
|
||||
|
||||
Public Sub HiddenLine()
|
||||
EgtSetShowMode(SM_HIDDENLINE)
|
||||
EgtSetShowMode(SM.HIDDENLINE)
|
||||
End Sub
|
||||
|
||||
Public Sub Shading()
|
||||
EgtSetShowMode(SM_SHADING)
|
||||
EgtSetShowMode(SM.SHADING)
|
||||
End Sub
|
||||
|
||||
'---- LookFrom Buttons ----
|
||||
Public Sub TopView()
|
||||
EgtSetView(CT_TOP)
|
||||
End Sub
|
||||
|
||||
Public Sub IsoViewSW()
|
||||
EgtSetView(CT_ISO_SW)
|
||||
End Sub
|
||||
|
||||
Public Sub IsoViewSE()
|
||||
EgtSetView(CT_ISO_SE)
|
||||
End Sub
|
||||
|
||||
Public Sub IsoViewNE()
|
||||
EgtSetView(CT_ISO_NE)
|
||||
End Sub
|
||||
|
||||
Public Sub IsoViewNW()
|
||||
EgtSetView(CT_ISO_NW)
|
||||
EgtSetView(VT.TOP)
|
||||
End Sub
|
||||
|
||||
Public Sub FrontView()
|
||||
EgtSetView(CT_FRONT)
|
||||
EgtSetView(VT.FRONT)
|
||||
End Sub
|
||||
|
||||
Public Sub BackView()
|
||||
EgtSetView(CT_BACK)
|
||||
EgtSetView(VT.BACK)
|
||||
End Sub
|
||||
|
||||
Public Sub LeftView()
|
||||
EgtSetView(CT_LEFT)
|
||||
EgtSetView(VT.LEFT)
|
||||
End Sub
|
||||
|
||||
Public Sub RightView()
|
||||
EgtSetView(CT_RIGHT)
|
||||
EgtSetView(VT.RIGHT)
|
||||
End Sub
|
||||
|
||||
Public Sub IsoViewSW()
|
||||
EgtSetView(VT.ISO_SW)
|
||||
End Sub
|
||||
|
||||
Public Sub IsoViewSE()
|
||||
EgtSetView(VT.ISO_SE)
|
||||
End Sub
|
||||
|
||||
Public Sub IsoViewNE()
|
||||
EgtSetView(VT.ISO_NE)
|
||||
End Sub
|
||||
|
||||
Public Sub IsoViewNW()
|
||||
EgtSetView(VT.ISO_NW)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+3
-3
@@ -10,7 +10,7 @@ Public Class SelectMulti
|
||||
ListBox1.BeginUpdate()
|
||||
'Inserisco le entità nel mirino
|
||||
Dim nId = EgtGetFirstObjInSelWin()
|
||||
While nId <> GDB_ID_NULL
|
||||
While nId <> GDB_ID.NULL
|
||||
Dim sTitle As String = String.Empty
|
||||
EgtGetTitle(nId, sTitle)
|
||||
If EgtIsSelectedObj(nId) Then
|
||||
@@ -22,10 +22,10 @@ Public Class SelectMulti
|
||||
nId = EgtGetNextObjInSelWin()
|
||||
End While
|
||||
'Inserisco None per non selezionare alcunchè
|
||||
Dim smNone As New SelMulItem("None", GDB_ID_NULL)
|
||||
Dim smNone As New SelMulItem("None", GDB_ID.NULL)
|
||||
ListBox1.Items.Add(smNone)
|
||||
ListBox1.EndUpdate()
|
||||
m_nCurrEnt = GDB_ID_NULL
|
||||
m_nCurrEnt = GDB_ID.NULL
|
||||
ListBox1.SelectedIndex = 0
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -336,6 +336,42 @@
|
||||
<ItemGroup>
|
||||
<None Include="Resources\CurveDir.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Move.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Rotate.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="Resources\WinSelect.cur" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Line2P.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Point.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\ArcCSE.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Delete.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Arc3P.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Copy.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Mirror.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Plane.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\InvertCurve.png" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
<PropertyGroup>
|
||||
<PostBuildEvent>IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\TestEIn\TestEInR32.exe
|
||||
|
||||
Reference in New Issue
Block a user