×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

Grip program to flag dimensions

Grip program to flag dimensions

Grip program to flag dimensions

(OP)
At my company, we seem to be running into a problem with suppliers models and drawings.  They seem to like to model features to one size, and then make the dimension appear as a different size.

For example, a shaft diamter is modeled at 50mm, but they want to show the dimension as 50/49.5.  Instead of making the feature in the model to 49.75mm, they will just adjust the tolerances on the dimension.  This is an issue for us for many reasons...making tooling from the models, creating layouts, etc.

Because it is time consuming to manually check each dimension on a drawing, I thought I would write a program to look at each dimension and change the color of the dimensions that have the tolerances adjusted.

My problem is that while my program looks at each dimension, it is not changing all of the dimensions.  The odd thing is it will NOT change an existing dimension, but if I create a new dimension with the same tolerance values it changes it with no problem.

Here is a snippet of my code...

$ Initialize database cycling
INEXTE/ALL

$ Look for only dimensions
MASK/26

$ Loop to cycle dimensions
a010:
dim = NEXTE/IFEND,rpt:
    $ OBTAIN the dimension info
    OBTAIN/dim,nn

    $ Return the absolute value of the lower tolerance
    nn(3) = ABSF(nn(3))
    
    $ If the tolerance values are not equal, change color to red
    IFTHEN/nn(2) <> nn(3)
         &COLOR(dim) = 4
    ENDIF
JUMP/a010:


Any thoughts?

Chris T.
Project Design Analyst
Kohler Co. Engine Division

RE: Grip program to flag dimensions

Try using &TYPCLR instead of &COLOR.
 

"Wildfires are dangerous, hard to control, and economically catastrophic."

Ben Loosli

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources