Однотипные строки в цикл

[Lemieux]

Вообще-то ResultBuffer.Add работает с TypedValue, а не с ResultBuffer. В этом может быть ошибка.

Александр, я пробовал добавлять с помощью Typedvalue, но всё равно AutoCAD крашится.

Это потому, что, несмотря на использование .NET, Вы продолжаете думать на LISP. То есть, Вы совершенно игнорируете новые возможности и пытаетесь адаптировать .NET под логику LISP. Разумеется, что ничего хорошего из этого не выйдет.

Дмитрий, я знаю про словари, но у меня стринговые переменные, например "lxDesign", не только читаются из чертежа, но и потом присваиваются обратно, о чём я писал в начале. Я может не понимаю Вашей мысли, Вы не могли написать пример на C#. Да и вряд ли краш AutoCAD связан с тем, что я пишу так как в начальном примере, а не с помощью словаря.

[Александр Ривилис]

Lemieux,

Цитата: Александр Ривилис от 22-10-2019, 22:39:17

    А если вместо LispExtensions.GetLispSym() используешь lxDocument.GetLispSymbol(...) ?

Это я уже завтра потестирую

И? Какой результат?

[Александр Ривилис]

Александр, я пробовал добавлять с помощью Typedvalue, но всё равно AutoCAD крашится.

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

[Lemieux]

И? Какой результат?

Я пока что на работе, когда дома буду, то выложу все результаты.

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

Делал примерно так

Код - vb.net [Выбрать]

