更新KUKA程序

KUKA/KRC/R1/Program/Mylib/REAL_TO_STR.src

@@ -0,0 +1,22 @@
+&ACCESS RVO
+DEFFCT CHAR[32] REAL_TO_STR(iVal:IN)
+   DECL REAL iVal
+   DECL INT I,offset
+   DECL CHAR Ret[32]
+   DECL STATE_T state
+   offset=0
+   FOR I=1 TO 32
+      Ret[I]=0
+   ENDFOR
+   SWRITE(Ret[],state,offset,"%.3f",iVal)
+   Return (Ret[])
+ENDFCT
+
+
+
+   
+   
+   
+   
+   
+