Need help on OUTTOL.BAS file

I have used this script many time and have even made a couple minor mods.
Here is my issue. It is looking for "END OF DIMENSION" and profiles and distances do not have this. It skips over and ignore those. Anybody have an idea as to how I can mod this script to do this ???

Time is critical, I appreciate anyone who responds and helps !!

For Each Cmd In Cmds
    ' if the command of the current iteration is a dimension ...
    If Cmd.IsDimension Then
      ' and it is not a start or end dimension object ...
      If Cmd.Type <> DIMENSION_START_LOCATION And _
         Cmd.Type <> DIMENSION_END_LOCATION And _
         Cmd.Type <> DIMENSION_TRUE_START_POSITION And _
         Cmd.Type <> DIMENSION_TRUE_END_POSITION Then
        ' then get the dimensioncommand object from the command
        Set DimCmd = Cmd.DimensionCommand
        ' If it is out of tolerance, increment numberout, otherwise increment numberin
        If DimCmd.OutTol > 0 Then
          NumberOut = NumberOut + 1
        Else

Parents

Matthew D. Hoedeman over 15 years ago

Can you make a generic point based upon the IN/OUT of those types of dimensions, then make a dimension of the generic point that will show you in/out with a END OF DIMENSION statement?

I always wondered WHY those didn't have the ALL IMPORTANT EOD line. Just one of the annoyances of Pcdmis.

Let me check into a "sample" for ya....

Here, this worked: 3D distance does not have the EOD line

DIM D062A= 3D DISTANCE FROM POINT P062 TO PLANE PLN065, NO_RADIUS  UNITS=MM ,$
GRAPH=OFF  TEXT=OFF  MULT=1.00  OUTPUT=BOTH
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
M       1.583      0.250      0.250      0.697     -0.886      0.636 <--------
            ASSIGN/V1 = D062A.OUTTOL
P002       =GENERIC/POINT,DEPENDENT,RECT,$
            NOM/XYZ,0,0,0,$
            MEAS/XYZ,V1,0,0,$
            NOM/IJK,0,0,1,$
            MEAS/IJK,0,0,1
DIM D066= LOCATION OF POINT P002  UNITS=MM ,$
GRAPH=OFF  TEXT=OFF  MULT=1.00  OUTPUT=NONE
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
X       0.000      0.000      0.000      0.636      0.636      0.636 -------->
END OF DIMENSION D066

Send the DIM to NONE so it will not show up on the report or in the stats, but just gets used as an OOT count.

Reply

Matthew D. Hoedeman over 15 years ago

Can you make a generic point based upon the IN/OUT of those types of dimensions, then make a dimension of the generic point that will show you in/out with a END OF DIMENSION statement?

I always wondered WHY those didn't have the ALL IMPORTANT EOD line. Just one of the annoyances of Pcdmis.

Let me check into a "sample" for ya....

Here, this worked: 3D distance does not have the EOD line

DIM D062A= 3D DISTANCE FROM POINT P062 TO PLANE PLN065, NO_RADIUS  UNITS=MM ,$
GRAPH=OFF  TEXT=OFF  MULT=1.00  OUTPUT=BOTH
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
M       1.583      0.250      0.250      0.697     -0.886      0.636 <--------
            ASSIGN/V1 = D062A.OUTTOL
P002       =GENERIC/POINT,DEPENDENT,RECT,$
            NOM/XYZ,0,0,0,$
            MEAS/XYZ,V1,0,0,$
            NOM/IJK,0,0,1,$
            MEAS/IJK,0,0,1
DIM D066= LOCATION OF POINT P002  UNITS=MM ,$
GRAPH=OFF  TEXT=OFF  MULT=1.00  OUTPUT=NONE
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
X       0.000      0.000      0.000      0.636      0.636      0.636 -------->
END OF DIMENSION D066

Send the DIM to NONE so it will not show up on the report or in the stats, but just gets used as an OOT count.

Children

No Data