inclusione in OSAI Cndex della versione calssic di O_GetNcInfo1

CncLib/CNC/CNC.OSAI/CNC.OSAI.vb

@@ -705,7 +705,6 @@ Namespace CNC
       Return True
     End Function
 
-
     Public Overridable Function O_CheckRetError(ByVal nReturn As Short, ByVal ErrClass As Long, ByVal ErrNum As Long, ByVal Position As String, Optional ByRef szReturn As String = "") As Boolean
       Dim szErrorClassDesc As String = String.Empty
       Dim szErrorDesc As String = String.Empty
@@ -858,7 +857,64 @@ Namespace CNC
     ''' <param name="NcInfo"></param>
     ''' <returns></returns>
     Public Overridable Function O_GetNcInfo1(ByRef NcInfo As OPENcontrol.GETINFO1DATA) As Boolean
+      ' RIFERIMENTO: 
+      ' CndexLinkUser.pdf | pag 148, 266
+
+      Dim szReturn As String = ""
+      Dim myGetNcInfo1R As CndexLinkDotNet.Cndex.GETINFO1DATA
+      Dim ProcessId As Short
+
+      Try
+        O_GetSelectedProcess(ProcessId)
+
+        ' init obj return
+        myGetNcInfo1R = New CndexLinkDotNet.Cndex.GETINFO1DATA
+
+
+        If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("O_GetNcInfo1({0}) errore CNC.OSAI", NcInfo), szReturn) Then
+          Throw New NcException(szReturn)
+          Return False
+        End If
+
+        ' Assegno 1:1 variabili...                        
+        NcInfo.actualtool = myGetNcInfo1R.actual_tool
+        NcInfo.actualtooloff = myGetNcInfo1R.actual_tool_off
+        NcInfo.autojogret = myGetNcInfo1R.auto_jog_ret
+        NcInfo.axsel = myGetNcInfo1R.ax_sel
+        NcInfo.blockretrace = myGetNcInfo1R.block_retrace
+        NcInfo.disableslashedblk = myGetNcInfo1R.disable_slashed_blk
+        NcInfo.dryrun = myGetNcInfo1R.dry_run
+        NcInfo.feedmisunit = myGetNcInfo1R.feed_mis_unit
+        NcInfo.feedov = myGetNcInfo1R.feed_ov
+        NcInfo.forcerapidfeed = myGetNcInfo1R.force_rapid_feed
+        NcInfo.jogdir = myGetNcInfo1R.jog_dir
+        NcInfo.jogincr = myGetNcInfo1R.jog_incr
+        NcInfo.lastncerror = myGetNcInfo1R.last_nc_error
+        NcInfo.mainprogrname = myGetNcInfo1R.main_progr_name.ToString()
+        NcInfo.manfeedov = myGetNcInfo1R.man_feed_ov
+        NcInfo.modeselect = myGetNcInfo1R.mode_select
+        NcInfo.numaxsel = myGetNcInfo1R.num_ax_sel
+        NcInfo.optionalstop = myGetNcInfo1R.optional_stop
+        NcInfo.progrfeed = myGetNcInfo1R.progr_feed
+        NcInfo.progrspeed = myGetNcInfo1R.progr_speed
+        NcInfo.progrtool = myGetNcInfo1R.progr_tool
+        NcInfo.progrtooloff = myGetNcInfo1R.progr_tool_off
+        NcInfo.rapidfeed = myGetNcInfo1R.rapid_feed
+        NcInfo.rapidoverride = myGetNcInfo1R.rapid_override
+        NcInfo.rapfeedov = myGetNcInfo1R.rap_feed_ov
+        NcInfo.realfeed = myGetNcInfo1R.real_feed
+        NcInfo.realspeed = myGetNcInfo1R.real_speed
+        NcInfo.speedov = myGetNcInfo1R.speed_ov
+        NcInfo.status = myGetNcInfo1R.status
+        NcInfo.substatus = myGetNcInfo1R.substatus
+
+      Catch ex As System.ServiceModel.CommunicationException
+        Throw New NcException(ex.Message)
+        Return False
+      End Try
+
       Return True
+
     End Function
     ''' <summary>
     ''' Chiama ReadCurrentErrorMsg x ottenere elenco errori