EgtCAM5 :

- Migliorie SetUp.
- Migliorie simulazione.

ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/MachineAxis.vb

@@ -0,0 +1,86 @@
+Imports System.ComponentModel
+Imports EgtUILib
+
+Public Class MachineAxis
+   Implements INotifyPropertyChanged
+
+   Private m_IsReadOnlyAxesValue As Boolean
+   Public Property IsReadOnlyAxesValue As Boolean
+      Get
+         NotifyPropertyChanged("IsEnabledAxesValue")
+         Return m_IsReadOnlyAxesValue
+      End Get
+      Set(value As Boolean)
+         m_IsReadOnlyAxesValue = value
+         NotifyPropertyChanged("IsReadOnlyAxesValue")
+      End Set
+   End Property
+
+   Public ReadOnly Property IsEnabledAxesValue As Boolean
+      Get
+         Return Not m_IsReadOnlyAxesValue
+      End Get
+   End Property
+
+   ' Definizione comandi
+   Private m_cmdManualAxisModify As ICommand
+
+   Private m_Name As String
+   Public Property Name As String
+      Get
+         Return m_Name
+      End Get
+      Set(value As String)
+         m_Name = value
+         NotifyPropertyChanged("Name")
+      End Set
+   End Property
+
+   Private m_Value As String
+   Public Property Value As String
+      Get
+         Return m_Value
+      End Get
+      Set(value As String)
+         m_Value = value
+         NotifyPropertyChanged("Value")
+      End Set
+   End Property
+
+#Region "COMMANDS"
+
+#Region "ManualAxisModifyCommand"
+
+   ''' <summary>
+   ''' Returns a command that create a new tool.
+   ''' </summary>
+   Public ReadOnly Property ManualAxisModifyCommand As ICommand
+      Get
+         If m_cmdManualAxisModify Is Nothing Then
+            m_cmdManualAxisModify = New Command(AddressOf ManualAxisModify)
+         End If
+         Return m_cmdManualAxisModify
+      End Get
+   End Property
+
+   ''' <summary>
+   ''' Creata the new tool.  This method is invoked by the NewCommand.
+   ''' </summary>
+   Public Sub ManualAxisModify(ByVal param As Object)
+      Dim dVal As Double
+      StringToDouble(m_Value, dVal)
+      EgtSetAxisPos(m_Name, dVal)
+      EgtDraw()
+   End Sub
+
+#End Region ' ManualAxisModifyCommand
+
+#End Region
+
+   Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
+
+   Public Sub NotifyPropertyChanged(propName As String)
+      RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
+   End Sub
+
+End Class

ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderView.xaml

@@ -1,11 +1,50 @@
 <UserControl x:Class="SimulationExpanderView"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+   xmlns:sys="clr-namespace:System;assembly=mscorlib"
    xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
+   <UserControl.Resources>
+      <sys:String x:Key="A1">A1</sys:String>
+      <sys:String x:Key="A2">A2</sys:String>
+      <sys:String x:Key="A3">A3</sys:String>
+      <sys:String x:Key="A4">A4</sys:String>
+      <sys:String x:Key="A5">A5</sys:String>
+      <sys:String x:Key="A6">A6</sys:String>
+      <sys:String x:Key="A7">A7</sys:String>
+      <sys:String x:Key="A8">A8</sys:String>
+   </UserControl.Resources>
+   
    <StackPanel>
       <Expander Header="{Binding SimulationMsg}" IsExpanded="{Binding IsExpanded}" Style="{StaticResource ExpanderStyle}">
