hexagon logo

This will stop the operators from running parts too hot or too cold.

COMMENT/OPER,NO,PLACE PART TEMPERATURE SENSOR ON THE PART

TEMPCOMP/ORIGIN=0,0,0,Material Coeff=0.000015,Reference Temp=20
,Hi Threshold=35,Lo Threshold=15,Sensor num=4
,X Axis Temp=,Y Axis Temp=,Z Axis Temp=,Part Temp=21.295
ASSIGN/WWW1 = GETCOMMAND(62,"Up",1)
ASSIGN/PARTTEMP1 = LEFT(GETTEXT(532,0,WWW1),5)
IF_GOTO/PARTTEMP1<18.88,GOTO = THE_END
IF_GOTO/PARTTEMP1>22.25,GOTO = THE_END



THE_END =LABEL/
  • COMMENT/OPER,NO,PLACE PART TEMPERATURE SENSOR ON THE PART
    
    TEMPCOMP/ORIGIN=0,0,0,Material Coeff=0.000015,Reference Temp=20
    ,Hi Threshold=35,Lo Threshold=15,Sensor num=4
    ,X Axis Temp=,Y Axis Temp=,Z Axis Temp=,Part Temp=21.295
    ASSIGN/WWW1 = GETCOMMAND(62,"Up",1)
    ASSIGN/PARTTEMP1 = LEFT(GETTEXT(532,0,WWW1),5)
    IF_GOTO/PARTTEMP1<18.88,GOTO = THE_END
    IF_GOTO/PARTTEMP1>22.25,GOTO = THE_END
    
    
    
    THE_END =LABEL/


    Trying the code tags.................hey it works!
  • You wrote the code I have put below. Do you have any idea as to how to change it to read the X/Y or Z temperatures and have it keep the CMM from running until the part is within ±2° of any or the average of the CMM axis temps? This would help those of us that or labs are not aways at 68°F.

    Thanks,
    DeWain


    COMMENT/OPER,NO,PLACE PART TEMPERATURE SENSOR ON THE PART
     
    TEMPCOMP/ORIGIN=0,0,0,Material Coeff=0.000015,Reference Temp=20
     ,Hi Threshold=35,Lo Threshold=15,Sensor num=4
     ,X Axis Temp=,Y Axis Temp=,Z Axis Temp=,Part Temp=21.295
     ASSIGN/WWW1 = GETCOMMAND(62,"Up",1)
     ASSIGN/PARTTEMP1 = LEFT(GETTEXT(532,0,WWW1),5)
     IF_GOTO/PARTTEMP1<18.88,GOTO = THE_END
     IF_GOTO/PARTTEMP1>22.25,GOTO = THE_END
     
    
    
    THE_END =LABEL/
  • TEMP_SELECT =COMMENT/INPUT,NO,' TEMP CONTROL SELECTION
    , 1 = RUN TEMP CONTROL
    , 2 = SKIP TEMP CONTROL
    ,ENTER 1 OR 2 THEN RETURN'
    $$ NO,*
    ,*
    ,*
    ,*
    ,*
    ,*
    IF_GOTO/TEMP_SELECT.INPUT=="1",GOTO = TEMP_CODE
    IF_GOTO/TEMP_SELECT.INPUT=="2",GOTO = SKIP_TEMP_CODE
    TEMP_CODE =LABEL/
    TEMPCOMP/ORIGIN=0,0,0,Material Coeff=0.0000104,Reference Temp=20
    ,Hi Threshold=35,Lo Threshold=15,Sensor num=4-5
    ,X Axis Temp=,Y Axis Temp=,Z Axis Temp=,Part Temp=
    ASSIGN/WWW1 = GETCOMMAND(62,"Up",1)
    ASSIGN/PARTTEMP1 = LEFT(GETTEXT(532,0,WWW1),5)
    IF_GOTO/WWW1<18.88,GOTO = REDO_CODE
    IF_GOTO/WWW1>22.25,GOTO = REDO_CODE
    GOTO/SKIP_TEMP_CODE
    REDO_CODE =LABEL/
    TEMPCOMP/ORIGIN=0,0,0,Material Coeff=0.0000104,Reference Temp=20
    ,Hi Threshold=35,Lo Threshold=15,Sensor num=4-5
    ,X Axis Temp=,Y Axis Temp=,Z Axis Temp=,Part Temp=21.295
    ASSIGN/WWW1 = GETCOMMAND(62,"Up",1)
    ASSIGN/PARTTEMP1 = LEFT(GETTEXT(532,0,WWW1),5)
    IF_GOTO/WWW1<18.88,GOTO = REDO_CODE
    IF_GOTO/WWW1>22.25,GOTO = REDO_CODE
    SKIP_TEMP_CODE=LABEL/

    NOTE: 2ND TEMP CODE HAS THE TIME DELAY FUNCTION SET AT .... 60 SEC?
  • Hope that helps.... Ive have meeting most of the afternoon but, ill try to check in later....

    Dewain.... Ignore me privite message... Its missing a line of code!!
  • Assign/xtemp1 = left(gettext(529,0,v3),5)
    assign/ytemp1 = left(gettext(530,0,v3),5)
    assign/ztemp1 = left(gettext(531,0,v3),5)
    assign/parttemp1 = left(gettext(532,0,v3),5)

    i saved this..... Tx again don!!!