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
'''
'''
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
'''
''' Chiama ReadCurrentErrorMsg x ottenere elenco errori