[alex8888]

Как мне справедливо намекнули в соседней теме, VB.Net немного отличается от шарпея, поэтому предлагаю здесь уважаемым гуру высказать свое "фи" не менее уважаемым чайникам и поиздеваться над ними.

Итак у меня возникло желание создать примитив посредством программы на C#. В качестве примера подвернулся код для создания команды рисования линии - проще уж совсем некуда:

Код:

[Выделить все]

 01	#region "Imports"
02	//system
03	using System;
04	using System.Collections.Generic;
05	using System.Text;
06	using System.IO;
07	using System.Threading;
08	using System.Globalization;
09	using System.Runtime.InteropServices;
10	using System.Diagnostics;
11	using System.Collections;
12	//acad
13	using Autodesk.AutoCAD.ApplicationServices;
14	using Autodesk.AutoCAD.DatabaseServices;
15	using Autodesk.AutoCAD.EditorInput;
16	using Autodesk.AutoCAD.Runtime;
17	using Autodesk.AutoCAD.Geometry;
18	#endregion
19	 
20	 
21	namespace AddLine
22	{
23	    public class Class1
24	    {
25	        [CommandMethod("AddLine")]
26	        public static void AddLine()
27	 
28	        {
29	            double x1; double y1; double x2; double y2;
30	            x1 = 0; y1 = 0; x2 = 200; y2 = 400;
31	            //Получение текущего документа и базы данных чертежа
32	            Document acDoc = Application.DocumentManager.MdiActiveDocument;
33	            Database acCurDb = acDoc.Database;
34	            //Начало транзакции
35	            using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction())
36	            {
37	                //Открыть таблицу блоков для чтения
38	                BlockTable acBlkTbl;
39	                acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId,
40	                                                  OpenMode.ForRead) as BlockTable;
41	 
42	                //Открыть таблицу блоков пространства модели для записи
43	                BlockTableRecord acBlkTblRec;
44	                acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],
45	                                                     OpenMode.ForWrite) as BlockTableRecord;
46	 
47	                // Создание линии по точкам x1,y1 и x2,y2
48	                Line acLine = new Line(new Point3d(x1, y1, 0),new Point3d(x2, y2, 0));
49	                acLine.SetDatabaseDefaults();
50	 
51	                // Добавление нового объекта в базу и транзакция
52	                acBlkTblRec.AppendEntity(acLine);
53	                acTrans.AddNewlyCreatedDBObject(acLine, true);
54	 
55	                // Сохранение нового объекта в базе данных чертежа
56	                acTrans.Commit();
57	            }
58	        }
59	    }
60	}

При жестком указании координат работает на ура.

Boxa показал как сделать, чтобы точки начала-конца линии указывались путем "тыка" на чертеже:

Код:

[Выделить все]

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

using App = Autodesk.AutoCAD.ApplicationServices;
using cad = Autodesk.AutoCAD.ApplicationServices.Application;
using Db = Autodesk.AutoCAD.DatabaseServices;
using Ed = Autodesk.AutoCAD.EditorInput;
using Gem = Autodesk.AutoCAD.Geometry;
using Rtm = Autodesk.AutoCAD.Runtime;

// [assembly: Rtm.CommandClass(typeof(MyClassSerializer.Commands))]

namespace AddLine
{
    public class Commands
    {
        [Rtm.CommandMethod("AddLine")]
        static public void AddLine()
        {
            // Получение текущего документа и базы данных
            App.Document acDoc = App.Application.DocumentManager.MdiActiveDocument;
            Db.Database acCurDb = acDoc.Database;

            Ed.PromptPointOptions p1Opt = new Ed.PromptPointOptions("\nУкажите первую точку:");
            Ed.PromptPointResult p1Res = acDoc.Editor.GetPoint(p1Opt);
                if (p1Res.Status != Ed.PromptStatus.OK)
                    return;

            Ed.PromptPointOptions p2Opt = new Ed.PromptPointOptions("\nУкажите вторую точку:");
            p2Opt.BasePoint = p1Res.Value;
            p2Opt.UseBasePoint = true;
            Ed.PromptPointResult p2Res = acDoc.Editor.GetPoint(p2Opt);
            if (p2Res.Status != Ed.PromptStatus.OK)
                return;           
            
            // старт транзакции
            using (Db.Transaction acTrans = acCurDb.TransactionManager.StartOpenCloseTransaction())
            {
                // Открытие таблицы Блоков для чтения
                Db.BlockTable acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, Db.OpenMode.ForRead) as Db.BlockTable;

                // Открытие записи таблицы Блоков пространства Модели для записи
                Db.BlockTableRecord acBlkTblRec = acTrans.GetObject(acBlkTbl[Db.BlockTableRecord.ModelSpace],
                                                                                Db.OpenMode.ForWrite) as Db.BlockTableRecord;
                // Создание отрезка
                Db.Line acLine = new Db.Line(p1Res.Value, p2Res.Value);
                acLine.SetDatabaseDefaults();
                // Добавление нового объекта в запись таблицы блоков и в транзакцию
                acBlkTblRec.AppendEntity(acLine);
                acTrans.AddNewlyCreatedDBObject(acLine, true);
                // Сохранение нового объекта в базе данных
                acTrans.Commit();
            }
        }
    }
}

