Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations cowski on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Automated Title Block and more

Status
Not open for further replies.
theribeiro

theribeiro

Computer
Joined
Aug 19, 2020
Messages
12
Location
PT
Hello everyone ! my name is Andre. Im an IT student internshipping in a metal design factory working for the first time with Catia.
I'm working using Catia v5r26.

So here they have a custom title block someone made, and they use it for all the parts.
The thing is they have it in a CATdrawing, each time they need it they create a copy of the file and delete the previous part views and data. And they fill the gaps with the new information by hand.

I'm trying to find a way to have the custom title block in a macro or by someway that would be more easily acessible. And fill the gaps such as date, number part, material and Designer automatically (getting that information from the part itself).

1 - Would there be a way to "transfer" the custom title block they have into code ? or do i need to draw it all over again ? I don't have much experience creating tables and its not simple, it has different column and row width, an image...

2 - Can I get that automated filling of the gaps using only formulas ? or is macro necessary too ?

I've searched but haven't found a thing like this. However if you can send me links or something I appreciate :D

Thank you in advance, any help is amazing

André
 
Sort by date Sort by votes
Thank you ferdo and Lwolf for the quick responses

I used their custom title block as a background view in Page Setup. Is it possible to get this into the code ?
I'm having problems also in filling the gaps
 
Upvote 0 Downvote
Upvote 0 Downvote
C:\Program Files\Dassault Systemes\B28\win_b64\VBScript\FrameTitleBlock

regards,
LWolf
 
Upvote 0 Downvote
Sorry, I wasn't clear. I mean my company's title block is what I'd like to convert to code not the default samples of Catia.
Is there an automatic way to do this ? or it has to be written ?
 
Upvote 0 Downvote
I saw on another thread, ferdo you wrote:
"In this case you can write on the drawing sheet a text in a specific point location. Put a point where you want to add text, take the coordinates and do it in a separate macro. Your text still can be added in the title block field, is not neccessary to open and edit the title block (I suppose is not a picture)."

I will try this instead.


 
Upvote 0 Downvote
I do have text boxes and I figured I can get to them using the "Insert Object Resolution" tool. Now changing their value I'm still looking for that. Can you point me in the right direction?

Set drawingDocument1 = CATIA.ActiveDocument

Set drawingSheets1 = drawingDocument1.Sheets

Set drawingSheet1 = drawingSheets1.Item("Sheet.1")

Set drawingViews1 = drawingSheet1.Views

Set drawingView1 = drawingViews1.Item("Background View")

Set drawingTexts1 = drawingView1.Texts

Set drawingText1 = drawingTexts1.Item("Text.82")
 
Upvote 0 Downvote
Now changing their value I'm still looking for that.
Click to expand...

Code: 
Set drawingText1 = drawingTexts1.Item("Text.82")
drawingText1.Text = "My new text"

I'd say that you're going to have really hard time exploring those texts since they have auto-generated names. It means each time a text get pasted in a list it gets unique number as a suffix. So the same piece of a frame titleblock is going to have different names on different sheets.
 
Upvote 0 Downvote
3_oqxsjf.png
2_icnzep.png


Here's the titleblock.

Little Cthulhu I've tried your code and it ran but didnt change anything whatsoever.
I pretend to use this titleblock as a background view everytime we need it for a new product. Using page setup to get it. I've tested doing this and using the "Insert Object Resolution" tool and it gives the same output for each one of the text boxes as in the original. For exameple the text box with the 1 inside puts out object Text.79.

Can i change the names of the text boxes ?

[EDIT]- I now know I can change the name of the text boxes, would that facilitate the job ? still can't change the text inside it though.
 
Upvote 0 Downvote
i've got this :

Code: 
Language="VBSCRIPT"
Sub CATMain()
CATIA.ActiveDocument.Selection.clear
Set drawingDocument1 = CATIA.ActiveDocument
Set selection1 = drawingDocument1.Selection
selection1.Search "CATDrwSearch.DrwText.TextString=*fillmaterial*,all"
Text1 = selection1.Count
'CATIA.ActiveDocument.Selection.clear
Text2 = "aluminium"
If  selection1.Count > 0 Then
selection1.Item(1).Value.Text = Text2
End If
CATIA.ActiveDocument.Selection.clear
End Sub

And it works but it goes by the content not the box. I dont manage to get the box selection working.
 
Upvote 0 Downvote
see Little Cthulhu last post

regards,
LWolf
 
Upvote 0 Downvote
I've tried this and it doesnt work. I'm sure there's something really obvious wrong with it.

Code: 
Language="VBSCRIPT"

Sub CATMain()
CATIA.ActiveDocument.Selection.clear

Set drawingDocument1 = CATIA.ActiveDocument

Set drawingSheets1 = drawingDocument1.Sheets

Set drawingText1 = drawingTexts1.Item("Text_01")
drawingText1.Text = "My new text" 

End Sub
 
Upvote 0 Downvote
Always put Option Explicit in the first line of your every script. This way you're going to discover errors easier.

Code: 
Option Explicit
Sub CATMain()
  Dim doc as DrawingDocument
  set doc = CATIA.ActiveDocument
  Dim view as DrawingView
  set view = doc.Sheets.ActiveSheet.Views.Item(1) ' 1 - background view, 2 - main view
  Dim txt as DrawingText
  Set txt = view.Texts.Item("Text_01")

  txt.Text = "My new text" 
End Sub
 
Upvote 0 Downvote
Always put Option Explicit in the first line of your every script. This way you're going to discover errors easier.

Code: 
Option Explicit
Sub CATMain()
  Dim doc as DrawingDocument
  set doc = CATIA.ActiveDocument
  Dim view as DrawingView
  set view = doc.Sheets.ActiveSheet.Views.Item(2) ' 1 - main view, 2 - background view
  Dim txt as DrawingText
  Set txt = view.Texts.Item("Text_01")

  txt.Text = "My new text" 
End Sub
 
Upvote 0 Downvote
Didn't work, gave an error right in the:
Dim doc as DrawingDocument
 
Upvote 0 Downvote
actually, background view is View.Item(2)

regards,
LWolf
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

A
  • Locked
  • Question Question
Catia V5/V6 Frame and Title Block CreateSpline
Replies
7
Views
4K
weagan22
weagan22
A
  • Question Question
CATIA V5 DRAFTING/DRAWING TITLE BLOCK SCALE UPDATE
Replies
5
Views
4K
amadali
A
G
Problem with Title Block updation
Replies
1
Views
1K
MrCATIA
M
A
  • Locked
  • Question Question
'Deploy' Frame/Title block script
Replies
4
Views
3K
ferdo
ferdo
rookiezzz
  • Locked
  • Question Question
Macro is running more and more slowly
Replies
4
Views
2K
rookiezzz
rookiezzz

Part and Inventory Search

Sponsor

Back
Top