Multi Dimension code or script question

I have six dimensions and I only want to report the one closest to 16.0mm???? is there a script or code to do this. I'm trying to learn this fancy programing

Here is a sample of the six dimension that I have. Thanks for the help. Be easy on me I'm new to this part of programing

(where is Craiger when you need Him:<

EHines over 16 years ago

DIM DIST7= LOCATION OF POINT F1  UNITS=IN ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
X     16.0000     0.1000     0.1000    15.7230    -0.2770     0.1770 <--------
END OF DIMENSION DIST7
DIM DIST8= LOCATION OF POINT F2  UNITS=IN ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
X     16.0000     0.1000     0.1000    15.7050    -0.2950     0.1950 <--------
END OF DIMENSION DIST8
DIM DIST9= LOCATION OF POINT F3  UNITS=IN ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
X     16.0000     0.1000     0.1000    15.6400    -0.3600     0.2600 <--------
END OF DIMENSION DIST9
DIM DIST10= LOCATION OF POINT F4  UNITS=IN ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
X     16.0000     0.1000     0.1000    15.6780    -0.3220     0.2220 <--------
END OF DIMENSION DIST10
DIM DIST11= LOCATION OF POINT F5  UNITS=IN ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
X     16.0000     0.1000     0.1000    15.7040    -0.2960     0.1960 <--------
END OF DIMENSION DIST11
DIM DIST12= LOCATION OF POINT F6  UNITS=IN ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
X     16.0000     0.1000     0.1000    15.7220    -0.2780     0.1780 <--------
END OF DIMENSION DIST12
            ASSIGN/V1 = ARRAY(ABS(DIST7.X.DEV),ABS(DIST8.X.DEV),ABS(DIST9.X.DEV),ABS(DIST10.X.DEV),ABS(DIST11.X.DEV),ABS(DIST12.X.DEV))
            IF/MIN(V1)==ABS(DIST7.X.DEV)
            ASSIGN/V3 = DIST7.X.MEAS
            END_IF/
            IF/MIN(V1)==ABS(DIST8.X.DEV)
            ASSIGN/V3 = DIST8.X.MEAS
            END_IF/
            IF/MIN(V1)==ABS(DIST9.X.DEV)
            ASSIGN/V3 = DIST9.X.MEAS
            END_IF/
            IF/MIN(V1)==ABS(DIST10.X.DEV)
            ASSIGN/V3 = DIST10.X.MEAS
            END_IF/
            IF/MIN(V1)==ABS(DIST11.X.DEV)
            ASSIGN/V3 = DIST11.X.MEAS
            END_IF/
            IF/MIN(V1)==ABS(DIST12.X.DEV)
            ASSIGN/V3 = DIST12.X.MEAS
            END_IF/
F7         =GENERIC/POINT,DEPENDENT,RECT,$
            NOM/XYZ,16,0,0,$
            MEAS/XYZ,V3,0,0,$
            NOM/IJK,0,0,1,$
            MEAS/IJK,0,0,1
DIM LOC7= LOCATION OF POINT F7  UNITS=IN ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
X     16.0000     0.1000     0.1000    15.7230    -0.2770     0.1770 <--------
END OF DIMENSION LOC7

It's fugly but it seems to get the job done. I'm sure that someone will come up with better. I did this in 3.7 but it should work for you.

Don Henger over 16 years ago

DIM DIST7= LOCATION OF POINT F1  UNITS=IN ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
X     16.0000     0.1000     0.1000    15.7230    -0.2770     0.1770 <--------
END OF DIMENSION DIST7
DIM DIST8= LOCATION OF POINT F2  UNITS=IN ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
X     16.0000     0.1000     0.1000    15.7050    -0.2950     0.1950 <--------
END OF DIMENSION DIST8
DIM DIST9= LOCATION OF POINT F3  UNITS=IN ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
X     16.0000     0.1000     0.1000    15.6400    -0.3600     0.2600 <--------
END OF DIMENSION DIST9
DIM DIST10= LOCATION OF POINT F4  UNITS=IN ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
X     16.0000     0.1000     0.1000    15.6780    -0.3220     0.2220 <--------
END OF DIMENSION DIST10
DIM DIST11= LOCATION OF POINT F5  UNITS=IN ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
X     16.0000     0.1000     0.1000    15.7040    -0.2960     0.1960 <--------
END OF DIMENSION DIST11
DIM DIST12= LOCATION OF POINT F6  UNITS=IN ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
X     16.0000     0.1000     0.1000    15.7220    -0.2780     0.1780 <--------
END OF DIMENSION DIST12
            ASSIGN/V1 = ARRAY(ABS(DIST7.X.DEV),ABS(DIST8.X.DEV),ABS(DIST9.X.DEV),ABS(DIST10.X.DEV),ABS(DIST11.X.DEV),ABS(DIST12.X.DEV))
            IF/MIN(V1)==ABS(DIST7.X.DEV)
            ASSIGN/V3 = DIST7.X.MEAS
            END_IF/
            IF/MIN(V1)==ABS(DIST8.X.DEV)
            ASSIGN/V3 = DIST8.X.MEAS
            END_IF/
            IF/MIN(V1)==ABS(DIST9.X.DEV)
            ASSIGN/V3 = DIST9.X.MEAS
            END_IF/
            IF/MIN(V1)==ABS(DIST10.X.DEV)
            ASSIGN/V3 = DIST10.X.MEAS
            END_IF/
            IF/MIN(V1)==ABS(DIST11.X.DEV)
            ASSIGN/V3 = DIST11.X.MEAS
            END_IF/
            IF/MIN(V1)==ABS(DIST12.X.DEV)
            ASSIGN/V3 = DIST12.X.MEAS
            END_IF/
F7         =GENERIC/POINT,DEPENDENT,RECT,$
            NOM/XYZ,16,0,0,$
            MEAS/XYZ,V3,0,0,$
            NOM/IJK,0,0,1,$
            MEAS/IJK,0,0,1
DIM LOC7= LOCATION OF POINT F7  UNITS=IN ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
X     16.0000     0.1000     0.1000    15.7230    -0.2770     0.1770 <--------
END OF DIMENSION LOC7

It's fugly but it seems to get the job done. I'm sure that someone will come up with better. I did this in 3.7 but it should work for you.

Thanks EHines
It did get the job done... There are a few questions maybe tomorrow you could inlighten me... Thanks again EHines