'CONVERTS THE FIRST ACTIVE FEATURE THEME INTO INDIVIDUAL SHAPEFILES BASED ON A SELECTED ATTRIBUTE IN A SPECIFIC FIELD

'LOADING SCRIPTS
' 1. Double-click on an empty area on the bar containing all buttons, The "Customize" dialog appears
' 2. In the "Type" pull-down, select "View"
' 3. In the "Category" pull-down, select "Buttons", The display right below the pull down changes to show an array of buttons
' 4. Slide the scrollbar (below the button display) to the right and select the last button by clicking on it, Now click on "New"
' 5. A new blank button appears. Double-click on the blank area to the right of the entry "Click" (just below the button display)
' 6. The "Script Manager" Dialog appears, Click on "New", Enter any name in the input box that appears (prefix it with "Z_" so that it goes in the last)
' 7. A new blank script document (With the name just specified) appears. Delete whatever is on it...
' 8. Either copy-paste this ENTIRE script on the document, or, click on the button with the open-folder icon (tooltip reads "Load text file") and navigate to this file
' 9. Either done, click on the button with the tick-mark icon ("compile"). If spatial analyst is not loaded, there will be some error message, Load it
' 10. After the script is compiled (the tick-mark buton should be grayed out), close the script window and return to the view
' 11. Click on the new button to run the script

TheView=av.GetActiveDoc
TheTheme=TheView.GetActiveThemes.Get(0)
TheFtab=TheTheme.GetFtab
TheFields=TheFtab.GetFields

TheSelField=msgbox.choice(TheFields,"Choose Index Field","Choose Index Field")

aList={}

for each rec in TheFtab
  a=TheFtab.ReturnValue(TheSelField,rec)
  aList.Add(a)
end

aList.RemoveDuplicates
'msgbox.choiceasstring(aList,"","")
YesNo=msgbox.YesNo("Total Unique="++aList.COunt.AsString++"Continue?","Convert unique records to new shapefiles",TRUE)

if (YesNo) then
    for each str in aList
      Qstr=str.Quote
      QuerySTr = ("["+TheSelField.GetName+"] ="++Qstr)'.Quote

      TheBitMap=TheFtab.GetSelection
      TheFtab.Query(QueryStr,TheBitMap,#VTAB_SELTYPE_NEW)
      TheFtab.UpdateSelection
      'msgbox.info(QueryStr,"TheQuery")

      FNstring="E:\Aditya\_Project01\Data\FinalData\Vectors\Endemics\SasyaExports\"+str+".shp"
      shpfld=TheFtab.FindField("Shape")
      theFTab.Export (FNstring.AsFileName, Shape, TRUE )
      theFtab.CreateIndex(shpfld)    
    end
end