[Setvar]

Для любителей C# и .Net есть свои разделы. Нет, им надо было здесь, в разделе LISP всё обгадить.

[Кулик Алексей aka kpblc]

Копирования куда?

----- добавлено через 23 сек. -----
В таблицу? Новый однострочный / многострочный текст?

----- добавлено через ~2 мин. -----
Что будет, если в мультивыноске используется блок, а не текст? Почему игнорируется обычная выноска?

[Setvar]

Zero

[ИН}|{ЕНЕР]

Изначально, хотелось бы, чтобы текст из мультивыноски копировался в буфер.

[Setvar]

Zero

[Сергей812]

Сообщение от Setvar В буфер обмена в самом AutoCAD'е (а не внутри встроенного редактора текста) копируется ОБЪЕКТ.

Offtop: чтож вы так, не оправдали надежд ИН}|{ЕНЕР )
Решение от Mac Lee

[Setvar]

Zero

[Сергей812]

Сообщение от Setvar Содержимое в виде МТекста записывается в буфер, однако в новую мультивыноску не вставляется.

вставить в буфер обмена Windows и вставить в мультитекст выноски - это две совершенно разные задачи)

Сообщение от Setvar А где решение от Сергей 12? Паясничать легко.

Легко писать на "нормальных" языках, где не требуется изобретать велосипед на каждый чих. Набросал по быстрому на .Net пример копирования содержимого выделенной мультивыноски в буфер обмена Windows:

Код:

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

// Windows
using System.Linq;
using wf = System.Windows.Forms;

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


namespace CopyTextMLeaderInClipboard
{
    public class CommandsClass
    {
        /// <summary>
        /// Копирование содержимого выделенное мультивыноски в буфер обмена 
        /// </summary>
        [CommandMethod("Копировать_текст_из_выноски_в_буфер", 
            CommandFlags.Redraw | CommandFlags.UsePickSet)]
        public void CopyTextMLeaderInClipboard()
        {
            // Получаем текущий документ, его БД и редактор
            Document lAcadDoc = Application.DocumentManager.MdiActiveDocument;
            Database lAcadDb = lAcadDoc.Database;
            Editor lAcadEd = lAcadDoc.Editor;
            // Получаем выбранные пользователем примитивы в случае их наличия
            PromptSelectionResult lPrompSelRes = lAcadEd.SelectImplied();
            // Если выборка успешна
            if (lPrompSelRes.Status == PromptStatus.OK)
            {
                // Получаем массив идентификаторов выделенных объектов
                ObjectId[] lListSelObjectIDs = lPrompSelRes.Value.GetObjectIds();
                // Если один выбранный примитив
                if (lListSelObjectIDs.Count() == 1)
                {
                    // Открываем транзакцию
                    using (Transaction lAcadTrans = lAcadDoc.TransactionManager.StartTransaction())
                    {
                        // Получаем объект по его идентификатору из БД
                        DBObject lDBObject = lAcadTrans.GetObject(
                            lListSelObjectIDs[0], OpenMode.ForRead);
                        // Пытаемся привести к типу мультивыноски
                        MLeader lMLeader = lDBObject as MLeader;
                        // Если не удалось
                        if (lMLeader == null)
                        {
                            lAcadEd.WriteMessage(
                                "\nБыла выделена не мультивыноска перед вызовом команды!\n");
                        }
                        else
                        {
                            // Если тип содержимого мультивыноски - мультитекст
                            if (lMLeader.ContentType == ContentType.MTextContent)
                            {
                                try
                                {
                                    // То копируем в буфер
                                    wf.Clipboard.SetText(lMLeader.MText.Text,
                                        wf.TextDataFormat.UnicodeText);
                                }
                                catch (System.Exception)
                                {
                                    lAcadEd.WriteMessage(
                                        "\nПроизошла  ошибка при копировании в буфер!\n");
                                }
                            }
                            else
                            {
                                lAcadEd.WriteMessage("\nСодержимое мультивыноски - не текст!\n");
                            }
                        }
                        lAcadTrans.Commit();
                    } 
                }
                else
                {
                    lAcadEd.WriteMessage("\nВыделено более одного примитива!\n");
                }
            } 
            else
            {
                lAcadEd.WriteMessage("\nВыделите мультивыноску перед вызовом команды!\n");
            }
        }

    }
}

Пример рабочий, удаляет при копировании в буфер все форматирование кроме символов переноса.

[Setvar]

