Topic: Microsoft Parallel Extensions to .NET (CTP)

[It's Alive!]

Guess I need a multi-core now 
http://www.microsoft.com/downloads/details.aspx?FamilyID=e848dc1d-5be3-4941-8705-024bc7f180ba&displaylang=en

[It's Alive!]

aahhhhhhhhhhh, its not fair!

Code: [Select]

using System;
using System.Collections.Generic;
using System.Linq;
using System.IO;
using System.Threading;

using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.Geometry;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;

using AcAp = Autodesk.AutoCAD.ApplicationServices;
using AcEd = Autodesk.AutoCAD.EditorInput;
using AcGe = Autodesk.AutoCAD.Geometry;
using AcRx = Autodesk.AutoCAD.Runtime;
using AcDb = Autodesk.AutoCAD.DatabaseServices;
using AcWd = Autodesk.AutoCAD.Windows;

[assembly: CommandClass(typeof(search.Commands))]

namespace search
{
  public static class Commands
  {
    [CommandMethod("doit")]
    public static void doit()
    {
      Editor ed = AcAp.Application.DocumentManager.MdiActiveDocument.Editor;

      List<string> strlist = new List<string>();

      PromptStringOptions pso1 = new PromptStringOptions("Enter path");
      pso1.AllowSpaces = true;
      PromptResult prs1 = ed.GetString(pso1);
      if (prs1.Status != PromptStatus.OK)
        return;

      PromptStringOptions pso2 = new PromptStringOptions("Enter String to search");
      pso2.AllowSpaces = true;
      PromptResult prs2 = ed.GetString(pso2);
      if (prs2.Status != PromptStatus.OK)
        return;

      string[] strarray = GetDwgFilesFromDir(prs1.StringResult);

      try
      {
        Parallel.For(0, strarray.Length, delegate(int i) //<----------------------------
        {
          using (Database db = new Database(false, true))
          {
            db.ReadDwgFile(strarray[i], FileShare.Read, true, "");
            AcDb.TransactionManager Tm = db.TransactionManager;

            using (Transaction tr = Tm.StartTransaction())
            {
              BlockTable tb = (BlockTable)tr.GetObject
                           (db.BlockTableId, OpenMode.ForRead, false);

              BlockTableRecord btr = (BlockTableRecord)tr.GetObject
                           (tb[BlockTableRecord.ModelSpace], OpenMode.ForRead, false);

              foreach (ObjectId id in btr)
              {
                DBObject dboject = (tr.GetObject(id, OpenMode.ForRead));

                if (dboject is MText)
                {
                  MText mt = (MText)dboject;
                  if (mt.Text.ToUpper().Contains(prs2.StringResult.ToUpper()))
                  {
                    strlist.Add(strarray[i] + " contains string: " + prs2.StringResult);
                  }
                }
              }
            }
            db.CloseInput(true);
          }
        });

        foreach (string str in strlist)
        {
          ed.WriteMessage("\n" + str);
        }
      }
      catch (System.Exception ex)
      {
        ed.WriteMessage(ex.Message);
      }
    }

    //this function needs .NET 3.5 to run/compile
    public static string[] GetDwgFilesFromDir(string path)
    {
      var MyList = from f in Directory.GetFiles((path))
                   where Path.GetFileName(f).ToUpper().Contains(".DWG")
                   select f;
      return MyList.ToArray();
    }
  }
}



[Kerry]

Looks like you've had a good Saturday afternoon Daniel

[It's Alive!]

Looks like you've had a good Saturday afternoon Daniel

Yes yes, I am now able to throw exceptions in parallel