hexagon logo
Register Sign in
  • Replies 10 replies
  • Subscribers 223 subscribers
  • Views 232 views
  • Users 0 members are here
Options
Related

Auto callibration

Stuart_Ward
i know how to input auto calibration in to the start of a program, i also know how to define my parameter set.


is there some script using flow commands after the auto calibration that would enable the program to review the auto calibration results and if they are over a certain standard deviation either stop the program or start the calibration again?

If there is a way, please post the script i would need to use including flow commands.

AUTOCALIBRATE/PROBE, PARAMETER_SET=90's, QUALTOOL_MOVED=NO,
CHECK COLLISION=NO, SHOW_SUMMARY=YES, OVERWRITE_RESULTSFILE=YES
BEGIN AUTOCALIBRATE RESULTS FOR PROBE LEITZ_TIP2BY40 USING SET 90's
END AUTOCALIBRATE RESULTS FOR PROBE LEITZ_TIP2BY40 USING SET 90's

this is a far as i have got
  • Try this:

    Autoqual happens.

    Feed the NUMBER of your STDDEV into a variable.

    Check the variable to see if it is less than or greater than 0.0002 (or whatever you want).

    If STDDEV is less than 0.0002, QUAL is good which means goto label gets executed, program continues on. If STDDEV is greater than 0.0002, GOTO command is not executed and then it will read the line where the comment complains about the failed calibration.
    Thanks for giving me something fun this afternoon lol 



    STARTUP =ALIGNMENT/START,RECALL:USE_PART_SETUP,LIST=YES
ALIGNMENT/END
LOADPROBE/7107_G_4X20
TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=0
DO_QUAL_AGAIN=LABEL/
AUTOCALIBRATE/PROBE, PARAMETER_SET=T1A0B0_MASTER, QUALTOOL_MOVED=YES_DCC,
CHECK COLLISION=NO, SHOW_SUMMARY=NO, OVERWRITE_RESULTSFILE=NO
ASSIGN/STDDEV=PROBEDATA("standarddeviation","T1A0B0")
IF_GOTO/STDDEV<0.0002,GOTO = LABEL_QUAL_FAILURE_SKIP
COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
CMM has failed qualification!

Please clean hardware as well
as qualification sphere.

Click OK to re-try.
Click CANCEL to cancel.
GOTO/DO_QUAL_AGAIN
LABEL_QUAL_FAILURE_SKIP=LABEL/
  • try this:

    Autoqual happens.

    Feed the number of your stddev into a variable.

    Check the variable to see if it is less than or greater than 0.0002 (or whatever you want).

    If stsdev is less than 0.0002, qual is good which means goto label gets executed, program continues on. If stddev is greater than 0.0002, goto command is not executed and then it will read the line where the comment complains about the failed calibration.
    Thanks for giving me something fun this afternoon lol 



    startup =alignment/start,recall:use_part_setup,list=yes
alignment/end
loadprobe/7107_g_4x20
tip/t1a0b0, shankijk=0, 0, 1, angle=0
do_qual_again=label/
autocalibrate/probe, parameter_set=t1a0b0_master, qualtool_moved=yes_dcc,
check collision=no, show_summary=no, overwrite_resultsfile=no
assign/stddev=probedata("standarddeviation","t1a0b0")
if_goto/stddev<0.0002,goto = label_qual_failure_skip
comment/oper,no,full screen=no,auto-continue=no,
cmm has failed qualification!

Please clean hardware as well
as qualification sphere.

Click ok to re-try.
Click cancel to cancel.
Goto/do_qual_again
label_qual_failure_skip=label/





    absolute legend!!!!!!!

  • ​​​​​​​If you have PC-Dmis 2020 R1 or R2 you can look at the example routines on the discover tab of the homepage. There is an "autocalibrate rack" routine that I wrote which contains examples of this kind of thing.
  • in reply to Stuart_Ward
    Glad I could help!

    Please post your finished code, I'm curious to see what you end up using.
  • Write, next thing. Thia is basic and ive forgot as i havent used this in a long time!!!!!
  • Comment/input

    C1=Please enter serial no
    C1.input

    assign v1=c1.input etc etc




    then the print command (insert print command)

    how do i get it to save the input serial no automatically in the

    .pdf

    c/drive location file etc etc/////// var_ v1 .pdf
  • Example:

    ASSIGN/FILENAME="P:\Reports"+V1+".pdf"
  • I do this:

    Before measurement program 
    SERIALNUMBERQUESTION =COMMENT/INPUT,NO,FULL SCREEN=NO,
Serial Number:
ASSIGN/VAR_SERIALNUMBER="Serial Number: "+SERIALNUMBERQUESTION.INPUT
COMMENT/REPT,

COMMENT/REPT,
VAR_SERIALNUMBER
COMMENT/REPT,

RUNNUMBERQUESTION =COMMENT/INPUT,NO,FULL SCREEN=NO,
Run Number:
IF_GOTO/RUNNUMBERQUESTION.INPUT<1 OR RUNNUMBERQUESTION.INPUT>9999,GOTO = RUNNUMBERQUESTION
IF_GOTO/LEN(RUNNUMBERQUESTION.INPUT)>4,GOTO = RUNNUMBERQUESTION
ASSIGN/VAR_RUNNUMBER=FORMAT("%04d",INT(RUNNUMBERQUESTION. INPUT))
ASSIGN/VAR_RUNNUMBER_STATEMENT="Run Number: "+VAR_RUNNUMBER
COMMENT/REPT,
VAR_RUNNUMBER_STATEMENT
COMMENT/REPT,

ASSIGN/PROG_NAME=GETPROGRAMINFO ("PARTNAME")
ASSIGN/REPORT_NAME="O:\\CMM PROGRAMS\\CMM_PDF_PC DMIS\\DELETEME\\"+PROG_NAME+"__"+SERIALNUMBERQUEST ION.INPUT+"__"+VAR_RUNNUMBER+"-.PDF"


    End of the program 
    PRINT/REPORT,EXEC MODE=END,$
TO_FILE=ON,AUTO=1,AUTO OPEN=OFF,$
TO_PRINTER=OFF,COPIES=1,$
TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=REPO RT_NAME,$
REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$
TO_EXCEL=OFF,$
PREVIOUS_RUNS=KEEP_INSTANCES
  • C1 =COMMENT/INPUT,NO,FULL SCREEN=NO,
    Enter P/O No
    C2 =COMMENT/INPUT,NO,FULL SCREEN=NO,
    Enetr Serial No




    ASSIGN/SAVE_AS="C:\USERS\PUBLIC\DOCUMENTS\HEXAGON\PC-DMIS\2020 R2\" +C1.INPUT+ " - " +C2.INPUT+ "_OP10.PDF"
    PRINT/REPORT,EXEC MODE=END,$
    TO_FILE=ON,APPEND=SAVE_AS,AUTO OPEN=OFF,$
    TO_PRINTER=OFF,COPIES=1,$
    TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
    REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$
    TO_EXCEL=OFF,$
    PREVIOUS_RUNS=DELETE_INSTANCES
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement