hexagon logo

Very new too coding.

Hey all, I have been trying out some if/ statements and what not. The hardest part is knowing the syntax to use. Is there a place I can go to find working syntax? Also, I wanted to see if this code would work the way i wanted it too. so here is the code-->

MODE/DCC
LOADPROBE/PRB2
TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=0
C1 =COMMENT/INPUT,NO,FULL SCREEN=NO,
OPERATOR:
C2 =COMMENT/INPUT,NO,FULL SCREEN=NO,
REASON FOR RUN:
C3 =COMMENT/INPUT,NO,FULL SCREEN=NO,
SAMPLE #:
C4 =COMMENT/YESNO,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
HAS PART MOVED SINCE LAST RUN?
IF/C4.INPUT=="YES"
END_IF/
IF/C4.INPUT=="NO"
RDPNT =FEAT/POINT,CARTESIAN
THEO/<0,0,0>,<0,0,1>
ACTL/<0,0,0>,<0,0,1>
READPOINT/
IF/RDPNT.Z<100
MOVE/INCREMENT,<0,0,200>
END_IF/
MOVE/POINT,NORMAL,<0,0,100>
MOVE/POINT,NORMAL,<0,0,0>
GOTO/READPNT
END_IF/
COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
PLACE PROBE IN THE STARTING POSITION. SEE CAD FOR REFERENCE.
READPNT =FEAT/POINT,CARTESIAN
THEO/<0,0,0>,<0,0,1>
ACTL/<0,0,0>,<0,0,1>
READPOINT/
RDPNTALIGNX =ALIGNMENT/START,RECALL:STARTUP,LIST=YES
ALIGNMENT/TRANS,XAXIS,READPNT
ALIGNMENT/TRANS,YAXIS,READPNT
ALIGNMENT/TRANS,ZAXIS,READPNT
ALIGNMENT/END
CIR1 =FEAT/CONTACT/CIRCLE/DEFAULT,CARTESIAN,IN,LEAST_SQR
THEO/<0,0,0>,<0,0,1>,9
ACTL/<0,0,0>,<0,0,1>,9
TARG/<0,0,0>,<0,0,1>
START ANG=0,END ANG=360
ANGLE VEC=<1,0,0>
DIRECTION=CCW
SHOW FEATURE PARAMETERS=NO
SHOW CONTACT PARAMETERS=YES
NUMHITS=7,DEPTH=2,PITCH=0
SAMPLE METHOD=SAMPLE_HITS
SAMPLE HITS=0,SPACER=0
AVOIDANCE MOVE=NO,DISTANCE=10
FIND HOLE=DISABLED,ONERROR=NO,READ POS=NO
SHOW HITS=NO

I would like the program to be able to run on its own with no operator touching the jog box as long as the part has ran once already. Would this work the way I am wanting it too? Is there a better code sample for doing this that I haven't seen?

Thanks in advance.
Parents
  • So how does this look?

    C4 =COMMENT/YESNO,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
    HAS PART MOVED SINCE LAST RUN?
    IF/C4.INPUT=="NO"
    RDPNT =FEAT/POINT,CARTESIAN
    THEO/<0,0,0>,<0,0,1>
    ACTL/<0,0,0>,<0,0,1>
    READPOINT/
    IF/RDPNT.Z<100
    MOVE/POINT,NORMAL,<RDPNT.X,RDPNT.Y,100>
    END_IF/
    IF/RDPNT.Z>100
    MOVE/POINT,NORMAL,<0,0,50>
    END_IF/
    MOVE/POINT,NORMAL,<0,0,0>
    GOTO/READPNT
    END_IF/
    COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
    PLACE PROBE IN THE STARTING POSITION. SEE CAD FOR REFERENCE.
    READPNT =FEAT/POINT,CARTESIAN
    THEO/<0,0,0>,<0,0,1>
    ACTL/<0,0,0>,<0,0,1>
    READPOINT/[code]
    
    
Reply
  • So how does this look?

    C4 =COMMENT/YESNO,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
    HAS PART MOVED SINCE LAST RUN?
    IF/C4.INPUT=="NO"
    RDPNT =FEAT/POINT,CARTESIAN
    THEO/<0,0,0>,<0,0,1>
    ACTL/<0,0,0>,<0,0,1>
    READPOINT/
    IF/RDPNT.Z<100
    MOVE/POINT,NORMAL,<RDPNT.X,RDPNT.Y,100>
    END_IF/
    IF/RDPNT.Z>100
    MOVE/POINT,NORMAL,<0,0,50>
    END_IF/
    MOVE/POINT,NORMAL,<0,0,0>
    GOTO/READPNT
    END_IF/
    COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
    PLACE PROBE IN THE STARTING POSITION. SEE CAD FOR REFERENCE.
    READPNT =FEAT/POINT,CARTESIAN
    THEO/<0,0,0>,<0,0,1>
    ACTL/<0,0,0>,<0,0,1>
    READPOINT/[code]
    
    
Children
No Data