avpon/AcadToSMath
1
0
Fork 0
mirror of https://github.com/rumata-ap/AcadToSMath.git synced 2026-01-11 19:39:48 +03:00
Code Issues Packages Projects Releases Wiki Activity

добалены функции выбора точек, текстов и линий из AutoCAD

Browse Source
This commit is contained in:
Aleksandr Ponomarev
2022-12-04 22:55:11 +03:00
parent 6f98f43ed0
commit 4b2a01dd86
1 changed files with 279 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

281
AcadToSMath/AcadToSMath.cs
View File

@@ -29,7 +29,7 @@ namespace AcadToSMath
{
new TermInfo("GetAcPlines", TermType.Function,
"(1:слой, 2:масштаб единиц чертежа, 3:замкнуть полилинии) - " +
"Получает вершины полилиний из ативного документа AutoCAD, возвращает массив с координатами вершин полилиний.",
"Получает вершины полилиний из активного документа AutoCAD, возвращает массив с координатами вершин полилиний.",
FunctionSections.Files, true,
new ArgumentInfo(ArgumentSections.String, true),
new ArgumentInfo(ArgumentSections.RealNumber, true),
@@ -37,7 +37,28 @@ namespace AcadToSMath
new TermInfo("GetAcCircles", TermType.Function,
"(1:слой, 2:масштаб единиц чертежа) - " +
"Получает вершины полилиний из ативного документа AutoCAD, возвращает массив с координатами вершин полилиний.",
"Получает координаты центров, площади и диамерты окружностей из активного документа AutoCAD, возвращает массив с данными окружностей.",
FunctionSections.Files, true,
new ArgumentInfo(ArgumentSections.String, true),
new ArgumentInfo(ArgumentSections.RealNumber, true)),
new TermInfo("GetAcTextes", TermType.Function,
"(1:слой, 2:масштаб единиц чертежа) - " +
"Получает координаты точек вставки и содержимое однострочных текстов из активного документа AutoCAD, возвращает массив с данными текста.",
FunctionSections.Files, true,
new ArgumentInfo(ArgumentSections.String, true),
new ArgumentInfo(ArgumentSections.RealNumber, true)),
new TermInfo("GetAcPoints", TermType.Function,
"(1:слой, 2:масштаб единиц чертежа) - " +
"Получает координаты точек из активного документа AutoCAD, возвращает массив с координатами точек.",
FunctionSections.Files, true,
new ArgumentInfo(ArgumentSections.String, true),
new ArgumentInfo(ArgumentSections.RealNumber, true)),
new TermInfo("GetAcLines", TermType.Function,
"(1:слой, 2:масштаб единиц чертежа) - " +
"Получает координаты точек отрезков и их длину из активного документа AutoCAD, возвращает массив с данными отрезков.",
FunctionSections.Files, true,
new ArgumentInfo(ArgumentSections.String, true),
new ArgumentInfo(ArgumentSections.RealNumber, true)),
@@ -259,6 +280,262 @@ namespace AcadToSMath
}
}
}
//GetAcPoints
if (value.Type == TermType.Function && value.Text == "GetAcPoints")
{
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<AcadPoint> points = new List<AcadPoint>();
if (lay == "#")
{
for (int i = 0; i < ms.Count; i++)
{
if (ms.Item(i).ObjectName == "AcDbPoint") points.Add(ms.Item(i) as AcadPoint);
}
}
else
{
for (int i = 0; i < ms.Count; i++)
{
if (ms.Item(i).ObjectName == "AcDbPoint" && ms.Item(i).Layer == lay) points.Add(ms.Item(i) as AcadPoint);
}
}
if (points.Count == 0)
{
answer.AddRange(TermsConverter.ToTerms("\"Документ не содержит ни одной точки на заданном слое\""));
result = Entry.Create(answer.ToArray());
return true;
}
else
{
int pc = points.Count;
for (int i = 0; i < pc; i++)
{
AcadPoint p = points[i];
double[]cen= (double[])p.Coordinates;
answer.AddRange(new TNumber(cen[0] * scale).obj.ToTerms());
answer.AddRange(new TNumber(cen[1] * scale).obj.ToTerms());
answer.AddRange(new TNumber(cen[2] * scale).obj.ToTerms());
}
answer.AddRange(TermsConverter.ToTerms(pc.ToString()));
answer.AddRange(TermsConverter.ToTerms(3.ToString()));
answer.Add(new Term(Functions.Mat, TermType.Function, 2 + pc * 3));
result = Entry.Create(answer.ToArray());
return true;
}
}
catch
{
answer.AddRange(TermsConverter.ToTerms("\"Нет ни одного открытого документа AutoCAD\""));
result = Entry.Create(answer.ToArray());
return true;
}
}
}
//GetAcTextes
if (value.Type == TermType.Function && value.Text == "GetAcTextes")
{
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<AcadText> points = new List<AcadText>();
if (lay == "#")
{
for (int i = 0; i < ms.Count; i++)
{
if (ms.Item(i).ObjectName == "AcDbText") points.Add(ms.Item(i) as AcadText);
}
}
else
{
for (int i = 0; i < ms.Count; i++)
{
if (ms.Item(i).ObjectName == "AcDbText" && ms.Item(i).Layer == lay) points.Add(ms.Item(i) as AcadText);
}
}
if (points.Count == 0)
{
answer.AddRange(TermsConverter.ToTerms("\"Документ не содержит ни одного текста на заданном слое\""));
result = Entry.Create(answer.ToArray());
return true;
}
else
{
int pc = points.Count;
for (int i = 0; i < pc; i++)
{
AcadText p = points[i];
double[]cen= (double[])p.InsertionPoint;
answer.AddRange(new TNumber(cen[0] * scale).obj.ToTerms());
answer.AddRange(new TNumber(cen[1] * scale).obj.ToTerms());
answer.AddRange(TermsConverter.ToTerms("\"" + p.TextString + "\""));
}
answer.AddRange(TermsConverter.ToTerms(pc.ToString()));
answer.AddRange(TermsConverter.ToTerms(3.ToString()));
answer.Add(new Term(Functions.Mat, TermType.Function, 2 + pc * 3));
result = Entry.Create(answer.ToArray());
return true;
}
}
catch
{
answer.AddRange(TermsConverter.ToTerms("\"Нет ни одного открытого документа AutoCAD\""));
result = Entry.Create(answer.ToArray());
return true;
}
}
}
//GetAcLines
if (value.Type == TermType.Function && value.Text == "GetAcLines")
{
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<AcadLine> points = new List<AcadLine>();
if (lay == "#")
{
for (int i = 0; i < ms.Count; i++)
{
if (ms.Item(i).ObjectName == "AcDbLine") points.Add(ms.Item(i) as AcadLine);
}
}
else
{
for (int i = 0; i < ms.Count; i++)
{
if (ms.Item(i).ObjectName == "AcDbLine" && ms.Item(i).Layer == lay) points.Add(ms.Item(i) as AcadLine);
}
}
if (points.Count == 0)
{
answer.AddRange(TermsConverter.ToTerms("\"Документ не содержит ни одного отрезка на заданном слое\""));
result = Entry.Create(answer.ToArray());
return true;
}
else
{
int pc = points.Count;
for (int i = 0; i < pc; i++)
{
AcadLine p = points[i];
double[]sp= (double[])p.StartPoint;
double[]ep= (double[])p.EndPoint;
double len = p.Length;
answer.AddRange(new TNumber(sp[0] * scale).obj.ToTerms());
answer.AddRange(new TNumber(sp[1] * scale).obj.ToTerms());
answer.AddRange(new TNumber(ep[0] * scale).obj.ToTerms());
answer.AddRange(new TNumber(ep[1] * scale).obj.ToTerms());
answer.AddRange(new TNumber(len * scale).obj.ToTerms());
}
answer.AddRange(TermsConverter.ToTerms(pc.ToString()));
answer.AddRange(TermsConverter.ToTerms(5.ToString()));
answer.Add(new Term(Functions.Mat, TermType.Function, 2 + pc * 5));
result = Entry.Create(answer.ToArray());
return true;
}
}
catch
{
answer.AddRange(TermsConverter.ToTerms("\"Нет ни одного открытого документа AutoCAD\""));
result = Entry.Create(answer.ToArray());
return true;
}
}
}
result = null;