[===AAA===]

Всем привет!

Писал я под AutoCAD на LISP'е всё, что нужно было, использовал
библиотеку DOSLIB и всё было замечательно.

Но пришлось переходить на nanoCAD - тут всё и началось... :-(

Видимо, дальше нужно будет использовать C#

Теперь вопрос - как начать (да, просто начать !) писать программы
в этой самой MS VS 2022 ?

Вот прямо по шагам.

0. Запустил /это я уже умею/.

А дальше?

Нужно выбрать в VS какой-то шаблон, куда-то установить поставляемый
c nanoCAD'ом SDK, добраться до окна, куда буду вводить текст программы,
скомпилировать его, как загружаемое в nanoCAD приложение...

Т.е. нужны эти 10 ... 15 начальных шагов, чтобы потом просто ввести в командную
строку nanoCAD'а новую команду "new_command" и там же получить в ответ
"Привет, мир!" :-)))

[Boxa]

Нажмите для просмотра

https://www.youtube.com/watch?v=MM66bRKDQoU&list=PLRBcOuMyzIoPTMJIphrvNqlQaO0GtXHqA
Тут все очень подробно. просто нужно вместо автокадовских библиотек подключить библиотеки нанокада

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

Если писать под наник версий до 22 включительно - то да.

[Сергей812]

Клуб разработчиков от нано чем не подходит?

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

Сообщение от Сергей812 Клуб разработчиков от нано чем не подходит?

?? А какое это имеет отношение к "началу разработки"?
Offtop: Тем не менее, по состоянию на сегодня:
Сильно низкой активностью.
Практически половина вопросов закрывается не разработчиками.
Хреновенькая документация (почти все разыскивается в гугле с заменой nanocad на autocad).

По мне этого уже достаточно.

[Сергей812]

Сообщение от Кулик Алексей aka kpblc ?? А какое это имеет отношение к "началу разработки"?

т.е. нормальной русскоязычной документации с примерами нет? у того же акада в справке и примеры есть простые. Как раз для Hеllo, World)

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

Каэшн нет! Почти всурьез раздумываю то ли ролик запилить, то ли статью

[Нубий-IV]

Сообщение от ===AAA=== 10 ... 15 начальных шагов

Шагов там сильно меньше:

1. Создать проект
   Шаблон проекта - бибилиотека классов.
   Такой шаблон создает dll на выходе.
2. Подключить зависимости в проект
   Обозреватель решений/Ссылки/Добавить ссылку/Обзор.
   Для нанокада выбрать hostmgd.dll и hostdbmgd.dll.
   Для автокада - AcCoreMgd.dll, AcDbMgd.dll, AcMgd.dll.
   В обоих случаях формально даже SDK не нужен, эти библиотеки лежат в одной папке с установленной программой.
   Их даже можно распаковать из дистрибутива программы, ничего не устанавливая.
3. Подключить зависимости в коде
   
   Код:

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

    
   using Teigha.DatabaseServices;
   using Teigha.Runtime;
   using Teigha.Geometry;
   using HostMgd.ApplicationServices;
   using HostMgd.EditorInput;
   

   Код:

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

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

   Если нужно, чтобы программа собиралась и под автокад, и под нанокад, подключения надо завернуть в условную компиляцию:
   
   Код:

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

    
   #if NANOCAD
   	using Teigha.DatabaseServices;
   	using Teigha.Runtime;
   	using Teigha.Geometry;
   	using HostMgd.ApplicationServices;
   	using HostMgd.EditorInput;
   #endif
   
   #if AUTOCAD
   	using Autodesk.AutoCAD.ApplicationServices;
   	using Autodesk.AutoCAD.DatabaseServices;
   	using Autodesk.AutoCAD.EditorInput;
   	using Autodesk.AutoCAD.Geometry;
   	using Autodesk.AutoCAD.Runtime;
   #endif
   

   А в свойствах проекта, в разделе "Построение", задать нужный символ условной компиляции - NANOCAD или AUTOCAD.
4. Написать класс с методом-командой
   
   Код:

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

    
   using ...
   
   namespace Test
   {
       public class Test
       {
           [CommandMethod("Hello")]
           public void Hello()
           {
               Application.DocumentManager.MdiActiveDocument.Editor.WriteMessage("Hello!");
           }
       }
   }
   

5. Запустить
   Собрать проект.
   Полученную dll можно загрузить в нанокаде или автокаде командой NETLOAD.
   После загрузки в каде можно выполнить команду Hello.

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