-         <StackPanel >
+         <StackPanel>
+
+            <ItemsControl Grid.Row="10" ItemsSource="{Binding MachineAxisList}">
+               <ItemsControl.ItemTemplate>
+                  <DataTemplate>
+                     <Grid Margin="5,1,10,1">
+                        <Grid.ColumnDefinitions>
+                           <ColumnDefinition Width="1*"/>
+                           <ColumnDefinition Width="2*"/>
+                        </Grid.ColumnDefinitions>
+
+                        <TextBlock Text="{Binding Name}" FontSize="15"
+                              HorizontalAlignment="Center" VerticalAlignment="Center"
+                              TextWrapping="Wrap" TextAlignment="Center"/>
+                        <TextBox Text="{Binding Value, UpdateSourceTrigger=PropertyChanged}" Grid.Column="1"
+                              IsReadOnly="{Binding IsReadOnlyAxesValue}"
+                              IsEnabled="{Binding IsEnabledAxesValue}"
+                              TextAlignment="Right">
+                           <TextBox.InputBindings>
+                              <KeyBinding Key="Enter" Command="{Binding ManualAxisModifyCommand}"/>
+                           </TextBox.InputBindings>
+                        </TextBox>
+
+                     </Grid>
+                  </DataTemplate>
+               </ItemsControl.ItemTemplate>
+            </ItemsControl>
+
             <Grid>
                <Grid.ColumnDefinitions>
                   <ColumnDefinition Width="1*"/>
@@ -15,55 +54,15 @@
                <Grid.RowDefinitions>
                   <RowDefinition Height="0.5*"/>
                   <RowDefinition Height="0.5*"/>
-                  <RowDefinition Height="0.5*"/>
-                  <RowDefinition Height="0.5*"/>
-                  <RowDefinition Height="0.5*"/>
-                  <RowDefinition Height="0.5*"/>
-                  <RowDefinition Height="0.5*"/>
-                  <RowDefinition Height="0.5*"/>
-                  <RowDefinition Height="0.5*"/>
-                  <RowDefinition Height="0.5*"/>
                </Grid.RowDefinitions>
 
-               <TextBlock Text="{Binding A1Name}" Grid.Column="0" Grid.Row="0" FontSize="15" HorizontalAlignment="Center"
-                     VerticalAlignment="Center" TextAlignment="Center" TextWrapping="Wrap" />
-               <EgtWPFLib5:EgtTextBox Text="{Binding A1Value}" Grid.Column="1" Grid.Row="0" Grid.ColumnSpan="2"
-                  Width="120" TextAlignment="Right" Style="{StaticResource EgtCAM5_SimulationTextBox}"/>
-               <TextBlock Text="{Binding A2Name}" Grid.Column="0" Grid.Row="1" FontSize="15" HorizontalAlignment="Center"
-                     VerticalAlignment="Center" TextAlignment="Center" TextWrapping="Wrap" />
-               <EgtWPFLib5:EgtTextBox Text="{Binding A2Value}" Grid.Column="1" Grid.Row="1" Grid.ColumnSpan="2"
-                  Width="120" TextAlignment="Right" Style="{StaticResource EgtCAM5_SimulationTextBox}"/>
-               <TextBlock Text="{Binding A3Name}" Grid.Column="0" Grid.Row="2" FontSize="15" HorizontalAlignment="Center"
-                     VerticalAlignment="Center" TextAlignment="Center" TextWrapping="Wrap" />
-               <EgtWPFLib5:EgtTextBox Text="{Binding A3Value}" Grid.Column="1" Grid.Row="2" Grid.ColumnSpan="2"
-                  Width="120" TextAlignment="Right" Style="{StaticResource EgtCAM5_SimulationTextBox}"/>
-               <TextBlock Text="{Binding A4Name}" Grid.Column="0" Grid.Row="3" FontSize="15" HorizontalAlignment="Center"
-                     VerticalAlignment="Center" TextAlignment="Center" TextWrapping="Wrap" />
-               <EgtWPFLib5:EgtTextBox Text="{Binding A4Value}" Grid.Column="1" Grid.Row="3" Grid.ColumnSpan="2"
-                  Width="120" TextAlignment="Right" Style="{StaticResource EgtCAM5_SimulationTextBox}"/>
-               <TextBlock Text="{Binding A5Name}" Grid.Column="0" Grid.Row="4" FontSize="15" HorizontalAlignment="Center"
-                     VerticalAlignment="Center" TextAlignment="Center" TextWrapping="Wrap" />
-               <EgtWPFLib5:EgtTextBox Text="{Binding A5Value}" Grid.Column="1" Grid.Row="4" Grid.ColumnSpan="2"
-                  Width="120" TextAlignment="Right" Style="{StaticResource EgtCAM5_SimulationTextBox}"/>
-               <TextBlock Text="{Binding A6Name}" Grid.Column="0" Grid.Row="5" FontSize="15" HorizontalAlignment="Center"
-                     VerticalAlignment="Center" TextAlignment="Center" />
-               <EgtWPFLib5:EgtTextBox Text="{Binding A6Value}" Grid.Column="1" Grid.Row="5" Grid.ColumnSpan="2"
-                  Width="120" TextAlignment="Right" Style="{StaticResource EgtCAM5_SimulationTextBox}"/>
-               <TextBlock Text="{Binding A7Name}" Grid.Column="0" Grid.Row="6" FontSize="15" HorizontalAlignment="Center"
-                     VerticalAlignment="Center" TextAlignment="Center" />
-               <EgtWPFLib5:EgtTextBox Text="{Binding A7Value}" Grid.Column="1" Grid.Row="6" Grid.ColumnSpan="2"
-                  Width="120" TextAlignment="Right" Style="{StaticResource EgtCAM5_SimulationTextBox}"/>
-               <TextBlock Text="{Binding A8Name}" Grid.Column="0" Grid.Row="7" FontSize="15" HorizontalAlignment="Center"
-                     VerticalAlignment="Center" TextAlignment="Center" />
-               <EgtWPFLib5:EgtTextBox Text="{Binding A8Value}" Grid.Column="1" Grid.Row="7" Grid.ColumnSpan="2"
-                  Width="120" TextAlignment="Right" Style="{StaticResource EgtCAM5_SimulationTextBox}"/>
-               <TextBlock Text="{Binding GCode}" Grid.Column="0" Grid.Row="8" FontSize="15" HorizontalAlignment="Center"
+               <TextBlock Text="{Binding GCode}" FontSize="15" HorizontalAlignment="Center"
                      VerticalAlignment="Center" TextAlignment="Center" Margin="5,5,5,0" Grid.ColumnSpan="2" />