1. lxResultBuffer.Add(New TypedValue(CInt(LispDataType.Text), (LispExtensions.GetLispSym(lxStringCollection(lxItem))))

[Александр Ривилис]

Делал примерно так
Код - vb.net [Выбрать]

    lxResultBuffer.Add(New TypedValue(CInt(LispDataType.Text), (LispExtensions.GetLispSym(lxStringCollection(lxItem))))

Очевидно, что это ерунда. TypedValue - это один из элементов в ResultBuffer
Соответственно, должно было быть что-то типа:

Код - vb.net [Выбрать]

1. For Each tv As TypedValue In LispExtensions.GetLispSym(lxStringCollection(lxItem)))
2.  lxResultBuffer.Add(tv)
3. Next

P.S.: Настоятельно рекомендую заняться изучением C# и забросить VB.NET

[Дмитрий Загорулькин]

Я может не понимаю Вашей мысли, Вы не могли написать пример на C#.

Код - C# [Выбрать]

1. Dictionary<string, TextBox> varAndBoxesDict
2.     = new Dictionary<string, TextBox>
3.     {
4.         { "lxDesign", TB_11 },
5.         { "lxDesignDate", TB_21 },
6.         { "lxChecking", TB_12 },
7.         { "lxCheckingDate", TB_22 },
8.     };
9.  
10.  
11. // Переносим значения из переменных в текстбоксы
12. foreach (KeyValuePair<string, TextBox> pair in varAndBoxesDict)
13. {                
14.     string text =
15.         // Вспомогательный метод, который вытаскивает строку, сохранённую в LISP-переменной
16.         LispExtensions.GetTextFromLispVariable(pair.Key);
17.     pair.Value.Text = text ?? string.Empty;
18. }
19.  
20. // Переносим значения из текстбоксов в переменные
21. foreach (KeyValuePair<string, TextBox> pair in varAndBoxesDict)
22. {
23.     string text = pair.Value.Text?.Trim() ?? string.Empty;
24.     // Вспомогательный метод, который записывает строку в LISP-переменную
25.     LispExtensions.SetLispSym(pair.Key, text);
26. }
27.  

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

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

[Lemieux]

P.S.: Настоятельно рекомендую заняться изучением C# и забросить VB.NET

Я последую Вашему совету и следующую работу выполню на C#

Я имел в виду, что такие сложные действия в коде являются следствием попытки реализовать операции через одно место через логику LISPа

Согласен, что через логику лиспа, но мне интересны различные варианты реализации, для этого я и создал эту тему. Но, к сожалению, я обычно сначала выполняю практические занятия и провожу разные эксперименты, а уже потом читаю книги. У меня была задача написать скрипты для автоматической формирований связей между элементами схемы, автоматического формирования остальных документов из схемы Э4. Я сделал, времени читать книги не было, разбираюсь на ходу.
Спасибо за пример.

[Дмитрий Загорулькин]

Но, к сожалению, я обычно сначала выполняю практические занятия и провожу разные эксперименты, а уже потом читаю книги. У меня была задача написать скрипты для автоматической формирований связей между элементами схемы, автоматического формирования остальных документов из схемы Э4. Я сделал, времени читать книги не было, разбираюсь на ходу.

Да это, в общем-то, вполне нормальный подход: практика + теория. Главное - не пренебрегать чем-то одним. Читать книги обязательно надо, применять полученные знания на практике тоже очень важно. То, что задаёте вопросы - вообще отлично! Многие почему-то стесняются. Ну и готовьтесь к тому, что всё что вы сейчас напишете через год-два либо выкинете, либо будете переписывать заново

[Lemieux]

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

Так я к этому давно привык, ещё во времена, когда писал на Python и Mel интерфейсы и конвертеры шейдеров в Maya. Даже сейчас, за эти месяцы изучения и практики я нахожу более практичные реализации задач и, просматривая старый код, думаю - "Неправильно я написал, надо было делать по другому." Вообще у меня был такой план. Я пишу дополнение на лисп для создания КД шкафов РЗА, потом изучаю .NET и пишу дополнение для создания КД шкафов НКУ. Но плохое поведение DCL меня поставило в такие условия, что раньше пришлось начать изучение .NET. VB.NET я выбрал только из-за того, что у меня были видео уроки по созданию плагинов для AutoCAD на VB.NET.

[Александр Ривилис]

Но, к сожалению, я обычно сначала выполняю практические занятия и провожу разные эксперименты, а уже потом читаю книги.

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

[Александр Ривилис]

VB.NET я выбрал только из-за того, что у меня были видео уроки по созданию плагинов для AutoCAD на VB.NET.

Там же были уроки по созданию плагинов на C# для AutoCAD. На каком-то из C-подобных языков вы уже что-то писали?

[Дмитрий Загорулькин]

Но плохое поведение DCL меня поставило в такие условия, что раньше пришлось начать изучение .NET.

Так-так-так... Теперь понятны попытки скрестить лисп с нетом. То есть, нужен диалог для изменения каких-то лисповых данных? А есть уверенность, что подход выбран правильный? Я про то, что данные можно передавать по другому - не через считывание-запись лисповых переменных, а с помощью передачи аргументов в самописную лисп-функцию, которая после завершения диалога будет возвращать полученные в нём значения.
Типа такого:

Код - Auto/Visual Lisp [Выбрать]

1. (setq
2.         res (run-my-dialog lxDesign lxDesignDate lxChecking lxCheckingDate)
3.         lxDesign (nth 0 res)
4.         lxDesignDate (nth 1 res)
5.         lxChecking (nth 2 res)
6.         lxCheckingDate (nth 3 res)
7. )

Функцию run-my-dialog написать на .NET. Она будет принимать строковые значения, запускать диалог по их изменению и возвращать список новых значений после закрытия диалога.

P.S.: Настоятельно рекомендую заняться изучением C# и забросить VB.NET

+1

[Александр Ривилис]

Функцию run-my-dialog написать на .NET. Она будет принимать строковые значения, запускать диалог по их изменению и возвращать список новых значений после закрытия диалога.

Именно так. Или всё полностью пишется на .NET (C#/VB.NET) или на .NET пишется функции, к которым обращаются из lisp.

[Lemieux]

На каком-то из C-подобных языков вы уже что-то писали?

Нет

Но плохое поведение DCL меня поставило в такие условия, что раньше пришлось начать изучение .NET.

Так-так-так... Теперь понятны попытки скрестить лисп с нетом. То есть, нужен диалог для изменения каких-то лисповых данных? А есть уверенность, что подход выбран правильный? Я про то, что данные можно передавать по другому - не через считывание-запись лисповых переменных, а с помощью передачи аргументов в самописную лисп-функцию, которая после завершения диалога будет возвращать полученные в нём значения.
Типа такого:

Код - Auto/Visual Lisp [Выбрать]

1. (setq
2.         res (run-my-dialog lxDesign lxDesignDate lxChecking lxCheckingDate)
3.         lxDesign (nth 0 res)
4.         lxDesignDate (nth 1 res)
5.         lxChecking (nth 2 res)
6.         lxCheckingDate (nth 3 res)
7. )

Функцию run-my-dialog написать на .NET. Она будет принимать строковые значения, запускать диалог по их изменению и возвращать список новых значений после закрытия диалога.

P.S.: Настоятельно рекомендую заняться изучением C# и забросить VB.NET

+1

Я думал о таком подходе, чтобы написать функцию лиспа на .net. Но когда вызываешь модальное окно с помощью функции лиспа, то AutoACD крашится.
То есть я делал конструкцию типа:

Код - vb.net [Выбрать]

1. <LispFunction("Window")>
2. //тут инициализовал окно

и AutoCAD вылетал.

Работает всё это только из команды:

Код - vb.net [Выбрать]

1. <CommandMethod("Window")>
2. //тут инициализовал окно

Или всё полностью пишется на .NET (C#/VB.NET) или на .NET пишется функции, к которым обращаются из lisp.

Согласен, но пришлось прибегнуть к такому способу, так как чтобы переписать весь код на .net уйдёт слишком много времени.

[Дмитрий Загорулькин]

Я думал о таком подходе, чтобы написать функцию лиспа на .net. Но когда вызываешь модальное окно с помощью функции лиспа, то AutoACD крашится.
То есть я делал конструкцию типа:

Код - vb.net [Выбрать]

1. <LispFunction("Window")>
2. //тут инициализовал окно

и AutoCAD вылетал.

Причина, видимо, была где-то внутри того, что скрывается под "//тут инициализовал окно". Из лисп-функции нормально запускаются модальные диалоги.