---

Macro-ToTif.zip

Hi to all,

-------------------------------------------------------------------------------------------------------------------------------

Often I need to export many CatDrawing to tif.

I want to set a directory for input and one for output. Drawings may contain multiple sheets.
I have 2 scripts (see attachments). Each one do partially what I want to do.
One script can manage multiple sheets but convert only 1 file and it need to be open.
The other script don't need that the Drawings are open but it don't manage multiple sheets and convert only the active sheet.

Is there a way to "merge" these script to do the whole work?
I don't know vba or scripting so I can't understand if it's possible to do.
-------------------------------------------------------------------------------------------------------------------------------

The second question is about texts.

Our title block is automatically generated by the system when I create a Drawing.

I want to change some text size/Ratio/Spacing with a macro.

I tried this (actually only for text size):

Language="VBSCRIPT"
Sub CATMain()
Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = drawingDocument1.Selection
selection1.Search "Name=Testo.180,all"
Set A3 = selection1
A3.SetFontSize 0,0,2.2

The macro won't work and break on "A3.SetFontSize 0,0,2.2".

I've found "SetFontSize" on a tutorial but I can't understand if is wrong the command or the way I used it.

For Texts Ratio and Spacing is there a command? I can find anything on the net

-------------------------------------------------------------------------------------------------------------------------------

I'm on Catia R24

p.s.: sorry for my bad english 

Thanks
LuKe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Luke

Welcome to the forum.
Your code is not working, because you have to apply the method to a text and not to the whole selection:

Code:

---

Set A3 = selection1.item2(1).value  '1st selected element
A3.SetFontSize 0,0,2.2

---

Text ration and spacing should work as following (not tested):

Code:

---

A3.SetParameterOnSubString catCharRatio, 0, 0, 2
A3.SetParameterOnSubString catCharSpacing, 0, 0, 2

---

Regards,
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

It works fine

Many thanks for your support

If you have any advise for my other problem about exporting in tif it will be welcome 

LuKe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP