×
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

Obstacles during the development of a macro (drawing)

Obstacles during the development of a macro (drawing)

Obstacles during the development of a macro (drawing)

(OP)
This is my first post, so first of all, hi everyone!!

I'm developing a macro that get info from parameters and user inputs (using dialogs or userforms) and puts it in tables, texts and title block in a drawing.

Some of the tasks that I'm unable to accomplish are :

- Draw a roughness symbol

- Get the height of a text present in the drawing (I'd need this for positioning the text over a table of variable size). The text is variable too, if not it'd be easy to measure its height.

- Manage the event of adding a new sheet or inserting a view to automatically run a rule, reaction or macro

- Reorder a parameter (change its position in the tree)

I don´t even know whether is it possible to be donde.

Help would be very appreciated. Sorry for my English and thanks in advance.

RE: Obstacles during the development of a macro (drawing)

also stuck with roughness symbol. i just create roughness symbol with lines (script)

RE: Obstacles during the development of a macro (drawing)

Hi,

1.There is no API to create roughness symbol.
2.
For DrawViewCount = 3 To DrawSheet.Views.Count
Set DrawView = DrawSheet.Views.Item(DrawViewCount)
For DrawTextCount = 1 To DrawView.Texts.Count
Set DrawText = DrawView.Texts.Item(DrawTextCount)
For TextCount = 1 To Len(DrawText.Text)
If DrawText.GetParameterOnSubString(catFontSize, TextCount, 1) = "5" Then
DrawText.SetParameterOnSubString catColor, TextCount, 1, 65280
End If
Next ''TextCount
Next ''DrawTextCount
Next'' DrawViewCount
3. Never tried...
4. I don't think is possible, still you can try cut/paste (I didn't try).

Regards
Fernando

https://picasaweb.google.com/102257836106335725208 - Romania
https://picasaweb.google.com/103462806772634246699... - EU

RE: Obstacles during the development of a macro (drawing)

(OP)
Hi!

Thanks ferdo.

In relation with the roughness symbol, I tried calling the Catia command and after not getting a good behavieur and looking for info, I read that CATIA.StartCommand is not valid for interactive commands. I will try with hide/show preexisting sysmbols because I'll only need two types.

Regards.

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