[doctorraz]

Дополню малехо

Сообщение от Нубий-IV Шаблон проекта - бибилиотека классов. Такой шаблон создает dll на выходе.

Для нанокад включая 22 библиотека классов net framework 4.0. и новее
Если будем использовать мультикад, то нужен минимум
Net framework 4.5
Начиная с нанокад 23 библиотека классов . NET
Версия 6

[Сергей812]

Сообщение от Нубий-IV Net вообще-то вредный, если его один раз загрузить, он не уже выгрузится, надо закрывать кад и запускать по новой. Это сильно затягивает отладку.

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

[doctorraz]

Сообщение от Сергей812 написал кусочек кода и сразу тестить)

Если ресурсов достаточно, можно и так
Запустил несколько кадов и подключайся по очереди тести)))
Кончаются еще назапускал

[Сергей812]

Сообщение от doctorraz Если ресурсов достаточно, можно и так Запустил несколько кадов и подключайся по очереди тести))) Кончаются еще назапускал

или пока не запутаешься - что в каком из запущенных экземпляров *када тестил)

В .Net проще - можно те же диалоги, взаимодействие с внешними хранилищами (БД) и т.д. отладить во вспомогательном десктопном приложении (включить в решение WinForms|WPF приложение). А в самом *каде отлаживать зависимый от него код, а файлы с уже рабочим кодом из десктопного вспомогательного приложения подключить через ссылки внутри решения и только вызывать в *кад коде.

[doctorraz]

Сообщение от Сергей812 пока не запутаешься - что в каком из запущенных экземпляров *када тестил)

В титуле видно подключение студии
В ком строке видны последние команды
Ну и студия не пересоберет сборку, пока не закроешь кад в котором тестил, так то проблема надумана

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

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

Так и делается, только в отладочный exe ссылками
Файлами в декстопном только заглушки кад вызовов

[Сергей812]

Сообщение от doctorraz Так и делается, только в отладочный exe ссылками

ссылки в отладочный исполняемый файл?

Сообщение от doctorraz Файлами в декстопном только заглушки кад вызовов

взаимодействие с *кадом выделить в отдельное пространство. Ну будут некоторая потеря производительности и ресурсов на передачу данных между интерфейсной (GUI) и *кадной частью, но учитывая производительность .Net - в большинстве случаев некритично, имхо.

[doctorraz]

Сообщение от Сергей812 ссылки в отладочный исполняемый файл?

Да link *. cs

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

Сообщение от Сергей812 взаимодействие с *кадом выделить в отдельное пространство

Ну в решении для кад одни CS
В отладочном другие CS, иногда надо, в форму вернуть что-то из кад
Заглушка эмулирует этот возврат, чисто для отладки интерфейса

[Сергей812]

Сообщение от doctorraz Да link *. cs

так это ссылки на файлы проекта внутри решения, а не на исполняемый файл. А то подумал - что-то новенькое появилось)

[doctorraz]

Сообщение от Сергей812 так это ссылки на файлы проекта внутри решения, а не на исполняемый файл

Ну да
Offtop: Я только разбираюсь, поэтому формулировки могут быть неточны)

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

Offtop: На раздраконивание : https://autolisp.ru/2024/03/17/pervo...ya-nanocad-23/

[Сергей812]

интересно, кстати - гитхаб облачный продукт или нет?

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

Вроде да, а что?

[Сергей812]

Сообщение от Кулик Алексей aka kpblc Вроде да, а что?

его владелец MS, а он собирается ограничить доступ к своим облачным решениям..

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

Для корпоративных клиентов, насколько я слышал. Частные лица под подобные ограничения не попадают вроде бы.

[doctorraz]

Не проверял, но вроде чот такое наши сделали
https://gitflic.ru/public/project

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

Да, я видел - но пока не тестировал, не регистрировался, не смотрел. Китайские варианты смотреть как-то не хоцца.

----- добавлено через ~10 мин. -----
То ли лыжи, то ли я - но отправить в туда репозиторий у меня не получилось. Так что пока похороню этот вариант

[doctorraz]

Offtop: Решать вопросы по мере поступления
Иначе ваще ни на что время не хватит

[===AAA===]

а) А если у меня в VS только ".NET 8.0" доступен, мне ".NET 6.0" доустановить нужно?
б) Где в VS можно изменить цвет экрана с черного на другой и увеличить размер
шрифта в поле ввода текста программы?

