Комментарии на: Объявление lisp под NET (nanoCAD 24+) и *error* https://autolisp.ru/2025/02/03/lisp-from-net-nc24-with-lisperror/ LISP для AutoCAD Tue, 24 Feb 2026 16:11:05 +0000 hourly 1 http://wordpress.org/?v=4.0 От: Кулик Алексей aka kpblc https://autolisp.ru/2025/02/03/lisp-from-net-nc24-with-lisperror/comment-page-1/#comment-115332 Mon, 03 Feb 2025 13:24:27 +0000 https://autolisp.ru/?p=5095#comment-115332 М-да, как-то про CommandFlags я упустил из виду. Спасибо )

]]> От: drz https://autolisp.ru/2025/02/03/lisp-from-net-nc24-with-lisperror/comment-page-1/#comment-115330 Mon, 03 Feb 2025 13:00:53 +0000 https://autolisp.ru/?p=5095#comment-115330 флаг CommandFlags.Sessionуказывает, что контекст выполнения команды документ
заболтался, конечно жэ контент выполнения приложение)))

]]> От: drz https://autolisp.ru/2025/02/03/lisp-from-net-nc24-with-lisperror/comment-page-1/#comment-115329 Mon, 03 Feb 2025 12:57:45 +0000 https://autolisp.ru/?p=5095#comment-115329 более того
для команды

[Rtm.CommandMethod("drz_Test5")]
public void CmdPTest5()
{
Document doc = Application.DocumentManager.MdiActiveDocument;
if (doc == null)
{
return;
}
Editor ed = doc.Editor;
ed.WriteMessage("Проверка документа на null не нужна, команда и так не будет выполнена без документа");
}

проверка наличия активного документа не требуется
======

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

[Rtm.CommandMethod("drz_Test6", Rtm.CommandFlags.Session)]
public void CmdPTest6()
{
Document doc = Application.DocumentManager.MdiActiveDocument;
if (doc == null)
{
return;
}
Editor ed = doc.Editor;
ed.WriteMessage("Проверка документа на null обязательна, иначе без дакумента выхватим эксепшен");
}

как видишь static совсем не при делах),
по крайней мере в нане

]]> От: drz https://autolisp.ru/2025/02/03/lisp-from-net-nc24-with-lisperror/comment-page-1/#comment-115328 Mon, 03 Feb 2025 12:48:00 +0000 https://autolisp.ru/?p=5095#comment-115328 нет, static не влияет
по умолчанию команда всегда выполняется в контексте документа
очевидно, что эти команды без документа работать не будут


using Win = System.Windows;
/////
[Rtm.CommandMethod("drz_Test1")]
public static void CmdPTest1()
{
Win.MessageBox.Show("static Test1");
}
[Rtm.CommandMethod("drz_Test2")]
public void CmdPTest2()
{
Win.MessageBox.Show("Test2");
}

флаг CommandFlags.Sessionуказывает, что контекст выполнения команды документ
так без документа команды будут работать

[Rtm.CommandMethod("drz_Test3",Rtm.CommandFlags.Session)]
public static void CmdPTest3()
{
Win.MessageBox.Show("static Session Test3");
}
[Rtm.CommandMethod("drz_Test4",Rtm.CommandFlags.Session)]
public void CmdPTest4()
{
Win.MessageBox.Show("Session Test2");
}

мы с тобой уже обсуждали этот момент год назад)))
на убиенном форуме, я то же забыл пришлось вспоминать

]]> От: Кулик Алексей aka kpblc https://autolisp.ru/2025/02/03/lisp-from-net-nc24-with-lisperror/comment-page-1/#comment-115327 Mon, 03 Feb 2025 11:02:28 +0000 https://autolisp.ru/?p=5095#comment-115327 Ну, во-первых, на многих исхониках (которые я видел в свое время) команды и лисп-функции прописывались в статических классах. И, во-вторых, если объявить команду не статической, она может быть вызывана в NC с ком.строки и без документа, насколько я помню. И плевать на регистрацию команды в меню )

]]> От: drz https://autolisp.ru/2025/02/03/lisp-from-net-nc24-with-lisperror/comment-page-1/#comment-115324 Mon, 03 Feb 2025 09:14:23 +0000 https://autolisp.ru/?p=5095#comment-115324 статический метод то же работает

