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

Icarus 3.1d1 :

Browse Source 
- aggiunta gestione modo Multiplanar_45deg.
This commit is contained in:
Dario Sassi
2026-04-14 19:47:07 +02:00
parent 6d18e9eba5
commit 6f1ea25aaa
4 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Icarus/CurrMachiningPanel/CurrMachining.vb
+1
View File
@@ -976,6 +976,7 @@ Public Class CurrComboMachiningParam
m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.HORIZONTAL, "Horizontal"))
If nSlicingType >= 4 Then
m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.MULTIPLANAR, "MultiPlanar"))
m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.MULTIPLANAR_DEG45, "MultiPlanar 45deg"))
End If
End If
End If
Icarus/MachiningDb/Machining.vb
+2
View File
@@ -15,6 +15,7 @@ Public Class Machining
DEG45_Y = 3
HORIZONTAL = 4
MULTIPLANAR = 5
MULTIPLANAR_DEG45 = 6
End Enum
Public Enum MPAR_STRANDORDERS As Integer
@@ -1527,6 +1528,7 @@ Public Class ComboMachiningParam
m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.HORIZONTAL, "Horizontal"))
If nSlicingType >= 4 Then
m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.MULTIPLANAR, "MultiPlanar"))
m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.MULTIPLANAR_DEG45, "MultiPlanar 45deg"))
End If
End If
End If
Icarus/My Project/AssemblyInfo.vb
+2 -2
View File
@@ -70,5 +70,5 @@ Imports System.Windows
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.1.3.2")>
<Assembly: AssemblyFileVersion("3.1.3.2")>
<Assembly: AssemblyVersion("3.1.4.1")>
<Assembly: AssemblyFileVersion("3.1.4.1")>
Icarus/Utility/CurrentMachine.vb
+1 -1
View File
@@ -219,7 +219,7 @@ Public Module CurrentMachine
sExtrusionType = S_45DEGY
Case Machining.MPAR_SLICINGTYPE.HORIZONTAL
sExtrusionType = S_HORIZONTAL
Case Machining.MPAR_SLICINGTYPE.MULTIPLANAR
Case Machining.MPAR_SLICINGTYPE.MULTIPLANAR, Machining.MPAR_SLICINGTYPE.MULTIPLANAR_DEG45
sExtrusionType = S_MULTIPLANAR
End Select
Dim dExtrXMax = GetPrivateProfileDouble(sExtrusionType, K_MAXX, 0, m_sMachDataIniFile)