Automate Outline Object

[Rick Quatro]

Hi Don,

FrameScript would certainly pay for itself with this job alone. If you 
decide to try it, here is the code to add a 1 point border to all of the 
imported graphics on body pages in the document.

If ActiveDoc = 0
  MsgBox 'There is no active document.';
  LeaveSub;
Else
  Run ProcessDoc oDoc(ActiveDoc);
EndIf

Sub ProcessDoc
//
Set oGraphic = oDoc.FirstGraphicInDoc;
Loop While(oGraphic)
  // See if the graphic is an imported graphic.
  If oGraphic.ObjectName = 'Inset'
    // See if the graphic is on a body page.
    If oGraphic.Page.ObjectName = 'BodyPage'
      Set oGraphic.Pen = FillBlack;
      Set oGraphic.BorderWidth = 1pt;
    EndIf
  EndIf
  Set oGraphic = oGraphic.NextGraphicInDoc;
EndLoop
//
EndSub

Without FrameScript, you could save your documents as MIF and use a text 
editor to add the border. See the online MIF Reference for the syntax 
details.

Rick Quatro
Carmen Publishing
585-659-8267
www.frameexpert.com


> All,
>
> Is there a way to automate putting an outline on a graphic object. (Other 
> than using FrameScript which I don't have.)
> I can do this manually by selecting the object then the Tools Palette but 
> I've got about 1200 graphic objects to modify.
>
> If not, I'll look at modifying the actual graphic to put a border on them.
>
> Thanks,
> Don.
>
> -- 
> Don Rinderknecht -- KD5MVV
> Meteorologist Instructor/Developer ~ Warning Decision Training Branch
> Donald.M.Rinderknecht at noaa.gov ~ http://wdtb.noaa.gov
>
> _______________________________________________