-               <TextBlock Text="{Binding FValue}" Grid.Column="2" Grid.Row="8"  FontSize="15" HorizontalAlignment="Center"
+               <TextBlock Text="{Binding FValue}" Grid.Column="2" FontSize="15" HorizontalAlignment="Center"
                      VerticalAlignment="Center" TextAlignment="Right" Margin="0,5,5,5" />
-               <TextBlock Text="{Binding TName}" Grid.Column="0" Grid.Row="9" FontSize="15" HorizontalAlignment="Center"
+               <TextBlock Text="{Binding TName}" Grid.Row="1" FontSize="15" HorizontalAlignment="Center"
                      VerticalAlignment="Center" TextAlignment="Center" Margin="5,5,5,0" Grid.ColumnSpan="2" />
-               <TextBlock Text="{Binding SValue}" Grid.Column="2" Grid.Row="9"  FontSize="15" HorizontalAlignment="Center"
+               <TextBlock Text="{Binding SValue}" Grid.Column="2" Grid.Row="1"  FontSize="15" HorizontalAlignment="Center"
                      VerticalAlignment="Center" TextAlignment="Right" Margin="0,5,5,5" />
 
             </Grid>

ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb

@@ -1,4 +1,5 @@
-Imports System.IO
+Imports System.Collections.ObjectModel
+Imports System.IO
 Imports EgtUILib
 
 Namespace EgtCAM5
@@ -20,7 +21,25 @@ Namespace EgtCAM5
          ST_STEP = 3
          ST_PAUSE = 4
       End Enum
-      Private m_nStatus As Integer = SIM_ST.ST_STOP
+      Private m_nStatus As SIM_ST = SIM_ST.ST_STOP
+      Private Property SimulationStatus As SIM_ST
+         Get
+            Return m_nStatus
+         End Get
+         Set(value As SIM_ST)
+            m_nStatus = value
+            If IniFile.m_nUserLevel >= 10 AndAlso (value = SIM_ST.ST_PAUSE OrElse value = SIM_ST.ST_STOP) Then
+               For Index = 0 To m_MachineAxisList.Count - 1
+                  m_MachineAxisList(Index).IsReadOnlyAxesValue = False
+               Next
+            Else
+               For Index = 0 To m_MachineAxisList.Count - 1
+                  m_MachineAxisList(Index).IsReadOnlyAxesValue = True
+               Next
+            End If
+         End Set
+      End Property
+
       ' Stato bottone Play
       Private m_bShowPlay As Boolean = True
       ' Coefficiente per valore Slider
