hexagon logo
Register Sign in
  • Replies 29 replies
  • Subscribers 32 subscribers
  • Views 625 views
  • Users 0 members are here
Options
Related

Need help on OUTTOL.BAS file

jjewell
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
  • Hello,
    I am trying execute script, script should work if type output of dimension are "BOTH" or "REPORT".

    This don't work:
    If ReportDim = "BOTH" Or ReportDim = "REPORT" Then

    This also don't work:
    [CheckDim = Cmd.GetText (3 , OUTPUT_TYPE, 0)
    If CheckDim <> "" Then
    ReportDim = CheckDim
    End If
    If ReportDim = "BOTH" Or ReportDim = "REPORT" Then]

    As per picture, Dim.No.122 and Dim.No.126 should be shoved and Dim.No.126 should be shoved only once.

    How I should proper add conditions of "BOTH" and "REPORT" ?

    Regards
    Attached Files
Reply
  • Hello,
    I am trying execute script, script should work if type output of dimension are "BOTH" or "REPORT".

    This don't work:
    If ReportDim = "BOTH" Or ReportDim = "REPORT" Then

    This also don't work:
    [CheckDim = Cmd.GetText (3 , OUTPUT_TYPE, 0)
    If CheckDim <> "" Then
    ReportDim = CheckDim
    End If
    If ReportDim = "BOTH" Or ReportDim = "REPORT" Then]

    As per picture, Dim.No.122 and Dim.No.126 should be shoved and Dim.No.126 should be shoved only once.

    How I should proper add conditions of "BOTH" and "REPORT" ?

    Regards
    Attached Files
Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement