AcadToSMath/AcadToSMath/AcadToSMath.cs

using Autodesk.AutoCAD.Interop;
using Autodesk.AutoCAD.Interop.Common;

using SMath.Manager;
using SMath.Math;
using SMath.Math.Numeric;

using System;
using System.Collections.Generic;
using System.Linq;
using System.Runtime.InteropServices;
using System.Text;
using System.Threading.Tasks;

namespace AcadToSMath
{
    public class AcadToSMath : IPluginHandleEvaluation, IPluginLowLevelEvaluationFast
   {
      AssemblyInfo[] asseblyInfos;

      public void Dispose()
      {
      }

      public TermInfo[] GetTermsHandled(SessionProfile sessionProfile)
      {
         //functions definitions
         return new TermInfo[]
                  {
                  new TermInfo("GetAcPlines", TermType.Function,
                  "(1:слой, 2:масштаб единиц чертежа, 3:замкнуть полилинии) - " +
                  "Получает вершины полилиний из ативного документа AutoCAD, возвращает массив с координатами вершин полилиний.",
                  FunctionSections.Files, true,
                  new ArgumentInfo(ArgumentSections.String, true),
                  new ArgumentInfo(ArgumentSections.RealNumber, true),
                  new ArgumentInfo(ArgumentSections.RealNumber, true)),

                  new TermInfo("GetAcCircles", TermType.Function,
                  "(1:слой, 2:масштаб единиц чертежа) - " +
                  "Получает вершины полилиний из ативного документа AutoCAD, возвращает массив с координатами вершин полилиний.",
                  FunctionSections.Files, true,
                  new ArgumentInfo(ArgumentSections.String, true),
                  new ArgumentInfo(ArgumentSections.RealNumber, true)),

                  };
      }

      public void Initialize()
      {
         asseblyInfos = new AssemblyInfo[] { new AssemblyInfo("SMath Studio", new Version(0, 99), new Guid("86af75bc-5bae-45ac-ba9e-e80940da6060")) };

         AppDomain currentDomain = AppDomain.CurrentDomain;
         currentDomain.AssemblyResolve += new ResolveEventHandler(CurrentDomain_AssemblyResolve);

         System.Reflection.Assembly CurrentDomain_AssemblyResolve(object sender, ResolveEventArgs args)
         {
            System.Reflection.Assembly[] asms = AppDomain.CurrentDomain.GetAssemblies();
            for (int i = 0; i < asms.Length; ++i)
            {
               if (asms[i].FullName == args.Name)
                  return asms[i];
            }
            return null;
         }
      }


