[编程申请]：能否用Lisp生成DLL文件然后放入到VBA中去？

ironwill2004

能否用Lisp生成DLL文件然后放入到VBA中去？
我想实现Lisp语言和VBA语言的变量值的传递，用Lisp语言编写的函数被VBA调用后能够改变VBA里实参的值，该怎么做？
最好给点代码，谢谢

雪山飞狐(lzh)

Lisp生成DLL?据我所知不行
反过来可以
也可以调用Vlax类

ironwill2004

调用Vlax类事实上等于是两个完全分离的东西，仍不能调Lisp语言修改VBA里的任何变量，两者之间并不能交换数据。
斑竹：这么着吧！我就是想将Lisp语言里grread取得的坐标值传递给VBA使用，可以通过什么方法？如果Lisp语言学得好的话应该不难吧？Lisp我可是外门汉

雪山飞狐(lzh)

Function GetPoint()
'功能：返回当前鼠标状态
'Vlax类请小心使用，该函数可能使AutoCad崩溃
'返回值：一维数组
'返回0，0，－1表示按下鼠标左键，返回0，0，1表示按下鼠标右键，返回a，b，0表示当前鼠标坐标
On Error GoTo ErrClear
Dim obj As VLAX
Dim pRetVal(2) As Double, retVal
Set obj = New VLAX
obj.EvalLispExpression ("(setq a (grread t) b (car a) c (cadr a))")
Select Case obj.GetLispSymbol("b")
Case 3
pRetVal(2) = -1
Case 5
retVal = obj.GetLispList("c")
pRetVal(0) = retVal(0)
pRetVal(1) = retVal(1)
Case Else
pRetVal(2) = 1
End Select
GetPoint = pRetVal
ErrClear:
Set obj = Nothing
End Function

ironwill2004

谢谢斑竹！您可帮了我一个大忙！

adisonmaster

请问斑竹，如何在获取鼠标坐标的同时进行动态捕捉到交点或终点？返回的值是捕捉后的坐标？

wangyangdh

不是很好用

lzgzcy

我就当时学习一下吧！

ericsywong

多谢斑竹，原来VLAX类可以这样用的，VBA可做更多的事情了。