@@ -50,212 +69,12 @@ Namespace EgtCAM5
          End Set
       End Property
 
-      Private m_A1Name As String
-      Public Property A1Name As String
+      ' lista degli assi
+      Private m_MachineAxisList As New ObservableCollection(Of MachineAxis)
+      Public ReadOnly Property MachineAxisList As ObservableCollection(Of MachineAxis)
          Get
-            Return m_A1Name
+            Return m_MachineAxisList
          End Get
-         Set(value As String)
-            If value <> m_A1Name Then
-               m_A1Name = value
-               OnPropertyChanged("A1Name")
-            End If
-         End Set
-      End Property
-
-      Private m_A1Value As String
-      Public Property A1Value As String
-         Get
-            Return m_A1Value
-         End Get
-         Set(value As String)
-            If value <> m_A1Value Then
-               m_A1Value = value
-               OnPropertyChanged("A1Value")
-            End If
-         End Set
-      End Property
-
-      Private m_A2Name As String
-      Public Property A2Name As String
-         Get
-            Return m_A2Name
-         End Get
-         Set(value As String)
-            If value <> m_A2Name Then
-               m_A2Name = value
-               OnPropertyChanged("A2Name")
-            End If
-         End Set
-      End Property
-
-      Private m_A2Value As String
-      Public Property A2Value As String
-         Get
-            Return m_A2Value
-         End Get
-         Set(value As String)
-            If value <> m_A2Value Then
-               m_A2Value = value
-               OnPropertyChanged("A2Value")
-            End If
-         End Set
-      End Property
-
-      Private m_A3Name As String
-      Public Property A3Name As String
-         Get
-            Return m_A3Name
-         End Get
-         Set(value As String)
-            If value <> m_A3Name Then
-               m_A3Name = value
-               OnPropertyChanged("A3Name")
-            End If
-         End Set
-      End Property
-
-      Private m_A3Value As String
-      Public Property A3Value As String
-         Get
-            Return m_A3Value
-         End Get
-         Set(value As String)
-            If value <> m_A3Value Then
-               m_A3Value = value
-               OnPropertyChanged("A3Value")
-            End If
-         End Set
-      End Property
-
-      Private m_A4Name As String
-      Public Property A4Name As String
-         Get
-            Return m_A4Name
-         End Get
-         Set(value As String)
-            If value <> m_A4Name Then
-               m_A4Name = value
-               OnPropertyChanged("A4Name")
-            End If
-         End Set
-      End Property
-
-      Private m_A4Value As String
-      Public Property A4Value As String
-         Get
-            Return m_A4Value
-         End Get
-         Set(value As String)
-            If value <> m_A4Value Then
-               m_A4Value = value
-               OnPropertyChanged("A4Value")
-            End If
-         End Set
-      End Property
-
-      Private m_A5Name As String
-      Public Property A5Name As String
-         Get
-            Return m_A5Name
-         End Get
-         Set(value As String)
-            If value <> m_A5Name Then
-               m_A5Name = value
-               OnPropertyChanged("A5Name")
-            End If
-         End Set
-      End Property
-
-      Private m_A5Value As String
-      Public Property A5Value As String
-         Get
-            Return m_A5Value
-         End Get
-         Set(value As String)
-            If value <> m_A5Value Then
-               m_A5Value = value
-               OnPropertyChanged("A5Value")
-            End If
-         End Set
-      End Property
-
-      Private m_A6Name As String
-      Public Property A6Name As String
-         Get
-            Return m_A6Name
-         End Get
-         Set(value As String)
-            If value <> m_A6Name Then
-               m_A6Name = value
-               OnPropertyChanged("A6Name")
-            End If
-         End Set
-      End Property
-
-      Private m_A6Value As String
-      Public Property A6Value As String
-         Get
-            Return m_A6Value
-         End Get
-         Set(value As String)
-            If value <> m_A6Value Then
-               m_A6Value = value
-               OnPropertyChanged("A6Value")
-            End If
-         End Set
-      End Property
-
-      Private m_A7Name As String
-      Public Property A7Name As String
-         Get
-            Return m_A7Name
-         End Get
-         Set(value As String)
-            If value <> m_A7Name Then
-               m_A7Name = value
-               OnPropertyChanged("A7Name")
-            End If
-         End Set
-      End Property
-
-      Private m_A7Value As String
-      Public Property A7Value As String
-         Get
-            Return m_A7Value
-         End Get
-         Set(value As String)
-            If value <> m_A7Value Then
-               m_A7Value = value
-               OnPropertyChanged("A7Value")
-            End If
-         End Set
-      End Property
-
-      Private m_A8Name As String
-      Public Property A8Name As String
-         Get
-            Return m_A8Name
-         End Get
-         Set(value As String)
-            If value <> m_A8Name Then
-               m_A8Name = value
-               OnPropertyChanged("A8Name")
-            End If
-         End Set
-      End Property
-
-      Private m_A8Value As String
-      Public Property A8Value As String
-         Get
-            Return m_A8Value
-         End Get
-         Set(value As String)
-            If value <> m_A8Value Then
-               m_A8Value = value
-               OnPropertyChanged("A8Value")
-            End If
-         End Set
       End Property
 
       Private m_GCode As String
