C#

自定义autolisp 函数 研究

本人是lisp爱好者，初学C#对AutoCAD编程。

从教材上看到C#可以自定义autolisp函数。

教材例子：

定义一个命名为 DisplayFullName 的 AutoLISP 函数。 虽然在 .NET 工程中定义的这个方法接收一个值，但是这个 AutoLISP 函数期待两个字符串值以给出合适的输出。

加载 .NET 工程到 AutoCAD 中。

预期运行效果如下：

在命令提示中输入下列的命令：

(displayfullname "First" "Last")

下面是这个 AutoLISP 函数执行后输出窗口中显示的：

Name:

First Last

自定义代码如下：

C#

using

Autodesk.AutoCAD.Runtime;

using

Autodesk.AutoCAD.ApplicationServices;

[LispFunction("DisplayFullName")]

public

static void DisplayFullName(ResultBuffer rbArgs)

{

if (rbArgs != null)

{

string strVal1 = "";

string strVal2 = "";

int nCnt = 0;

foreach (TypedValue rb in rbArgs)

{

if

(rb.TypeCode ==

(int)Autodesk.AutoCAD.Runtime.LispDataType.Text)

{

switch(nCnt)

{

case

0:

strVal1

= rb.Value.ToString();

break;

case

1:

strVal2

= rb.Value.ToString();

break;

}

nCnt

= nCnt + 1;

}

}

Application.DocumentManager.MdiActiveDocument.Editor.

WriteMessage("\nName:

" + strVal1 + " " + strVal2);

}

}

(注：本例子来自于《AutoCAD.net开发人员手册中文版》)

我们看到这个例子中自定义的autolisp函数是(displayfullname)，它接收两个字符串参数，没有返回参数。因为是Void。功能是在命令行写出这两个字符串。

书上只提供了这样一个例子，没有更详细的介绍，这样的功能对于autolisp来说有多大意义吗？没有！

我们要定义一个autolisp函数，我们需要的功能是：

1.

传递autolisp的参数给这个函数，所传递的参数可以是autolisp的各种数据类型。

2.

在C#中使用这些参数，运用C#(AutoCAD.net)提供的强大功能进行各种操作。最重要的是实现autolisp所无法实现的功能。

3.

在这个自定义函数运行完成之后，我们需要这个函数有返回值。这个返回值既是C#中的数据类型，也能够在autolisp中使用。比如在C#中画好的一条或几条线传递回来，供autolisp继续对他们进行操作。

而例题中并没有介绍返回值的方法。

我们来研究一下如何实现我们所需要的这些功能。

最主要的问题就是如何设置函数的参数，如何调用这些参数，如何设置返回值，在lisp中又如何调用这些返回值。

首先，例题中给出了函数的参数，是一个ResultBuffer 数据。ResultBuffer 数据是一个放置了若干个TypedValue数据的数据。可以理解为ResultBuffer数据是TypedValue数据的集合。

所以，就如同在例题中看到的，我们可以用

foreach

(TypedValue rb in rbArgs) { }

把ResultBuffer rbArgs 中的成员提取出来。

而TypedValue数据根据字面理解就是“类-值”，它里面放的是两个元素(类型，值)；就是把一个数据和这个数据的类型相对应的放在一起。理论上这个数据类型可以放任何类型的数据在里面。不过我们要想放入可供Autolisp使用的数据，那么就要放入LispDataType中有的类型。LispDataType中有double,txt,point3d,objectid等等类型。

比如，我们要把一条线line的ObjectId放到这个TypedValue数据里，就可以这样写：

TypedValue ty  =

new TypedValue((int)LispDataType.ObjectId,

line.ObjectId);

比如，我们要把一个点Point3d pp放到这个TypedValue数据里，就可以这样写：

TypedValue ty  =

new TypedValue((int)LispDataType.Point3d, pp);

当然，还可以放入双精度、整型、字符串等等类型的数据。

搞清楚TypedValue数据之后，我们就知道如何使用ResultBuffer 数据参数了。

首先用foreach

(TypedValue rb in rbArgs) { } 把ResultBuffer rbArgs 中的成员rb提取出来。然后可以用rb.TypeCode来判断数据的类型，用rb.Value获得数据的值。然后根据类型来尽情使用这些来自autolisp的数据。

以上就是调用参数的方法。

同理，设置返回值也是如此。我们同样可以利用ResultBuffer数据类型设置返回值。比如自定义一个带ResultBuffer数据类型返回值的函数：

[LispFunction("text")]

public static ResultBuffer text (ResultBuffer rbArgs)

{ }

因为我们要返回的内容不可能只有一个数据，很可能是一组数据，而ResultBuffer就是放置了一组TypedValue的数据集合。所以，我们需要定义一个TypedValue的数组作为ResultBuffer返回值的元素。

TypedValue[] ty = new TypedValue[3];(数组长度取决于你想返回多少个数据。)

然后经过程序运行之后，将你要返回的数据，和数据的LispDataType一起放入ty[i]之中。

ty[0]

= new TypedValue((int)LispDataType. ObjectId,

line.ObjectId);

ty[1]

= new TypedValue((int)LispDataType.Point3d, p1);

ty[2]

= new TypedValue((int)LispDataType.Point3d, p2);

然后用ResultBuffer的构造函数构造ResultBuffer类型的返回变量

ResultBuffer rbrtn = new ResultBuffer(ty);

然后：return rbrtn;

这样就哦了！

我测试的这个定义好的autolisp函数test在lisp中的返回值是这样的：

(<图元名:

7ff6b4005df0> (1000.0 1000.0 0.0) (2000.0 2000.0

0.0))

我这里第一个元素放入的是线的ObjectId，到lisp里之后就变成了(car (entsel))得到的那个<图元名:

7ff6b4305e00>，第二个和第三个元素我放入的是Point3d，到lisp里就还是一个三维点。而整个返回值就是一个lisp中的串表，我们可以用car，cadr，nth等调用其中的元素。

附：我的测试程序源码：

[LispFunction("test")]

public static ResultBuffer test(ResultBuffer rbArgs)

{

Document acDoc = Application.DocumentManager.MdiActiveDocument;

Database acCurDb =

acDoc.Database;

Editor acEd = Application.DocumentManager.MdiActiveDocument.Editor;

ResultBuffer rbrtn = new ResultBuffer();

TypedValue[] ty = new TypedValue[3];

Point3d p1 = new Point3d(1000, 1000, 0);

Point3d p2 = new Point3d(2000, 2000, 0);

if (rbArgs != null)

{

foreach (TypedValue rb in rbArgs)

{

acEd.WriteMessage("\n rb.ToString()=" +

rb.ToString());

acEd.WriteMessage("\n rb.TypeCode.ToString()=" +

rb.TypeCode.ToString());

acEd.WriteMessage("\n rb.Value.ToString()=" +

rb.Value.ToString());

}

}

Line line = new Line(p1, p2);

using (Transaction trans =

acCurDb.TransactionManager.StartTransaction())

{

BlockTable acBlkTbl =

trans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead) as BlockTable;

BlockTableRecord acBlkTblRec =

trans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],

OpenMode.ForWrite) as BlockTableRecord;