При этом у меня не совсем вышло, выдает ошибку на строке

using System.Threading.Tasks;

- нет такой сборки (где ее искать?)

Остался вопрос как вбивать координаты точек при выполнении команды вручную или передать в качестве параметров из другой команды/программы или диалогового окна? Типа выполнить "AddLine(0,0,100,100), где числа в скобках - точки x1,y1,x2,y2.

Кому то это просто, а у меня что то не ухватывается способ достичь результата.

[Дима_]

ИХМО Ваши вопросы от незнания C# как такового - к автокаду они пока мало относятся.
з.ы. Я в общем не так категоричен - для меня точно нет разницы на каком .Net языке посмотреть метод решения проблемы под автокад. Тем более у C# и VB семантика абсолютно одинаковая - можете погуглить есть автоматизированные переводчики кода из одного в другое - можно туда и обратно перевсети - код не изменится - то есть практически это два одинаковых языка просто различный синтаксис (алфавит) и правила оформления (группировки).

[alex8888]

Почему же тогда на System.Threading.Tasks ругается? У меня VS-Express 2012. В помощи Task - класс есть, а в программе нет.

к автокаду они пока мало относятся

То есть рисование примитивов в автоКаде - это не относится к последнему??
Я специально выбрал, что попроще.
Отвлеченные программы как оказалось составлять не так сложно, нежели сделать библиотеку для Када. По крайней мере для меня в данный момент.
Практически от чего то оттолкнуться - дальше по течению вынесет.

[Do$]

Да, согласен с Дима_, тут еще учиться и учиться...

Сообщение от alex8888 - нет такой сборки (где ее искать?)

А не надо ее искать, она тут лишняя. Удалить/закомментировать.

Сообщение от alex8888 Остался вопрос как вбивать координаты точек при выполнении команды вручную или передать в качестве параметров из другой команды/программы или диалогового окна? Типа выполнить "AddLine(0,0,100,100), где числа в скобках - точки x1,y1,x2,y2.

Выносите построение отрезка в отдельный метод с параметрами. Командный метод можно будет тогда переписать, чтобы после получения точек вызывался метод с параметрами.

[Boxa]

Сообщение от alex8888 При этом у меня не совсем вышло, выдает ошибку на строке Цитата: using System.Threading.Tasks; - нет такой сборки (где ее искать?)

Тебе эти сборки не нужны, просто закоментируй их.

Код:

[Выделить все]

using System;
using System.Collections.Generic;
//using System.Linq;
//using System.Text;
//using System.Threading.Tasks;

Сообщение от alex8888 Остался вопрос как вбивать координаты точек при выполнении команды вручную

Так же как и при рисовании командой _line? т.е.:
0,0,0 Enter
10,10,0 Enter
тут видео: http://youtu.be/tKnqsROP8bg

Дима_, Полностью согласен.
И в своем шутливом замечании я именно шутил, а не призвал еще одну тему открывать.

[alex8888]

Сообщение от Boxa Тебе эти сборки не нужны, просто закоментируй их. Дима_, Полностью согласен. И в своем шутливом замечании я именно шутил, а не призвал еще одну тему открывать.

1. Для чего то ты все же вставил эту сборку. У меня такой не было.

2. Может кому понадобится именно C#, а не VB. Даже при наличии конверторов и похожести.

Код сработал и без Task. Это понятно. Спасибо.

Следующий шаг

Выносите построение отрезка в отдельный метод с параметрами.

Если будет маленький пример на основе приведенных кодов - в смысле указать, где принципиальные отличия, что добавить, что убрать - буду очень признателен.
Для первой поры пойдет. Я уже смогу строить также и окружности и прочие элементы.
Все таки Шарп "немного" непривычен после Лиспа.

[gomer]

ну, с почином. торжественное событие для начинающих шарпистов. собственная тема! Жаль hwd "не дожил" до этого момента!

[alex8888]

Сообщение от gomer ну, с почином. торжественное событие для начинающих шарпистов. собственная тема! Жаль hwd "не дожил" до этого момента!

Издеваешься
А почему hwd не дожил?

Кстати, сам пользуешься C#?

[Boxa]

Сообщение от gomer ну, с почином. торжественное событие для начинающих шарпистов. собственная тема! Жаль hwd "не дожил" до этого момента!