@@ -421,7 +240,7 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.NOTIFYSTATUSOUTPUT, "")
          ' Se stato stop, devo avviare simulazione
          If m_nStatus = SIM_ST.ST_STOP Then
-            m_nStatus = SIM_ST.ST_STEP
+            SimulationStatus = SIM_ST.ST_STEP
             ' Aggiorno bottone
             m_bShowPlay = False
             OnPropertyChanged("PlayPauseImage")
@@ -431,7 +250,7 @@ Namespace EgtCAM5
             OnPropertyChanged("PlayPauseImage")
          ' Alrimenti imposto solo il nuovo stato
          Else
-            m_nStatus = SIM_ST.ST_STEP
+            SimulationStatus = SIM_ST.ST_STEP
             ' Aggiornamenti per bottone Play/Pause
             m_bShowPlay = False
             OnPropertyChanged("PlayPauseImage")
@@ -466,13 +285,13 @@ Namespace EgtCAM5
             ' Eseguo
             If m_nStatus = SIM_ST.ST_STOP Then
                ' Lancio simulazione
-               m_nStatus = SIM_ST.ST_PLAY
+               SimulationStatus = SIM_ST.ST_PLAY
                ExecSim()
                ' Aggiorno bottone
                m_bShowPlay = True
                OnPropertyChanged("PlayPauseImage")
             ElseIf m_nStatus = SIM_ST.ST_PAUSE Then
-               m_nStatus = SIM_ST.ST_PLAY
+               SimulationStatus = SIM_ST.ST_PLAY
             End If
          Else
             ' Aggiorno bottone
@@ -480,7 +299,7 @@ Namespace EgtCAM5
             OnPropertyChanged("PlayPauseImage")
             ' Se play o step, imposto stato pausa
             If m_nStatus = SIM_ST.ST_PLAY Or m_nStatus = SIM_ST.ST_STEP Then
-               m_nStatus = SIM_ST.ST_PAUSE
+               SimulationStatus = SIM_ST.ST_PAUSE
                Application.Msn.NotifyColleagues(Application.NOTIFYSTATUSOUTPUT, EgtMsg(MSG_SIMULATION + 11))   ' Pausa
             End If
          End If
@@ -522,7 +341,7 @@ Namespace EgtCAM5
          m_bShowPlay = True
          OnPropertyChanged("PlayPauseImage")
          ' Imposto il nuovo stato
-         m_nStatus = SIM_ST.ST_STOP
+         SimulationStatus = SIM_ST.ST_STOP
       End Sub
 
 
@@ -569,7 +388,7 @@ Namespace EgtCAM5
          ' Costringo ad aggiornare UI
          UpdateUI()
          ' Imposto stato corrente
-         m_nStatus = SIM_ST.ST_STOP
+         SimulationStatus = SIM_ST.ST_STOP
          m_bShowPlay = True
          m_SliderX = GetPrivateProfileDouble(S_SIMUL, K_SLIDERX, 1)
          Dim SliderVal As Double = GetPrivateProfileDouble(S_SIMUL, K_SLIDERVAL, 10)