[doctorraz]

Сообщение от ===AAA=== а) А если у меня в VS только ".NET 8.0" доступен, мне ".NET 6.0" доустановить нужно?

да

Сообщение от ===AAA=== б) Где в VS можно изменить цвет экрана с черного на другой и увеличить размер шрифта в поле ввода текста программы?

в параметрах
Средства->параметры
Окружение-общие (там тема)
Шрифты и цвета там шрифты и цвета
ну и поиск по настройкам работает
И из самой IDE работает поиск в том числе и по параметрам

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

Если NET6 не установлен, то надо запустить Visual Studio Installer, нажать кнопку "Изменить" - и дальше "Дополнительные компоненты". Ну или отдельно скачивать NET6 SDK и пытаться его воткнуть. Но вариант установки через студию ИМХО самый простой.
Оформление студии - чистой воды вкусовщина. Просто я подустал от светлого фона в VBA и VLIDE

[avatarez]

Объектную модель для мультикада можно выдернуть при помощи ILSpy из соответствующих dll. Там даже комментарии в коде кое где есть.
На работе мне VS никто бы не поставил, так что приходилось код писать в Notepad++ и батником компилировать

Код:

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

chcp 1251 >nul

::ИМЯ БИБЛИОТЕКИ
set "name=compiled"

::ЧТЕНИЕ КОМАНДНОЙ СТРОКИ
if not "%~nx1" == "" (
	set "name=%~n1"
)

::КОМПИЛЯЦИЯ
echo f | xcopy "output\%name%.dll" "output\%name%.bak" /r /y /h
del "output\%name%.dll" /q /f
"%SYSTEMROOT%\Microsoft.NET\Framework\v3.5\csc.exe" ^
-reference:"bin\hostdbmgd.dll" ^
-reference:"bin\hostmgd.dll" ^
-reference:"bin\imapimgd.dll" ^
-reference:"bin\mapibasetypes.dll" ^
-reference:"bin\mapimgd.dll" ^
-target:library ^
-optimize ^
-out:"output\%name%.dll" ^
"cs\*.cs"

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

Сообщение от avatarez код писать в Notepad++

Не, до такого я не дорос. И вряд ли дорасту ))

[trir]

На работе мне VS никто бы не поставил

https://vscode.dev/

[===AAA===]

Добрался до момента, когда только средствами LISP задачу в nanoCAD решить не получится.
Нужно создать аналог функции (dos_processes) из библиотеки DOSLIB.

Функция запускается без параметров и возвращает список работающих в данный момент
приложений Windows, типа:

(... "msedge.exe" "ShellExperienceHost.exe" "RuntimeBroker.exe" "UcMapi.exe" "plan.exe" "EXCEL.EXE"
"NOTEPAD.EXE" "splwow64.exe" "DllHost.exe" "msedge.exe" "WINPROJ.EXE" "iexplore.exe" "IEXPLORE.EXE"
"IESettingSync.exe" "lynchtmlconv.exe" "msedge.exe" "SearchProtocolHost.exe" "acad.exe" ну и т.д.)

который может быть передал в программу на LISP и обработан.

Сформулируем так: нужно из программы на LISP узнать, запущен ли "Блокнот" и если да, то сколько
копий его сейчас открыто.

[Сергей812]

а нано поддерживает атрибут LispFunction? А так через Windows API типа FindWindow скорее всего искать. Или, например, Process класс Net фреймворка.

[doctorraz]

Сообщение от Сергей812 нано поддерживает атрибут LispFunction?

В 24й версии добавили

[===AAA===]

а нано поддерживает атрибут LispFunction?

Я бы знал?

Это для меня пока вообще тёмный лес от слова "совсем". :-)
Я только на ЛИСПе умею.

----- добавлено через ~3 мин. -----
Отсутствие этого атрибута в 23-й нане не позволяет запустить из
лиспа программу на дотнет или передать в неё полученные данные?

Если только второе - не беда. Пусть в файл результат выбросит,
я из него заберу.

[Сергей812]

Сообщение от ===AAA=== Я только на ЛИСПе умею.

ветка .Net все таки - поэтому тыц, и там смотрим метод GetProcessesByName(String) и пример к нему.

[doctorraz]

Сообщение от ===AAA=== Пусть в файл результат выбросит, я из него заберу.

Offtop: Да будет так...
Шарп учи, и тогда так будет и лисп не сильно нужен будет
Если уж. kpblc Гуру лиспа Шарп учит, остальным тем более)) не помешает

