From 31e38d2bf09e1eef0ea5a1155ab3c757c6fdd9f3 Mon Sep 17 00:00:00 2001
From: "Samuele E. Locatelli" <samuele@steamware.net>
Date: Sun, 18 Nov 2018 16:17:21 +0100
Subject: [PATCH] inclusione in OSAI Cndex della versione calssic di
 O_GetNcInfo1

---
 CncLib/CNC/CNC.OSAI/CNC.OSAI.vb | 58 ++++++++++++++++++++++++++++++++-
 1 file changed, 57 insertions(+), 1 deletion(-)

diff --git a/CncLib/CNC/CNC.OSAI/CNC.OSAI.vb b/CncLib/CNC/CNC.OSAI/CNC.OSAI.vb
index 20601600..8693e861 100644
--- a/CncLib/CNC/CNC.OSAI/CNC.OSAI.vb
+++ b/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