Macro to incorporate file name in illustration

[FrancisPaille]

We have many thousand illustrations without any title visible on illustration to identify them, so is there a way to run batch export with macro that take existing illustrations and add is own file name inside at specific place. If somebody have experience to help me solving this problem and save us labor, it will be much appreciated!

Thanks!

[thendricks]

It is possible. Depending on whether you just want the outputted file to have the verbiage or the source as well would dictate how you proceed. Unfortunately I'm out for the next 2 weeks. Hopefully someone will be able to help you before that. If not, I'll be able to take a closer look then.

[FrancisPaille]

Hi Trevor, thanks for your fast feedback, I’m very happy to ear that it is possible process... it will save many hours, If somebody else could help me before you came back, but a could wait 2 weeks, that’s not a problem to save that amount of time!!!

Thanks!

[bfriesen · Accepted solution]

We kind of do the same thing only we pull the name of the file to be placed on the illustraition. Here is what our macro looks like. We run it when we are done our illustriaon in Isodraw. It will show up on the RH side of the illustration vertically placed on a layer labeled Illustraion Number

Macro Add_MacDon_FileName

Define h As Integer
Define w As Integer
w = activeDoc.window.pageX-2
h = 2

#Message "The height is " + h
#Message "The width is " + w

#Added below command to ensure number is placed on the Illustation number layer

ACTIVATE LAYER "Illustration Number"
Select none
Text Align Left
Text font 'Arial'
Text size 6
Create Text w h stripext(activeDoc.name)
Rotate selection w h 90

End Macro

[FrancisPaille]

Hi Bryon,

I addapted this macro with our layer, Std text and position inside predifine frame, and it work perfectly!!!

The missing part on my macro was (activeDoc.name).

Big thumb's up! Thanks!

Macro Flight Title
# recorded with Arbortext IsoDraw 7.1
Define h As Integer
Define w As Integer
w = activeDoc.window.pageX-24
h = 47

#Message "The height is " + h
#Message "The width is " + w

#Added below command to ensure number is placed on the Illustation number layer
Activate layer "Standard layer"
Select none
Create Text w h stripext(activeDoc.name)
Rotate selection w h 90
Select at 111.796 258.949
Text font "Helvetica"
Text size 6
Text align centered
Select none
Select at 100.188 258.779
Select at 100.188 258.779
Move Selection 8.305 (-9.064)
Select none
Zoom page
End Macro