[===AAA===]

Насчёт необходимости изучения C# согласен, поэтому и тему эму создал.
Возможно, что она со временем даже превратится в "песочницу", подобную
теме, висящую в топе подфорума "программирование на LISP" :-)

Поясните, плиз, базовую вещь - на C# возможно создать для nanoCAD 23.1
DLL-ку, содержащую функции, которые, будучи вызванными из программы на
лиспе, смогут возвращать в неё информацию или для этого нужен nanoCAD 24+ ?

Т.е. будет ли работать в nanoCAD 23.1 конструкция типа:

(defun a1 ()

(setq b1 5 b2 (функция_из_dll b1))

(print b2)

)

?

Цель - "для начала" мне нужно написать (с помощью уважаемых гуру форума)
некоторые функции, ранее присутствовавшие в DOSLIB, но которые стали
недоступны в nanoCAD'e. В основном это функции интерфейса, работы с внешним
окружением nanoCAD'a и другие вещи, которые невозможно сделать на Лиспе.

[Сергей812]

Ну если

Сообщение от doctorraz В 24й версии добавили

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

[doctorraz]

Сообщение от Сергей812 Если нанокадовцы это реализовали, конечно...

Команды реализовали, иначе б обсуждать было бессмысленно

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

Сообщение от ===AAA=== некоторые функции, ранее присутствовавшие в DOSLIB, но которые стали недоступны в nanoCAD'e

Имха проще сделать реализацию полностью на net
Это будет работать значительно быстрее

[===AAA===]

Имха проще сделать реализацию полностью на net Это будет работать значительно быстрее

Совсем новые вещи - почему бы и нет.

Когда и если научусь писать на C#
так же быстро и легко, как на Лиспе. :-)

Пока же стоит задача перетащить из
Автокада в наноКад уже сделанное.

Однако я так и не понял из обсуждения
выше - версия nanoCAD 23.1 уже позволяет
делать связки LISP + C# или нужен 24+ ?

Можно просто - "да" или "нет" ? :-)

[doctorraz]

Сообщение от ===AAA=== версия nanoCAD 23.1 уже позволяет делать связки LISP + C# или нужен 24+ ?

Команды с ключами - да
Функции возврат значения в липсе - нет
Но ты выше писал что тебя устроит возврат значения в файл, тоже - да

[===AAA===]

Хорошо. Тогда ещё одно уточнение.

Эту новую команду из LISP функции, как я понимаю,
нужно будет запускать через (command ...) ?

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

[doctorraz]