Zero

[Сергей812]

Сообщение от Setvar Зря ты это сделал. Раздел про LISP.

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

[koMon]

Сообщение от Сергей812 Решение от Mac Lee

да и не его это вовсе решение)

Сообщение от Сергей812 Легко писать на "нормальных" языках, где не требуется изобретать велосипед на каждый чих.

LISP идеально подходит для решения рутинных задач в автокаде, для которых писать на c-подобных языках не имеет никакого смысла: 1. пишешь и тут же видишь результат, 2. не нужно ничего собирать, компилиировать, отслеживать версии продукта и т.д. и т.п. 3. и самое главное - нет необходимости устанавливать на компе среду написания на этом самом NET.
если же конечно необходимо решать более сложниые задачи, то тогда наверное стоит, но Сергей812, не следует спамить в теме LISP постоянными отсылками на простоту нета, на то как в нём это просто делается и тому подобное. здесь люди спрашивают и пытаются решить/получить ответы на свои вопросы, используя строго LISP. ну и если же вы являетесь таким уж бескомпромиссным апологетом нета, так для вас специально и создана ветка про нет, занимайтесь своим рекрутированием там)

Сообщение от Сергей812 нужен ли вообще этот лисп...

да как же без него) и потом выбор языка программирования - это ЛИЧНОЕ ДЕЛО КАЖДОГО начинающего программиста!

Сообщение от Setvar Зря ты это сделал. Раздел про LISP. Здесь достаточно было сообщения #1.

[Сергей812]

Offtop:

Сообщение от koMon 1. пишешь и тут же видишь результат,

заодно это отучает начинающего программиста продумывать архитектуру программы, а не писать "быдлокод".

Сообщение от koMon не нужно ничего собирать, компилиировать, отслеживать версии продукта и т.д. и т.п. 3. и самое главное - нет необходимости устанавливать на компе среду написания на этом самом NET.

На скольких версиях акада обычно одновременно работает средний пользователь?) А зачастую изменение версии программы .Net сводится к подключению нескольких библиотек из нужной версии акада и нажатием кнопки пересобрать проект - это конечно "огромная" работа) А студий разработки бесплатных более чем достаточно.

Сообщение от koMon не следует спамить в теме LISP постоянными отсылками на простоту нета,

я показал работающий пример под катом для сравнения, с подробными комментариями - у вас пока только демонстрация понтов идет с раздачей никому не нужных ЦУ)

[koMon]

Offtop: удивительное дело - а ведь существует устоявшееся мнение, что это культурная столица)))

[veb86]

Сообщение от Сергей812 я показал работающий пример под катом для сравнения,

Спасибо за код, надо у себя попробовать повешу отдельной командной.

Offtop: Сергей812 мне как и Вам жалко что очень много народу на этом форуме пишут на ЛИСПе, я не могу понять почему? есть же хотя бы VBA. Я уж молчу о чуде Net-e.

[Сергей812]

Offtop:

Сообщение от veb86 очень много народу на этом форуме пишут на ЛИСПе,

исторически сложилось: кто начинал программировать под акад с момента его появления на отечественном рынке - выбора особого не было) Сейчас выбор есть и есть русскоязычные источники (не все способны воспринимать информацию с англоязычных ресурсов).

[Vov.Ka]

Сообщение от veb86 пишут на ЛИСПе, я не могу понять почему?

Offtop: потому что лисп перекрывает 90% потребностей пользователя
еще 5%, это если не устраивает быстродействие лиспа
и еще 5% для каких-то низкоуровневых функций или автокада или ОС
и в том и в другом случае целесообрознее будет использовать ObjectArx

зы http://forum.dwg.ru/showpost.php?p=182562&postcount=3

[Сергей812]

Offtop:

Сообщение от Vov.Ka потому что лисп перекрывает 90% потребностей пользователя

если быть точнее, 99% пользователей способны только запустить чужой лисп) Естественно, для них скомпилировать сборку для их версии акада даже из готового .net кода по подробнейшим инструкциям с инета - это уже фантастика..

Сообщение от Vov.Ka еще 5%, это если не устраивает быстродействие лиспа и еще 5% для каких-то низкоуровневых функций или автокада или ОС и в том и в другом случае целесообрознее будет использовать ObjectArx