@@ -589,7 +408,7 @@ Namespace EgtCAM5
 
       Private Sub ResetSimulation()
          ' Termino la simulazione
-         m_nStatus = SIM_ST.ST_STOP
+         SimulationStatus = SIM_ST.ST_STOP
          EgtSimStop()
          ' Salvo valore dello slider
          Dim sVal As String = DoubleToString(SliderValue, 1)
@@ -613,7 +432,7 @@ Namespace EgtCAM5
                If bMove Then
                   If m_nStatus = SIM_ST.ST_STEP And nMove = MCH_SIM.END_STEP Then
                      ' Imposto stato Pausa
-                     m_nStatus = SIM_ST.ST_PAUSE
+                     SimulationStatus = SIM_ST.ST_PAUSE
                      Application.Msn.NotifyColleagues(Application.NOTIFYSTATUSOUTPUT, EgtMsg(MSG_SIMULATION + 11))   ' Pausa
                      ' Aggiornamenti per bottone Play/Pause
                      m_bShowPlay = True
@@ -621,7 +440,7 @@ Namespace EgtCAM5
                   End If
                ' Se movimento non riuscito
                Else
-                  m_nStatus = SIM_ST.ST_STOP
+                  SimulationStatus = SIM_ST.ST_STOP
                   ' Aggiornamenti per bottone Play/Pause
                   m_bShowPlay = True
                   OnPropertyChanged("PlayPauseImage")
@@ -656,21 +475,43 @@ Namespace EgtCAM5
 
       Private Sub ShowCncData()
          ' Assi
-         Dim nInd As Integer = 0
-         ShowAxisNameVal(nInd, A1Name, A1Value)
-         ShowAxisNameVal(nInd, A2Name, A2Value)
-         ShowAxisNameVal(nInd, A3Name, A3Value)
-         ShowAxisNameVal(nInd, A4Name, A4Value)
-         ShowAxisNameVal(nInd, A5Name, A5Value)
-         ShowAxisNameVal(nInd, A6Name, A6Value)
-         ShowAxisNameVal(nInd, A7Name, A7Value)
-         ShowAxisNameVal(nInd, A8Name, A8Value)
+         Dim nEgtIndex As Integer = 0
+         Dim nAxisIndex As Integer = 0
+         Dim sInfo As String = String.Empty
+         Dim bLinear As Boolean = True
+         Dim dVal As Double = 0
+         While EgtSimGetAxisInfoPos(nEgtIndex, sInfo, bLinear, dVal)
+            If sInfo <> "**" Then
+               IsValidAxisIndex(nAxisIndex)
+               m_MachineAxisList(nAxisIndex).Name = sInfo
+               m_MachineAxisList(nAxisIndex).Value = If(bLinear, LenToString(dVal, -3), DoubleToString(dVal, -3))
+               nAxisIndex += 1
+            End If
+            nEgtIndex += 1
+         End While
+         For ClearIndex = m_MachineAxisList.Count - 1 To nEgtIndex - 1
+            m_MachineAxisList.RemoveAt(ClearIndex)
+         Next
+         'ShowAxisNameVal(nInd, A1Name, A1Value)
+         'ShowAxisNameVal(nInd, A2Name, A2Value)
+         'ShowAxisNameVal(nInd, A3Name, A3Value)
+         'ShowAxisNameVal(nInd, A4Name, A4Value)
+         'ShowAxisNameVal(nInd, A5Name, A5Value)
+         'ShowAxisNameVal(nInd, A6Name, A6Value)
+         'ShowAxisNameVal(nInd, A7Name, A7Value)
+         'ShowAxisNameVal(nInd, A8Name, A8Value)
          ' Tipo di movimento e feed
          ShowMoveTypeFeed()
          ' Nome utensile e speed
          ShowToolNameSpeed()
       End Sub
 
+      Private Sub IsValidAxisIndex(nIndex As Integer)
+         For Index = m_MachineAxisList.Count - 1 To nIndex
+            m_MachineAxisList.Add(New MachineAxis)
+         Next
+      End Sub
+
       Private Function ShowAxisNameVal(ByRef nInd As Integer, ByRef sName As String, ByRef sVal As String) As Boolean
          Dim sInfo As String = String.Empty
          Dim bLinear As Boolean = True