public class TEST
{
[CommandMethod("t-HelloWorld")]
public void HelloWorld()
{
Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
ed.WriteMessage("Hello World");
}

#region LISP FUNCTION
[LispFunction("dr-ttt")]
public static bool LispTest3(ResultBuffer arguments)
{
bool res = false;
Array args = arguments.AsArray();
if (args.Length == 1)
{
string sText = ((TypedValue)(args.GetValue(0))).Value.ToString();
Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
ed.WriteMessage("\nAnswer " + sText);
res = true;
}
return res;
}
[LispFunction("_tt")]
public static bool LispTest2(ResultBuffer arguments)
{
bool res = false;
Array args = arguments.AsArray();
if (args.Length == 1)
{
string sText = ((TypedValue)(args.GetValue(0))).Value.ToString();
Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
ed.WriteMessage("Answer " + sText);
res = true;
}
return res;
}
[LispFunction("_dr_test")]
public static bool LispTest(ResultBuffer arguments)
{
bool res = false;
Array args = arguments.AsArray();
if (args.Length == 1)
{
string sText = ((TypedValue)(args.GetValue(0))).Value.ToString();
Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
ed.WriteMessage("Answer " + sText);
res = true;
}
return res;
}

[LispFunction("kpblc-test-resbuf")]
public static ResultBuffer KpblcTestResBufList(ResultBuffer arg)
{
ResultBuffer res = new ResultBuffer();

res.Add(new TypedValue((int)LispDataType.ListBegin));

res.Add(new TypedValue((int)LispDataType.ListBegin));
res.Add(new TypedValue((int)LispDataType.Text, "key"));
res.Add(new TypedValue((int)LispDataType.DottedPair));
res.Add(new TypedValue((int)LispDataType.Text, "value"));

res.Add(new TypedValue((int)LispDataType.ListEnd));
res.Add(new TypedValue((int)LispDataType.ListEnd));

return res;
}

[LispFunction("kpblc-test-resbuf2")]
public static ResultBuffer KpblcTestResBufList2(ResultBuffer arg)
{
ResultBuffer res = new ResultBuffer();

res.Add(new TypedValue((int)LispDataType.ListBegin));
res.Add(new TypedValue((int)LispDataType.ListBegin));

res.Add(new TypedValue((int)LispDataType.Text, "key"));
res.Add(new TypedValue((int)LispDataType.Text, "value"));
res.Add(new TypedValue((int)LispDataType.ListEnd));

res.Add(new TypedValue((int)LispDataType.ListBegin));
res.Add(new TypedValue((int)LispDataType.Text, "key2"));
res.Add(new TypedValue((int)LispDataType.Int32, 123));
res.Add(new TypedValue((int)LispDataType.ListEnd));

res.Add(new TypedValue((int)LispDataType.ListEnd));

return res;
}

[LispFunction("kpblc-test-resbuf1")]
public static ResultBuffer KpblcTestResBufList1(ResultBuffer arg)
{
ResultBuffer res = new ResultBuffer();

res.Add(new TypedValue((int)LispDataType.ListBegin));

res.Add(new TypedValue((int)LispDataType.ListBegin));
res.Add(new TypedValue((int)LispDataType.Text, "key"));
res.Add(new TypedValue((int)LispDataType.DottedPair));
res.Add(new TypedValue((int)LispDataType.Text, "value"));
res.Add(new TypedValue((int)LispDataType.ListEnd));

res.Add(new TypedValue((int)LispDataType.ListBegin));
res.Add(new TypedValue((int)LispDataType.Text, "key2"));
res.Add(new TypedValue((int)LispDataType.DottedPair));
res.Add(new TypedValue((int)LispDataType.Int32, 123));
res.Add(new TypedValue((int)LispDataType.ListEnd));

res.Add(new TypedValue((int)LispDataType.ListEnd));

return res;
}

#endregion
}

в том году на старом форуме в начале февраля разбирались

]]> От: drz https://autolisp.ru/2025/02/03/lisp-from-net-nc24-with-lisperror/comment-page-1/#comment-115323 Mon, 03 Feb 2025 09:00:33 +0000 https://autolisp.ru/?p=5095#comment-115323 почему ты решил, что должно быть static?
https://github.com/ADN-DevTech/AutoCAD-Net-Wizards/blob/master/AutoCAD-Plugin-Template/ExamplePlugin/myCommands.cs
https://github.com/ADN-DevTech/AutoCAD-Net-Wizards/blob/ForAutoCAD2024/AutoCADNetWizardsInstaller/Output/AutoCAD%20CSharp%20plug-in/myCommands.cs
===================
учитывая, что МАЭСТРО не поправил и по видимому все собралось и заработало в АК, этот жеж код работает у меня в нано
https://adn-cis.org/forum/index.php?topic=10382.msg48321#msg48321

кстати в SDK АК2016

using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.ApplicationServices;
...
[LispFunction("c:helloworld")]
public void hw(ResultBuffer args)
{
Editor ed =
Application.DocumentManager.MdiActiveDocument.Editor;
ed.WriteMessage('\n' + "Hello World!" + '\n');
}

потом появился static

]]>