чем целесообразнее - отказ от использования множества языков с поддержкой .Net в пользу только одного С++? Без Фреймворка акад просто не запустится, а NetApi по сути является обертками над соответствующими функциями ObjectARX. Ну там где-то процентов 5% вроде теряется по производительности, зато взамен функции обертки дополнительно страхуют за счет внутренних проверок и вызовов соответствующих исключений "косяки" программиста.

Сообщение от Vov.Ka http://forum.dwg.ru/showpost.php?p=182562&postcount=3

до сих пор не понимаю - зачем информацию между выносками перегонять через буфер обмена. Дополнительный потенциальный источник ошибки - ведь он (clipboard) может быть просто занят другим процессом.

[Boxa]

Сообщение от Vov.Ka Offtop: потому что лисп перекрывает 90% потребностей пользователя еще 5%, это если не устраивает быстродействие лиспа и еще 5% для каких-то низкоуровневых функций или автокада или ОС и в том и в другом случае целесообрознее будет использовать ObjectArx

Простите великодушно, но это утверждение отражает только Ваше окружение, не более того. Это как после выборов одаренные личности кричат, что выборы подтасованы, так как они и их знакомые не голосовали за некоего кандидата... Эгоцентризм, как он есть.
Намекну, лисп не развивается уже десятилетиями, в то же время .NET API развивается и очень резво, в развитие этого API автодеск вкладывает кучу денег, значит есть большой спрос и соответственно этот спрос не закрыт Lisp-ом. Просто так тратить деньги в кап. системе никто не будет, нужна прибыль...
Думаю любой грамотный человек способен сделать выводы.

Еще раз прошу прощения за вмешательство.

[Setvar]

Молодцы! Загубили тему.

[Сергей812]

Сообщение от Сергей812 Сообщение от Setvar А где решение от Сергей 12? Паясничать легко.

Так вы сами ее и загубили - а сейчас трусливо стерли тот пост, и пытаетесь на других стрелки перевести)

----- добавлено через ~10 мин. -----
а функциональность решения по копированию выносок возрастет - если запоминать несколько последних значений выносок и иметь еще одну команду, которая предлагает выбрать текст из списка, а не "метаться" по чертежу в поисках выноски-оригинала. Это на случай - если забыли/пропустили выноски, а потом их увидели в процессе обработки других выносок.

[Vov.Ka]

Сообщение от Сергей812 до сих пор не понимаю - зачем информацию между выносками перегонять через буфер обмена

откуда мне знать, но ведь это ты первым опубликовал код для работы с буфером?

Offtop:

Сообщение от Boxa лисп не развивается уже десятилетиями, в то же время .NET API развивается и очень резво

точно то же десятилетие назад писали о VBA

мне вот больше всего непонятно почему некоторые пользователи в разделе LISP любят писАть "зачем тебе лисп переходи на .net"
и при этом почти никогда не выкладывают готовых решений

[Сергей812]

Сообщение от Vov.Ka откуда мне знать, но ведь это ты первым опубликовал код для работы с буфером?

Ну как написали ранее:

Сообщение от ИН}|{ЕНЕР Изначально, хотелось бы, чтобы текст из мультивыноски копировался в буфер.

----- добавлено через ~2 мин. -----

Сообщение от Vov.Ka мне вот больше всего непонятно почему некоторые пользователи в разделе LISP любят писАть "зачем тебе лисп переходи на .net" и при этом почти никогда не выкладывают готовых решений

готовые решения - это, наверно, откомпилированные сборки под все мыслимые версии и разрядности акада?)

[trir]

мне вот больше всего непонятно почему некоторые пользователи в разделе LISP любят писАть "зачем тебе лисп переходи на .net" и при этом почти никогда не выкладывают готовых решений

смысл переходить на NET появляется тогда, когда приложение становится слишком сложным...
смысл выкладовать на форум несколько файлов листингов вместе с XAML?

[Сергей812]

И как уже неоднократно говорил, необязательно сразу переходить полностью на .Net - можно начать с реализации тех вещей, которые трудно/невозможно реализовать на лиспе. И оформлять их в виде lisp-функций, вызываемых из уже написанного и отлаженного вашего lisp кода. Не надо уже возиться с вызовами тех же COM-объектов, которые сами по себе не так уж быстры.

----- добавлено через ~2 мин. -----
p.s. Setvar , может научитесь аргументировано отвечать, а не посты стирать и темы переименовать?)

[Кулик Алексей aka kpblc]

Тема закрыта. Смысловой нагрузки теперь (благодаря усилиям ТС) она не несет вообще никакой.