定义一个两数相加的lisp函数。
编译下列代码用netload命令加载编译的dll文件后,在命令行里运行(AddNumber 45 69)可以得到两数的相加值返回114.
Imports ZwSoft.ZwCAD.Runtime
Imports ZwSoft.ZwCAD.DatabaseServicesNamespace 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