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

AndersI over 5 years ago

Pseudocode (may contain traces of error…)


If the command is DIMENSION_START then
        extract OutputMode and ID, nothing else.
        set boolean flag InStructuredDimension=True

else if the command is DIMENSION_END then
        set OutputMode to none and ID to "".
        set boolean flag InStructuredDimension=False

else if the command is some other dimensioncommand
        if InStructuredDimensione==True then
              extract everything except OutputMode and ID from the command
        else
              extract everything from the command
        endif
        produce your output
else
        if InStructuredDimension==True then
                structure error (dimension_end missing??)
                set OutputMode to none and ID to "".
                set boolean flag InStructuredDimension=False
        endif
endif

Reply

AndersI over 5 years ago

Pseudocode (may contain traces of error…)


If the command is DIMENSION_START then
        extract OutputMode and ID, nothing else.
        set boolean flag InStructuredDimension=True

else if the command is DIMENSION_END then
        set OutputMode to none and ID to "".
        set boolean flag InStructuredDimension=False

else if the command is some other dimensioncommand
        if InStructuredDimensione==True then
              extract everything except OutputMode and ID from the command
        else
              extract everything from the command
        endif
        produce your output
else
        if InStructuredDimension==True then
                structure error (dimension_end missing??)
                set OutputMode to none and ID to "".
                set boolean flag InStructuredDimension=False
        endif
endif

Children

No Data