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