Re: macro?

the same talented brother of mine gave me this version 2 of his script, helping me with naming and putting the subclips in a specific folder...

the trouble is, these scripts make something odd happen to vegas, occasionally the script won't finish and vegas will tell me an exception has occurred,

then i try and load the same file (saved after i had done a script or 2) and it won't load...

gets to 85%, 90%, or 94% and fails, "an exception has occurred" again...

so clearly there's something not right with my brothers scripts, (and it is his 1st time writing them), i know it's a lot to ask, but does anything strike anyone in the code?

thanks again x


/**

* You can use this script to convert Vegas regions to subclips. It will only work with saved projects.

*

* To use this script:

*

* 1) Create named Vegas regions.

* 2) Confirm no overlapped regions.

* 3) Vegas>tools>scripting>run script>Convert Regions To Subclips.cs

* 4) Check Project Media to see the subclips

*

* Revision Date: June 22, 2008.

**/

using System;

using System.IO;

using System.Text;

using System.Collections;

using System.Windows.Forms;

using System.Globalization;

using Sony.Vegas;



public class EntryPoint

{

Vegas myVegas;



public void FromVegas(Vegas vegas) {

myVegas = vegas;



String projName;



String projFile = myVegas.Project.FilePath;

if ((null == projFile) || (String.Empty == projFile)) {

projName = "Untitled";

} else {

projName = Path.GetFileNameWithoutExtension(projFile);

}



ConvertRegionsToSubclips();

}



void ConvertRegionsToSubclips() {

try {

/* foreach (Media media in myVegas.Project.MediaPool)

{

foreach (Region region in media.Regions)

{

//MessageBox.Show(media.FilePath);

//MessageBox.Show(region.Label);

Subclip subclip = new Subclip(myVegas.Project.FilePath, region.Position, region.Length, false, region.Label);

}

}*/

if (myVegas.Project.FilePath.Equals(""))

MessageBox.Show("Please save project before running this script");

else

{

MediaBin InOrderBin = myVegas.Project.MediaPool.RootMediaBin;

bool foundIt = false;

foreach (MediaBin bin in myVegas.Project.MediaPool.RootMediaBin)

{

if (bin.Name.Equals("in order"))

{

InOrderBin = bin;

foundIt = true;

}

}

if (foundIt)

{

String suffix = "";

foreach (Region region in myVegas.Project.Regions)

{

//MessageBox.Show(myVegas.Project.FilePath);

//MessageBox.Show(region.Label);

String subclipLabel;

if (suffix.Equals(""))

{

subclipLabel = region.Label;

suffix = region.Label.Substring(1);

}

else

subclipLabel = region.Label + suffix;

Subclip subclip = new Subclip(myVegas.Project.FilePath, region.Position, region.Length, false, subclipLabel);

InOrderBin.Add(subclip);

}

}

else

{

MessageBox.Show("Cannot find media bin "in order"");

}

}

} finally {

}

}

}