      public bool TryEvaluateExpression(Entry value, Store context, out Entry result)
      {
         //GetAcPlines
         if (value.Type == TermType.Function && value.Text == "GetAcPlines")
         {
            List<Term> answer = new List<Term>();

            string lay = "#";
            double scale = 1;
            int isClose = 0;
            if (TermsConverter.DecodeText(value.Items[0].Text).Trim('"') != "#") lay = TermsConverter.DecodeText(value.Items[0].Text).Trim('"');
            if(TermsConverter.DecodeText(value.Items[1].Text).Trim('"')!="#") scale = Utilites.Entry2Double(value.Items[1], context);
            if(TermsConverter.DecodeText(value.Items[2].Text).Trim('"')!="#") isClose = Utilites.Entry2Int(value.Items[2], context);


            const string progID = "AutoCAD.Application";
            AcadApplication acApp = null;
 
            try
            {
               acApp = (AcadApplication)Marshal.GetActiveObject(progID);
            }
            catch
            {
               answer.AddRange(TermsConverter.ToTerms("\"AutoCAD не запущен\""));

               result = Entry.Create(answer.ToArray());
               return true;
            }
            if (acApp != null)
            {
               // By the time this is reached AutoCAD is fully
               // functional and can be interacted with through code
               acApp.Visible = true;
               AcadModelSpace ms = null;
               try
               {
                  ms = acApp.ActiveDocument.ModelSpace;
                  List<AcadLWPolyline> polylines = new List<AcadLWPolyline>();
                  List<AcadPoint> points = new List<AcadPoint>();
                  List<AcadCircle> circles = new List<AcadCircle>();
                  List<AcadText> textes = new List<AcadText>();
                  if (lay == "#")
                  {
                     for (int i = 0; i < ms.Count; i++)
                     {
                        if (ms.Item(i).ObjectName == "AcDbPolyline") polylines.Add(ms.Item(i) as AcadLWPolyline);
                     }
                  }
                  else
                  {
                     for (int i = 0; i < ms.Count; i++)
                     {
                        if (ms.Item(i).ObjectName == "AcDbPolyline" && ms.Item(i).Layer == lay) polylines.Add(ms.Item(i) as AcadLWPolyline);
                     }
                  }
                  if (polylines.Count==0)
                  { 
                     answer.AddRange(TermsConverter.ToTerms("\"Документ не содержит ни одной полилинии на заданном слое\""));
                     result = Entry.Create(answer.ToArray());
                     return true;
                  }
                  else
                  {
                     int plc = polylines.Count;
                     for (int i = 0; i < plc; i++)
                     {
                        AcadLWPolyline pline = polylines[i];
                        double[] crds = (double[])polylines[i].Coordinates;
                        int crdsc = crds.Length/2;
                        //List<double[]> crd = new List<double[]>(crdsc);
                        foreach (double item in crds) answer.AddRange(new TNumber(item*scale).obj.ToTerms());
                        if (isClose == 1)
                        {
                           answer.AddRange(new TNumber(crds[0] * scale).obj.ToTerms());
                           answer.AddRange(new TNumber(crds[1] * scale).obj.ToTerms());
                           answer.AddRange(TermsConverter.ToTerms((crdsc+1).ToString()));
                           answer.AddRange(TermsConverter.ToTerms(2.ToString()));
                           answer.Add(new Term(Functions.Mat, TermType.Function, 4 + crdsc * 2));
                        }
                        else
                        {
                           answer.AddRange(TermsConverter.ToTerms(crdsc.ToString()));
                           answer.AddRange(TermsConverter.ToTerms(2.ToString()));
                           answer.Add(new Term(Functions.Mat, TermType.Function, 2 + crdsc * 2));
                        }
                     }

                     if (plc >1)
                     {
                        answer.AddRange(TermsConverter.ToTerms(1.ToString()));
                        answer.AddRange(TermsConverter.ToTerms(plc.ToString()));
                        answer.Add(new Term(Functions.Mat, TermType.Function, 2 + plc));
                     }
                     
                     result = Entry.Create(answer.ToArray());
                     return true;
                  } 
          
               }
               catch
               {                 
                  answer.AddRange(TermsConverter.ToTerms("\"Нет ни одного открытого документа AutoCAD\""));

                  result = Entry.Create(answer.ToArray());
                  return true;
               }               
            }           
         }

         //GetAcCircles
         if (value.Type == TermType.Function && value.Text == "GetAcCircles")
         {
            List<Term> answer = new List<Term>();

            string lay = "#";
            double scale = 1;
            if (TermsConverter.DecodeText(value.Items[0].Text).Trim('"') != "#") lay = TermsConverter.DecodeText(value.Items[0].Text).Trim('"');
            if (TermsConverter.DecodeText(value.Items[1].Text).Trim('"') != "#") scale = Utilites.Entry2Double(value.Items[1], context);


            const string progID = "AutoCAD.Application";
            AcadApplication acApp = null;

            try
            {
               acApp = (AcadApplication)Marshal.GetActiveObject(progID);
            }
            catch
            {
               answer.AddRange(TermsConverter.ToTerms("\"AutoCAD не запущен\""));

               result = Entry.Create(answer.ToArray());
               return true;
            }
            if (acApp != null)
            {
               // By the time this is reached AutoCAD is fully
               // functional and can be interacted with through code
               acApp.Visible = true;
               AcadModelSpace ms = null;
               try
               {
                  ms = acApp.ActiveDocument.ModelSpace;
                  List<AcadCircle> circles = new List<AcadCircle>();
                  if (lay == "#")
                  {
                     for (int i = 0; i < ms.Count; i++)
                     {
                        if (ms.Item(i).ObjectName == "AcDbCircle") circles.Add(ms.Item(i) as AcadCircle);
                     }
                  }
                  else
                  {
                     for (int i = 0; i < ms.Count; i++)
                     {
                        if (ms.Item(i).ObjectName == "AcDbCircle" && ms.Item(i).Layer == lay) circles.Add(ms.Item(i) as AcadCircle);
                     }
                  }
                  if (circles.Count == 0)
                  {
                     answer.AddRange(TermsConverter.ToTerms("\"Документ не содержит ни одной окружности на заданном слое\""));
                     result = Entry.Create(answer.ToArray());
                     return true;
                  }
                  else
                  {
                     int cc = circles.Count;
                     for (int i = 0; i < cc; i++)
                     {
                        AcadCircle c = circles[i];
                        double[]cen= (double[])c.Center;
                        answer.AddRange(new TNumber(cen[0] * scale).obj.ToTerms());
                        answer.AddRange(new TNumber(cen[1] * scale).obj.ToTerms());                      
                        answer.AddRange(new TNumber(c.Area * scale * scale).obj.ToTerms());
                        answer.AddRange(new TNumber(c.Radius * scale * 2).obj.ToTerms());
                     }
                     answer.AddRange(TermsConverter.ToTerms(cc.ToString()));
                     answer.AddRange(TermsConverter.ToTerms(4.ToString()));
                     answer.Add(new Term(Functions.Mat, TermType.Function, 2 + cc * 4));

                     result = Entry.Create(answer.ToArray());
                     return true;
                  }
               }
               catch
               {
                  answer.AddRange(TermsConverter.ToTerms("\"Нет ни одного открытого документа AutoCAD\""));

                  result = Entry.Create(answer.ToArray());
                  return true;
               }
            }
         }


         result = null;
         return false;
      }

   }
}