Он до целого отдельного форума дожил =) Тут: http://adn-cis.org/forum/index.php?board=4.0
Там теперь и сидит =)


alex8888, вообще то, это азы.

Код:

[Выделить все]

 
using App = Autodesk.AutoCAD.ApplicationServices;
using cad = Autodesk.AutoCAD.ApplicationServices.Application;
using Db = Autodesk.AutoCAD.DatabaseServices;
using Ed = Autodesk.AutoCAD.EditorInput;
using Gem = Autodesk.AutoCAD.Geometry;
using Rtm = Autodesk.AutoCAD.Runtime;

namespace AddLine
{
    public class Commands
    {
        [Rtm.CommandMethod("AddLine")]
        static public void AddLine()
        {
            // Получение текущего документа и базы данных
            App.Document acDoc = App.Application.DocumentManager.MdiActiveDocument;
            Db.Database acCurDb = acDoc.Database;

            Ed.PromptPointOptions p1Opt = new Ed.PromptPointOptions("\nУкажите первую точку:");
            Ed.PromptPointResult p1Res = acDoc.Editor.GetPoint(p1Opt);
                if (p1Res.Status != Ed.PromptStatus.OK)
                    return;

            Ed.PromptPointOptions p2Opt = new Ed.PromptPointOptions("\nУкажите вторую точку:");
            p2Opt.BasePoint = p1Res.Value;
            p2Opt.UseBasePoint = true;
            Ed.PromptPointResult p2Res = acDoc.Editor.GetPoint(p2Opt);
            if (p2Res.Status != Ed.PromptStatus.OK)
                return;

            AddLineToModalSpace(p1Res.Value, p2Res.Value);
        }


        static private void AddLineToModalSpace(Gem.Point3d p1, Gem.Point3d p2)
        {
            // Получение текущего документа и базы данных
            App.Document acDoc = App.Application.DocumentManager.MdiActiveDocument;
            Db.Database acCurDb = acDoc.Database;
            // старт транзакции
            using (Db.Transaction acTrans = acCurDb.TransactionManager.StartOpenCloseTransaction())
            {
                // Открытие таблицы Блоков для чтения
                Db.BlockTable acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, Db.OpenMode.ForRead) as Db.BlockTable;

                // Открытие записи таблицы Блоков пространства Модели для записи
                Db.BlockTableRecord acBlkTblRec = acTrans.GetObject(acBlkTbl[Db.BlockTableRecord.ModelSpace],
                                                                                Db.OpenMode.ForWrite) as Db.BlockTableRecord;

                // Создание отрезка 
                Db.Line acLine = new Db.Line(p1, p2);
                acLine.SetDatabaseDefaults();
                // Добавление нового объекта в запись таблицы блоков и в транзакцию
                acBlkTblRec.AppendEntity(acLine);
                acTrans.AddNewlyCreatedDBObject(acLine, true);
                // Сохранение нового объекта в базе данных
                acTrans.Commit();
            }
        }
    }
}

[alex8888]

Сообщение от Boxa вообще то, это азы.

Я и не говорил ничего против. Однако использование шарпа в каде уже не совсем азы. Другое дело оконные или терминальные приложения.

За код спасибо. Теперь многое прояснилось.
За ссылку отдельное спасибо. А то я потерял нить от hwd. На прежнем месте его нет. Теперь снова есть!

[gomer]

Сообщение от alex8888 Издеваешься

Совсем .Net
Такой темы мне очень не хватало, когда я пытался освоить это дело.
Unfortunately (вот нравится это слово) ситуация сложилась так, что теперь мне .нет, как козе гравицапа

[alex8888]

Сообщение от gomer Unfortunately (вот нравится это слово) ситуация сложилась так, что теперь мне .нет, как козе гравицапа

чего?

[alex8888]

Ребята, подскажите, пожалуйста не в службу, а в дружбу.
Вот например такой список:

Код:

[Выделить все]

 ((-1 . <Objektname: 7ffffb36510>) (0 . "TEXT") (330 . <Objektname: 7ffffb039f0>) (5 . "D4BA9") (100 . "AcDbEntity") (67 . 0) (410 . "Model")
 (8 . "schrift") (100 . "AcDbText") (10 11247.9 -6712.83 0.0) (40 . 30.0) (1 . "Stutzen D=168.3x6 auf Kopf d=219.1x6") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "STANDARD")
(71 . 0) (72 . 4) (11 11582.0 -6702.33 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))

каким образом обрабатывается с помощью средств C# и Автокад? Как будет выглядеть команда для создания объекта по такому списку?
Это чисто спортивный интерес. Есть ли какое преимущество в таком подходе к созданию и манипулированию объектами?
Есть тут ограничения, подводные камни и тп? Интересно ваше мнение.

[Дима_]

