×
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

Catia macro: how to get the dimension text position

Catia macro: how to get the dimension text position

Catia macro: how to get the dimension text position

(OP)
Hello guys,
Is there a method to retrieve the dimension text position data? I failed to find the a way to do it.
I intend to give number 001,002...to all the dimensions automatically. This number text is placed nearby the dimension text.
Thanks in advance.

Regards,
Louis

RE: Catia macro: how to get the dimension text position

You could add text [001,002,... ] to Value with "SetPSText" or SetBaultText". Then the position of text does not matter.

RE: Catia macro: how to get the dimension text position

(OP)
Hello Romaleee,
what would be the code to do that exactly?

what i want to do is to give numbering to all the dimensions in the sheet from 1 to n, the number supposed nearby the dimension text. So i need to get the dimension text position.

is there a way to do it?

BR,
Louis

RE: Catia macro: how to get the dimension text position

I think what Romaleee is referring to are the "Insert text before" and "Insert text after" manipulators

regards,
LWolf

RE: Catia macro: how to get the dimension text position

It's exactly like Lwolf said. You can add text with code in this fields...



With this your text will always stick with dimension value.

RE: Catia macro: how to get the dimension text position

and the code...

CODE --> vba

Dim oDim As DrawingDimension
Set oDim = drawingDimensions1.Item("Dimension.1")

Dim oValue As DrawingDimValue
Set oValue = oDim.GetValue

oValue.SetBaultText 1, "before - ", " - after", "upper", "lower" 

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