I am new to script programming and hope somebody can help.
I need to measure parts with holes on various pitch diameters to determine the PCD. The problem is that the amount of holes vary from part to part (10, 12, 16, 20, etc). I setup a part program using variables and flow controlk commands. I construct the pitch circles using the relevant amount of holes and get the diameter of each pitch circle eg.
DIM LOC10= LOCATION OF CIRCLE CIR_PCDH12 UNITS=MM ,$
GRAPH=OFF TEXT=OFF MULT=1000.00 OUTPUT=BOTH
AX MEAS
D 550.025
END OF DIMENSION LOC10
DIM LOC12= LOCATION OF CIRCLE CIR_PCDH12 UNITS=MM ,$
GRAPH=OFF TEXT=OFF MULT=1000.00 OUTPUT=BOTH
AX MEAS
D 550.025
END OF DIMENSION LOC12
If I print the report, all the PCD's are printed. I am looking for a script to change the output mode for the unnecessary dimensions to OUTPUT=NONE.
C1 =COMMENT/INPUT,NO,'Enter your choice: ,For A : TYPE "A" ,For B : TYPE "B" ,For C : TYPE "C"'
ASSIGN/V1 = C1.INPUT
IF/V1 == "A" OR V1 == "B" OR V1 == "C" GOTO/GO_THERE END_IF/
IF/V1 <> "A" OR V1 <> "B" OR V1 <> "C" COMMENT/OPER,NO,YOU HAVE ENTERED A BOGUS VALUE! , ,TRY AGAIN! GOTO/GO_HERE END_IF/
$$ NO,***** GO_THERE =LABEL/ $$ NO,*****
$$ NO,***** $$ NO,***** YOUR PROGRAM CODE HERE $$ NO,*****
DO/ SELECT/C1.INPUT CASE/"A" $$ NO,You have selected A. DIM LOC1= LOCATION OF POINT PNT1 UNITS=MM ,$ GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=REPORT AX MEAS NOMINAL +TOL -TOL DEV OUTTOL X 1.0000 1.0000 0.0100 0.0100 0.0000 0.0000 Y 0.0000 0.0000 0.0100 0.0100 0.0000 0.0000 Z 0.0000 0.0000 0.0100 0.0100 0.0000 0.0000 END OF DIMENSION LOC1 END_CASE/ CASE/"B" $$ NO,You have selected B. DIM LOC2= LOCATION OF POINT PNT2 UNITS=MM ,$ GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=REPORT AX MEAS NOMINAL +TOL -TOL DEV OUTTOL X 2.0000 2.0000 0.0100 0.0100 0.0000 0.0000 Y 0.0000 0.0000 0.0100 0.0100 0.0000 0.0000 Z 0.0000 0.0000 0.0100 0.0100 0.0000 0.0000 END OF DIMENSION LOC2 END_CASE/ CASE/"C" $$ NO,You have selected C. DIM LOC3= LOCATION OF POINT PNT3 UNITS=MM ,$ GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=REPORT AX MEAS NOMINAL +TOL -TOL DEV OUTTOL X 3.0000 3.0000 0.0100 0.0100 0.0000 0.0000 Y 0.0000 0.0000 0.0100 0.0100 0.0000 0.0000 Z 0.0000 0.0000 0.0100 0.0100 0.0000 0.0000 END OF DIMENSION LOC3 END_CASE/ END_SELECT/ UNTIL/V1 <> "A" OR V1 <> "B" OR V1 <> "C" $$ NO,*****
C1 =COMMENT/INPUT,NO,'Enter your choice: ,For A : TYPE "A" ,For B : TYPE "B" ,For C : TYPE "C"'
ASSIGN/V1 = C1.INPUT
IF/V1 == "A" OR V1 == "B" OR V1 == "C" GOTO/GO_THERE END_IF/
IF/V1 <> "A" OR V1 <> "B" OR V1 <> "C" COMMENT/OPER,NO,YOU HAVE ENTERED A BOGUS VALUE! , ,TRY AGAIN! GOTO/GO_HERE END_IF/
$$ NO,***** GO_THERE =LABEL/ $$ NO,*****
$$ NO,***** $$ NO,***** YOUR PROGRAM CODE HERE $$ NO,*****
DO/ SELECT/C1.INPUT CASE/"A" $$ NO,You have selected A. DIM LOC1= LOCATION OF POINT PNT1 UNITS=MM ,$ GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=REPORT AX MEAS NOMINAL +TOL -TOL DEV OUTTOL X 1.0000 1.0000 0.0100 0.0100 0.0000 0.0000 Y 0.0000 0.0000 0.0100 0.0100 0.0000 0.0000 Z 0.0000 0.0000 0.0100 0.0100 0.0000 0.0000 END OF DIMENSION LOC1 END_CASE/ CASE/"B" $$ NO,You have selected B. DIM LOC2= LOCATION OF POINT PNT2 UNITS=MM ,$ GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=REPORT AX MEAS NOMINAL +TOL -TOL DEV OUTTOL X 2.0000 2.0000 0.0100 0.0100 0.0000 0.0000 Y 0.0000 0.0000 0.0100 0.0100 0.0000 0.0000 Z 0.0000 0.0000 0.0100 0.0100 0.0000 0.0000 END OF DIMENSION LOC2 END_CASE/ CASE/"C" $$ NO,You have selected C. DIM LOC3= LOCATION OF POINT PNT3 UNITS=MM ,$ GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=REPORT AX MEAS NOMINAL +TOL -TOL DEV OUTTOL X 3.0000 3.0000 0.0100 0.0100 0.0000 0.0000 Y 0.0000 0.0000 0.0100 0.0100 0.0000 0.0000 Z 0.0000 0.0000 0.0100 0.0100 0.0000 0.0000 END OF DIMENSION LOC3 END_CASE/ END_SELECT/ UNTIL/V1 <> "A" OR V1 <> "B" OR V1 <> "C" $$ NO,*****