hexagon logo

Set Flag if Dimension Out-of-Tolerance

Here's what I'm trying to do - Display a message, prior to printing results, that says "There are N dimensions out-of-tolerance, do you still want to print the report?" Of course, I could accomplish this by doing a whole lot of computations with expressions, but I'd thought I'd first inquire if PC-DMIS can set a flag, based upon the Dimension command, that I can convert into a counter.
Parents
  • I tried these two code : I inserted at the end of the program. I think its right ?

    The code of ERIKIR : Its ok, It seem the visual report updated! I will test more to be sure.

    The code of VPT.se : It can't execute, I have an error message. Maybe somethings missing ? Or somethings wrong ?
    I inser this way (at the end of the program) :

    ASSIGN/V1=0
    ASSIGN/V2=GETPROGRAMINFO("NUMOOT","")
    IF/V2==0
    PRINT/REPORT,EXEC MODE=END,$
    TO_FILE=ON,AUTO=6,$
    TO_PRINTER=OFF,$
    TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
    REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$
    TO_EXCEL_OUTPUT=OFF,
    PREVIOUS_RUNS=DELETE_INSTANCES
    END_IF/
    ELSE_IF/V2>0
    C1 =COMMENT/INPUT,NO,FULL SCREEN=NO,
    You have OOT dimensions, try again !
    PRINT/REPORT,EXEC MODE=END,$
    TO_FILE=OFF,AUTO=3,$
    TO_PRINTER=OFF,$
    TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
    REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$
    TO_EXCEL_OUTPUT=OFF,
    PREVIOUS_RUNS=DELETE_INSTANCES
    END_ELSEIF/
    CS1 =SCRIPT/FILENAME= C:\CMM FILES\SCRIPT BAS\OUTTOL_1.BAS
    FUNCTION/Main,SHOW=YES,,
    STARTSCRIPT/
    ENDSCRIPT/
Reply
  • I tried these two code : I inserted at the end of the program. I think its right ?

    The code of ERIKIR : Its ok, It seem the visual report updated! I will test more to be sure.

    The code of VPT.se : It can't execute, I have an error message. Maybe somethings missing ? Or somethings wrong ?
    I inser this way (at the end of the program) :

    ASSIGN/V1=0
    ASSIGN/V2=GETPROGRAMINFO("NUMOOT","")
    IF/V2==0
    PRINT/REPORT,EXEC MODE=END,$
    TO_FILE=ON,AUTO=6,$
    TO_PRINTER=OFF,$
    TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
    REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$
    TO_EXCEL_OUTPUT=OFF,
    PREVIOUS_RUNS=DELETE_INSTANCES
    END_IF/
    ELSE_IF/V2>0
    C1 =COMMENT/INPUT,NO,FULL SCREEN=NO,
    You have OOT dimensions, try again !
    PRINT/REPORT,EXEC MODE=END,$
    TO_FILE=OFF,AUTO=3,$
    TO_PRINTER=OFF,$
    TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
    REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$
    TO_EXCEL_OUTPUT=OFF,
    PREVIOUS_RUNS=DELETE_INSTANCES
    END_ELSEIF/
    CS1 =SCRIPT/FILENAME= C:\CMM FILES\SCRIPT BAS\OUTTOL_1.BAS
    FUNCTION/Main,SHOW=YES,,
    STARTSCRIPT/
    ENDSCRIPT/
Children
No Data