line.SetDatabaseDefaults();

acBlkTblRec.AppendEntity(line);

trans.AddNewlyCreatedDBObject(line, true);

trans.Commit();

}

try

{

ty[0] = new TypedValue((int)LispDataType.ObjectId,

line.ObjectId);

ty[1] = new TypedValue((int)LispDataType.Point3d, p1);

ty[2] = new TypedValue((int)LispDataType.Point3d, p2);

rbrtn = new ResultBuffer(ty);

acEd.WriteMessage("\n rbrtn=" +

rbrtn.ToString());

}

catch (System.Exception ex)

{

acEd.WriteMessage(ex.Message);

}

return rbrtn;

}

在cad中先用netload加载编译好的dll文件，然后在Visual

LISP中测试如下代码：

(test (getpoint))

在Visual

LISP控制台中返回结果：

(<图元名:

7ff6b4005df0> (1000.0 1000.0 0.0) (2000.0 2000.0

0.0))

在AutoCAD命令行中返回结果：

命令:

rb.ToString()=(5009,(3350.78961272028,1554.84066563435,0))

rb.TypeCode.ToString()=5009

rb.Value.ToString()=(3350.78961272028,1554.84066563435,0)

rbrtn=((5006,(140697558605296))(5009,(1000,1000,0))(5009,(2000,2000,0)))

以上就是我这几天研究C#自定义autolisp函数的结果。这个功能可以使我们这些爱好lisp的又苦于lisp无法实现一些功能的人利用C#和AutoCAD.net的超强功能扩展lisp的函数功能。毕竟lisp在某些方面还是很强大和方便的。

想要交流的朋友加我qq：307501169