Jump to content

Need help with vbscript and Adobe Illustrator preset


Clutch Cargo
 Share

Recommended Posts

Hey there... my first post. :)

Over the months I think I have become a fairly good beginner with vbscript and have even interfaced with Photoshop and Illustrator but this one has stumped me for weeks.  If you are familiar with Illustrator I am trying to take a Tiff image and trace it with a custom trace I have created.  So if you are interested in vbscript and Illustrator I could really use a second pair of eyes.  Apparently, it can be done. I have API documentation, Java and VBA examples but this is over my head.
Any takers?

Here is what I have so far (one of many renditions):

Set App = CreateObject("Illustrator.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = FSO.GetFolder("S:\SOCAL\Section_31\Land Cover")


Dim FileRef
For Each FileRef In SourceFolder.Files
    
    Set AutoCADOpenOptions = App.Preferences.AutoCADFileOptions
        AutoCADOpenOptions.MergeLayers = false
        CurrentInteractionLevel = App.UserInteractionLevel
        App.UserInteractionLevel = -1 ' aiDontDisplayAlerts
        Set myDoc = App.Open(FileRef.Path,2)
        App.UserInteractionLevel = CurrentInteractionLevel
        
        ubound(App.TracingPresetsList)
        ' The line below loads tiff file into Illustrator ready for a custom trace
        App.DoScript "LandCover-1", "Land Cover Auto"
        
        ' From thi point on I am having no success. Need help building this out.
        Dim idoc    : idoc    = App.ActiveLayer
        Dim iplaced : iplaced = App.PlacedItem
        Dim itraced : itraced = App.ActiveLayer
        Dim iFile   : iFile   = FileRef.PlacedItems.Trace
        
        iFile.tracing.tracingOptions.loadFromPreset(tracingPresets[3])



Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...