【发那科】KAREL写入文件.LS

PROGRAM WRITE_LOG

----------------------------------------------------

-- Creation date: 2023.08.14

-- Created by:

----------------------------------------------------

                 

----------------------------------------------------

%COMMENT = 'WRITE_LOG_FILE'

%ALPHABETIZE

%INCLUDE KLEVKEYS

%INCLUDE KLEVKMSK

%INCLUDE KLEVCCDF

%INCLUDE KLIOUOP

%INCLUDE KLIOTYPS

-- CONST

-- TYPE

VAR

xyz :XYZWPR

file_log  :FILE

status :INTEGER

pos_type :INTEGER

num_axes :INTEGER

 

----------------------------------------------------

-- BEGIN MyProgram                            

----------------------------------------------------

BEGIN

 

    OPEN FILE file_log('RW','UD1:\DEBUG.LS')

    xyz =CURPOS(0, 0)

    WRITE file_log('Current_pos',CR,xyz,CR)

    xyz.X=xyz+10

    xyz.P=xyz.P+10

    WRITE file_log('After_pos',CR,xyz,CR)

    SET_POS_REG(1,xyz,status)

    WRITE file_log('status=',status,CR)

    xyx=GET_POS_REG(1, status )

    WRITE file_log('PR[1]=',CR,xyz,CR)

    CLOSE FILE file_log

 

END WRITE_LOG