Думаю дождутся))
Если специально не запускать в асинхронном режиме
Все будет идти по очереди,
Т. Е. По окончании работы команды DLL, можно поднимать файл и вынимать из него инфу..
Но как тэ это очень уж костыльно((
На net можно делать много круче вещи чем лисп , единственное неудобство по сравнению с лисп и vbs, надо компилировать

[Нубий-IV]

Есть вариант на плюсах писать. Там точно можно создавать команды, которые работают из-под лиспа, в том числе возвращая значение. Но это если удастся их освоить за 21 день.

Код:

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

 
#include <arxHeaders.h>

// Код команды
const int CMD_SUM = 0;

// Команда "Сумма"
int Sum()
{
	double result = 0.0;

	// Получение списка аргументов, переданных из лиспа
	struct resbuf* rb = acedGetArgs();
	
	// Перебор списка
	while(rb) {
		// Добавление очередного слагаемого
		switch(rb->restype) {
		case RTSHORT:
			result += rb->resval.rint;
			break;
		case RTLONG:
			result += rb->resval.rlong;
			break;
		case RTREAL:
			result += rb->resval.rreal;
			break;
		default:
			acutPrintf(_ACRX_T("; ошибка: неправильный тип аргумента"));
			acedRetVoid();
			return RTERROR;
		}
		// Следующий аргумент в списке
		rb = rb->rbnext;
	}

	// Возвращение результата
	acedRetReal(result);
	return RTNORM;
}

// Класс приложения
class CSum: public AcRxArxApp {
public:
	// Регистрация Лисп-команды при загрузке чертежа
	AcRx::AppRetCode On_kLoadDwgMsg(void *pkt) override
	{
		acedDefun(_ACRX_T("Sum"), CMD_SUM);
		return AcRx::kRetOK;
	}
	
	// Удаление регистрации Лисп-команды при выгрузке чертежа
	AcRx::AppRetCode On_kUnloadDwgMsg(void *pkt) override
	{
		acedUndef(_ACRX_T("Sum"), CMD_SUM);
		return AcRx::kRetOK;

	}
	
	// Обработка запроса на вызов команды из Лиспа
	AcRx::AppRetCode On_kInvkSubrMsg(void *pkt) override
	{
		if(acedGetFunCode() == CMD_SUM)
			Sum();
		return AcRx::kRetOK;
	}

	// ХЗ зачем, но надо
	void RegisterServerComponents() override {}
};

// Экспорт точки входа в DLL
IMPLEMENT_ARX_ENTRYPOINT(CTest)

Вообще, судя по наличию атрибута LispCommand, и на C# должно быть можно. Надо поискать такие же имена функций, и примеры под акад.

[===AAA===]

Кстати, да - DOSLIB же на плюсах написана. И даже было
сообщение, что автор исходник в публичный доступ отдал.
Где-то в сети лежит...

И функция, выдающая список работающих в данный момент
приложений Windows в ней есть.

[Нубий-IV]

Сообщение от ===AAA=== DOSLIB

Проблема только в том, что она под нанокад не собрана?
Сама-то она вроде на гитхабе лежит: https://github.com/dalefugier/DOSLib
А так там и добавлять нечего, только запустить надо?

[===AAA===]

Проблема только в том, что она под нанокад не собрана?

Именно так. Если бы кто-то, понимающий в этом деле, смог пересобрать её
под нанокад 23.1 - отпала бы куча проблем!

[Сергей812]

Сообщение от ===AAA=== Именно так. Если бы кто-то, понимающий в этом деле, смог пересобрать её под нанокад 23.1 - отпала бы куча проблем!

ну так в чем проблемы: объявляете краудфандинг на адаптацию DOSLib, нанимаете профессионального программиста...

[===AAA===]

Ну, лично мне из неё и нужно-то менее десятка функций.
Какой там краудфандинг ...

[Сергей812]

Сообщение от ===AAA=== Ну, лично мне из неё и нужно-то менее десятка функций.

которые с вероятностью 99% реализованы в .Net. Не хотите учить .Net - перетаскивайте из акада в нано урезанный вариант готового кода с исключением вызовов функций DosLib. Ну или ждать перехода на 24 нано, чтобы хотя бы весь код не переписывать, а только вставки на .Net сделать. Хотя для этого все равно придется основы .Net изучить.

[Нубий-IV]

Посмотрел. Технически оно собирается под нанокад с небольшими правками.

Местами пришлось откатить код под старые стандарты плюсов и поправить макросы. Некоторые части пришлось закомментировать, потому что в пятом нанокаде не были реализованы полностью функции автокада. В результате потеряны dos_lisplist, dos_cleardbmod, dos_summaryinfo, dos_custominfo, dos_olelist, dos_proxycount, dos_proxyclean. Возможно, в более поздних версиях нанокада оно заведется. Остальное на первый взгляд работает, но без гарантий, все надо тестить.

У меня есть только старая бесплатная пятерка, современных 23-24 нет ни самих, ни их SDK. Даже если соберу - проверить не смогу. SDK под плюсы (папки include и lib) под 23 ставятся с программой, или их надо качать отдельно? На сайте нет ссылок, только регистрация со сдачей анализов и обещанием рассмотреть их в течение года. Если есть возможность закинуть архив с SDK куда-нибудь, саму сборку можно сделать быстро.

[===AAA===]

Добрый день!

Если есть возможность закинуть архив с SDK куда-нибудь, саму сборку можно сделать быстро.

Ответил в личку.

[Нубий-IV]

Чота собралося. Пришлось закомментировать:

* GetOSDisplayString, IsVistaOrHigher (в vs2022 почему-то недоступны функуции GetVersionEx. Кто знает, что случилось - старые версии SDK надо ставить, или еще что?)
* ads_dos_cleardbmod (использует недокументированную функцию акада, которой, видимо, в нанокаде нет)

Остальное без изменений, теперь надо тестить. В комплекте слегка поправленные исходники и проект под vs2022.

[===AAA===]

Замечательный комплект!
Нубий-IV - огромное спасибо!

Из того, что проверил, запустилось всё, кроме
(dos_progbar p1 p2), где p1 и p2 - аргументы.
Без аргументов работает штатно.

Если "коллективный разум" сумеет допилить
эту библиотеку, будет вообще круто!