Community
Hi,
As far as know there's none tool to automatically convert LISP to .NET.
Anyway, I think there's no need to convert a LISP routine which works fine. You can call it from the command line or from a .NET application:
Application.Invoke(new ResultBuffer(new TypedValue((int)LispDataType.Text, "c:xx")));
The other way should be re-writing the LISP routine in C# from scratch.
PS: I do not know where you found this LISP routine neither who wrote it but I notice some "not so good practices" in it:
- none local variable declarations
- using of sub-routines defined in a third part application (Express Tools)
IMO, the best way should be writing a .NET method which does the same as this LISP routine does (this wouldn't be so difficult) and use this method in you batch process.
Interactions between different programming environment is rarely the easier and safer way.
Hi gile,
Thanks for your code.
I use your code in C#.
Lisp Routine is in "C:\Test" folder
file name: exam.LSP
Application.Invoke(new ResultBuffer(new TypedValue((int)LispDataType.Text, "c:xx")));
My code:
[CommandMethod("OpenDrawing", CommandFlags.Session)]
public static void OpenDrawing()
{
string strFileName = @"D:\AutoCAD\testing\Stu49.dwg";
DocumentCollection acDocMgr = Application.DocumentManager;
if (File.Exists(strFileName))
{
acDocMgr.Open(strFileName, false);
Document doc = acDocMgr.MdiActiveDocument;
Editor ed = doc.Editor;
//get titlemode
short tilemode = (short)Application.GetSystemVariable("TILEMODE");
using (DocumentLock docLock = doc.LockDocument())
{
//check Model space or paperspace
if (tilemode == 0)
{
try
{
//If paperspace switch to modelspace.
HostApplicationServices.WorkingDatabase.TileMode = true;
//insert block from Lisp routines.
Application.Invoke(new ResultBuffer(new TypedValue((int)LispDataType.Text, "c:xx")));
}
catch (Exception ex)
{
AcadApp.ShowAlertDialog(ex.Message);
}
}
}
}
else
{
acDocMgr.MdiActiveDocument.Editor.WriteMessage("File " + strFileName + " does not exist.");
}
}
I getting the following error.
Could you please tell me how to solve this.
I dont know, any syntax error in lisp calling line.
Thanks in advance,
thenndral
