LispFunction：通过.netl定义Lisp函数

定义一个两数相加的lisp函数。

编译下列代码用netload命令加载编译的dll文件后，在命令行里运行(AddNumber 45 69)可以得到两数的相加值返回114.

Imports ZwSoft.ZwCAD.Runtime

Imports ZwSoft.ZwCAD.DatabaseServices


Namespace test
    Public Class test
        <LispFunction("AddNumber")> _
        Public Function AddNumber(ByVal rb As ResultBuffer) As [Object]
            Dim ret As [Object] = Nothing
            If rb IsNot Nothing Then
                Dim tvArr As TypedValue() = rb.AsArray()
                If tvArr.Count() > 0 Then
                    If tvArr.Count() = 2 Then
                        ret = CDbl(tvArr(0).Value) + CDbl(tvArr(1).Value)
                    Else ' a list
                        ret = rb
                    End If
                End If
            End If
            Return ret
        End Function
    End Class
End Namespace