Сообщение от alex8888 Как будет выглядеть команда для создания объекта по такому списку?

Боюсь никак (можно извратиться и послать "команду" лиспу из С# чтоб он создал примитив) - это списочное лисп-представление DXF кодов примитива.

Сообщение от alex8888 Интересно ваше мнение.

Вам не хватает теоритической подготовки.
з.ы. формально можно передать этот список .Net плагину, обработать его и на его основе что-то создать - но это как шуроповертом гвозди забивать.

[alex8888]

Сообщение от Дима_ можно извратиться и послать "команду" лиспу из С# чтоб он создал примитив

Примерчик не подкинешь? Если не в лом, конечно.

Offtop:

Вам не хватает теоритической подготовки.

Ее и не будет, если ничего не начинать делать.

[Дима_]

Сообщение от alex8888 Если не в лом, конечно

Заниматься НИКОМУ не нужным делом - чтоб показать что это таки можно - примените этот список к функции entmakex - и она создаст Вам примитив (если коды взяты из тойже сессии и пр). Хотите из под C# удалите коды с примитивами (-1, 330 и др.) - и передайте список строкой.

Сообщение от alex8888 Ее и не будет, если ничего не начинать делать.

Но и бредовые телодвижения ее не улучшают.

[Boxa]

Я в С# вообще новичок, но написав эту фигню стер к чертям. Это бред сивой кобылы. Никакого отношения к программированию под акад не имеет.
90% кода, это парсинг строки и вычленение требуемых значений, которые потом задаются вновь создаваемому примитиву.

В общем дурь. ИМХО я понимаю что Вы, Алекс8888, привыкли писать на ЛИСП, но если Вы взялись изучать новую платформу, то изучайте именно ее, а не пытайтесь писать на лисп используя синтаксис С#

[alex8888]

Boxa, спасибо.
Действительно, до сих пор все у меня на лиспе, но есть задумки, с которыми лисп не справится. Поэтому хотелось бы, чтобы была обратная связь - прога на c# или т.п. и плюс ко всему дополнительно построение в автокад. Поэтому и смотрю, а не будет ли такой подход лучше, пусть хоть и через задний проход. Пусть идеи бредовые - мне же только для себя и нужно - за звездами гнаться не за чем.

[Do$]

Сообщение от alex8888 Ребята, подскажите, пожалуйста не в службу, а в дружбу. Вот например такой список: Код: [Выделить все] ((-1 . <Objektname: 7ffffb36510>) (0 . "TEXT") (330 . <Objektname: 7ffffb039f0>) (5 . "D4BA9") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "schrift") (100 . "AcDbText") (10 11247.9 -6712.83 0.0) (40 . 30.0) (1 . "Stutzen D=168.3x6 auf Kopf d=219.1x6") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "STANDARD") (71 . 0) (72 . 4) (11 11582.0 -6702.33 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0)) каким образом обрабатывается с помощью средств C# и Автокад?

В контексте NET это будет не список а объект типа ResultBuffer. Получить из объекта его можно с помощью P/Invoke: http://adn-cis.org/zerkalnoe-otobraz...-(dbtext).html
Внутри он содержит коллекцию объектов TypedValue - аналог точечной пары на лиспе.

Сообщение от alex8888 Как будет выглядеть команда для создания объекта по такому списку?

Сообщение от alex8888 Есть ли какое преимущество в таком подходе к созданию и манипулированию объектами?

Если получится создать - опишитесь, мне будет интересно. А там уже обсудим преимущества и недостатки

Сообщение от alex8888 Есть тут ограничения, подводные камни и тп?

Одно большое ограничение - нет нормальных NET методов для получения entget - представления. Поэтому, приходится извращаться с P/Invoke. Про создание объекта из entget - представления я пока не слышал, и мне не нужно было это ни разу.

[alex8888]

Сообщение от Do$ Если получится создать - опишитесь, мне будет интересно. А там уже обсудим преимущества и недостатки

С применением SendStringToExecute показалось вполне приемлемым и не сложным:

Код:

[Выделить все]

 string x="'((0 . \"circle\")(62 . 1)(10 0 0 0)(40 . 300))";
            string y="'((0 . \"circle\")(62 . 8)(10 0 0 0)(40 . 500))";
            acDoc.SendStringToExecute("(entmake" + x + ") ", true, false, false);
            acDoc.SendStringToExecute("(entmakex" + y + ") ", true, false, false);

Здесь как пример прорисовка окружностей с заданными значениями.
Вместо x и y можно будет подставить нужный список, который можно создать на основе данных, полученных из диалогового окна.
Кроме того как я понял, таким образом вообще можно вызывать на выполнение лисповские функции, что на первых порах стало бы большим подспорьем, потому что переписывать все на шарп довольно-таки затратно.