EgtCAM5 :
- Migliorie varie.
This commit is contained in:
Emmanuele Sassi
@@ -143,10 +143,12 @@ Namespace EgtCAM5
|
||||
' visualizzazione avanzata dei triangoli costituenti le superfici
|
||||
Dim bShowTriaAdv As Boolean = (GetPrivateProfileInt(S_SCENE, K_SHOWTRIAADV, 1) <> 0)
|
||||
EgtSetShowTriaAdv(bShowTriaAdv)
|
||||
'' ObjTree non selezionato
|
||||
'm_nObjTreeOldId = GDB_ID.NULL
|
||||
' ObjTree non selezionato
|
||||
Application.Msn.NotifyColleagues(Application.UPDATEOBJTREEOLDID, GDB_ID.NULL)
|
||||
' nascondo input box
|
||||
Application.Msn.NotifyColleagues(Application.RESETINPUTBOX)
|
||||
' Apro progetto vuoto
|
||||
m_Controller.NewProject(True)
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -319,12 +321,6 @@ Namespace EgtCAM5
|
||||
m_Controller.ExecuteCommand(Controller.CMD.CIRCLECD)
|
||||
End If
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.ARCCSE, Sub()
|
||||
m_Controller.ExecuteCommand(Controller.CMD.ARCCSE)
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.ARC3P, Sub()
|
||||
m_Controller.ExecuteCommand(Controller.CMD.ARC3P)
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.ARCPDP, Sub()
|
||||
If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
|
||||
If (Keyboard.Modifiers And ModifierKeys.Control) = ModifierKeys.Control Then
|
||||
@@ -343,9 +339,6 @@ Namespace EgtCAM5
|
||||
m_Controller.ExecuteCommand(Controller.CMD.CHAMFER)
|
||||
End If
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.RECTANGLE2P, Sub()
|
||||
m_Controller.ExecuteCommand(Controller.CMD.RECTANGLE2P)
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.POLYGON, Sub()
|
||||
If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
|
||||
m_Controller.ExecuteCommand(Controller.CMD.POLYGON)
|
||||
@@ -367,35 +360,11 @@ Namespace EgtCAM5
|
||||
m_Controller.ExecuteCommand(Controller.CMD.PLANE)
|
||||
End If
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.EXTRUDE, Sub()
|
||||
m_Controller.ExecuteCommand(Controller.CMD.EXTRUDE)
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.REVOLVE, Sub()
|
||||
m_Controller.ExecuteCommand(Controller.CMD.REVOLVE)
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.SCREW, Sub()
|
||||
m_Controller.ExecuteCommand(Controller.CMD.SCREW)
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.RULED, Sub()
|
||||
m_Controller.ExecuteCommand(Controller.CMD.RULED)
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.MERGESURF, Sub()
|
||||
m_Controller.ExecuteCommand(Controller.CMD.MERGESURF)
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.EXPLODESURF, Sub()
|
||||
m_Controller.ExecuteCommand(Controller.CMD.EXPLODESURF)
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.INVERTSURF, Sub()
|
||||
m_Controller.ExecuteCommand(Controller.CMD.INVERTSURF)
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.DELETE, Sub()
|
||||
Application.Msn.Register(Application.DELETE, Sub()
|
||||
m_Controller.SetLastInteger(GDB_ID.SEL)
|
||||
m_Controller.ExecuteCommand(Controller.CMD.DELETE)
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.CHANGELAYER, Sub()
|
||||
m_Controller.ExecuteCommand(Controller.CMD.CHANGELAYER)
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.CHANGECOLOR, Sub()
|
||||
Application.Msn.Register(Application.CHANGECOLOR, Sub()
|
||||
If (Keyboard.Modifiers And ModifierKeys.Control) = ModifierKeys.Control Then
|
||||
m_Controller.ExecuteCommand(Controller.CMD.CHANGEALPHA)
|
||||
ElseIf (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
|
||||
@@ -404,16 +373,7 @@ Namespace EgtCAM5
|
||||
m_Controller.ExecuteCommand(Controller.CMD.CHANGECOLOR)
|
||||
End If
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.INVERTCURVE, Sub()
|
||||
m_Controller.ExecuteCommand(Controller.CMD.INVERTCURVE)
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.CHANGESTARTCURVE, Sub()
|
||||
m_Controller.ExecuteCommand(Controller.CMD.CHANGESTARTCURVE)
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.EXTENDCURVE, Sub()
|
||||
m_Controller.ExecuteCommand(Controller.CMD.TRIMEXTENDCURVE)
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.BREAKCURVE, Sub()
|
||||
Application.Msn.Register(Application.BREAKCURVE, Sub()
|
||||
If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
|
||||
m_Controller.ExecuteCommand(Controller.CMD.BREAKCURVE)
|
||||
Else
|
||||
@@ -428,15 +388,6 @@ Namespace EgtCAM5
|
||||
End If
|
||||
m_Controller.ExecuteCommand(Controller.CMD.JOINCURVE)
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.EXPLODECURVE, Sub()
|
||||
m_Controller.ExecuteCommand(Controller.CMD.EXPLODECURVE)
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.SETCURVETH, Sub()
|
||||
m_Controller.ExecuteCommand(Controller.CMD.SETCURVETHICKNESS)
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.MOVE, Sub()
|
||||
m_Controller.ExecuteCommand(Controller.CMD.MOVE)
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.ROTATE, Sub()
|
||||
If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
|
||||
m_Controller.ExecuteCommand(Controller.CMD.ROTATE)
|
||||
@@ -458,10 +409,6 @@ Namespace EgtCAM5
|
||||
m_Controller.ExecuteCommand(Controller.CMD.SCALE3D)
|
||||
End If
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.OFFSET, Sub()
|
||||
m_Controller.ExecuteCommand(Controller.CMD.OFFSET)
|
||||
End Sub)
|
||||
|
||||
End Sub
|
||||
|
||||
Sub RegisterDrawOptionPanelCommands()
|
||||
@@ -557,6 +504,18 @@ Namespace EgtCAM5
|
||||
m_Controller.SaveAsProject(sFile, nType)
|
||||
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.INSERTPROJECT, Sub()
|
||||
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.IMPORTPROJECT, Sub()
|
||||
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.EXPORTPROJECT, Sub()
|
||||
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.EXECPROJECT, Sub()
|
||||
|
||||
End Sub)
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -796,7 +755,7 @@ Namespace EgtCAM5
|
||||
End If
|
||||
' aggiorno dati correnti
|
||||
'EmitTitle()
|
||||
'EmitCurrPartLayer()
|
||||
EmitCurrPartLayer()
|
||||
If bReloadUI Then
|
||||
Application.Msn.NotifyColleagues(Application.LOADOBJTREE)
|
||||
Else
|
||||
@@ -848,6 +807,38 @@ Namespace EgtCAM5
|
||||
|
||||
#End Region ' StatusBar events
|
||||
|
||||
#Region "DrawOptionPanel"
|
||||
|
||||
Private Sub EmitCurrPartLayer()
|
||||
Dim sText As String = " "
|
||||
Dim sName As String = String.Empty
|
||||
Dim colObj As Color3d
|
||||
EgtGetColor(GDB_ID.ROOT, colObj)
|
||||
Dim nCurrPart As Integer = m_Controller.GetCurrPart()
|
||||
If nCurrPart <> GDB_ID.NULL Then
|
||||
If EgtGetName(nCurrPart, sName) Then
|
||||
sText = sName
|
||||
Else
|
||||
sText = "Part " + nCurrPart.ToString()
|
||||
End If
|
||||
EgtGetCalcColor(nCurrPart, colObj)
|
||||
Dim nCurrLayer As Integer = m_Controller.GetCurrLayer()
|
||||
If nCurrLayer <> GDB_ID.NULL And EgtExistsObj(nCurrLayer) Then
|
||||
If EgtGetName(nCurrLayer, sName) Then
|
||||
sText += " --> " + sName
|
||||
Else
|
||||
sText += " --> Layer " + nCurrLayer.ToString()
|
||||
End If
|
||||
EgtGetCalcColor(nCurrLayer, colObj)
|
||||
End If
|
||||
End If
|
||||
Application.Msn.NotifyColleagues(Application.UPDATEHEADERNAME, sText)
|
||||
colObj.A = 100
|
||||
Application.Msn.NotifyColleagues(Application.UPDATEHEADERCOLOR, colObj)
|
||||
End Sub
|
||||
|
||||
#End Region 'DrawOptionPanel
|
||||
|
||||
End Class
|
||||
|
||||
End Namespace
|
||||
Reference in New Issue
Block a user