RobotStudio event

Robot studio isn't telling me where my syntax errors are

Options
I'm working on some code in Rapid, but RobotStudio doesn't tell where or why my code doesn't work.
I think the line below might be the problem.
checkpoint := IsReachable(point, printhead, wobj0);
I'm not sure how to fix it

Below is the rest of the code

MODULE MainModule
    ! (name), started 11 27 2018
    ! This code read a file of eight positions per set and checks if the robot can reach each set
    ! This done for a workspace analysis
    VAR iodev reader;
    VAR iodev writer;
    VAR pos corner;
    VAR string word;
    VAR bool check;
    VAR bool checkpoint;
    VAR robtarget point;
    PERS tooldata printhead := [ TRUE, [[ 85.22, 0, 79.57], [0.707170, 0, 0.707170, 0]], [0.79496, [16.02,9.4,44.26],  [1, 0, 0, 0], 0, 0, 0]];
    
    ! This function is from msalminen on the ABB forums
    FUNC bool IsReachable(robtarget pReach, PERS tooldata ToolReach, PERS wobjdata WobjReach)

      ! Check if specified robtarget can be reach with given tool and wobj.
      ! 
      ! Output:
      !  Return TRUE if given robtarget is reachable with given tool and wobj
      !  otherwise return FALSE
      !
      ! Parameters:
      !  pReach     - robtarget to be checked, if robot can reach this robtarget
      !  ToolReach  - tooldata to be used for possible movement
      !  WobjReach  - wobjdata to be used for possible movement

         VAR bool bReachable;
         VAR jointtarget jntReach;
  
         bReachable := TRUE;
  
         jntReach := CalcJointT(pReach, ToolReach\Wobj:=WobjReach);
  
         RETURN bReachable;
  
         ERROR
             IF ERRNO = ERR_ROBLIMIT THEN
                bReachable := FALSE;
                TRYNEXT;
            ENDIF
     ENDFUNC
    
    
PROC main()  
        Open "U:/RAMSeniorDesign/RobotStudio Stations/Workspace/ReadTest1.txt", reader \Read;
        Rewind reader;
        Open "U:/RAMSeniorDesign/RobotStudio Stations/Workspace/ReadTest1b.txt", writer \Append;
        word := ReadStr(reader);
        check := StrToVal(word,corner);
        point := [ [ corner.x, corner.y, corner.z], [0.707170, 0, 0.707170, 0], [0,0,0,0], [ 9E9, 9E9, 9E9, 9E9, 9E9, 9E9]];
        checkpoint := IsReachable(point, printhead, wobj0);
       
        Write writer, ""\Pos:=corner;
        Write writer, ""\Bool:=checkpoint;
        Close reader;
        Close writer;        
ENDPROC
ENDMODULE

Comments

  • DenisFR
    DenisFR ✭✭✭
    Options
    Hello,
    I've test your code, all works fine...
    I've this text on ReadTest1.txt:
    [200,0,0]<br>
    Can you give us your error text?


    PS: When you paste code on post, use Code format (in pilcrow down list).
  • RAMmechie
    Options
    Funnily enough the code started working the next day. I don't know why it didn't work before