社区 › VB › 用VBA如何才能取得由LISP加载的变量?

wyj7485 发表于 2005-6-25 12:06:00

用VBA如何才能取得由LISP加载的变量?

用VBA如何才能取得由LISP加载的变量?
我的思路是:
先用lisp加载的变量
(setq a 100)
再用vba如下处理:
ThisDrawing.SendCommand "users1" & vbCr & "!a" & vbCr
b = ThisDrawing.GetVariable("USERS1")
但!a并没有把100传递到系统变量users1中.
怎样才能取得呢?

王咣生 发表于 2005-6-25 14:02:00

使用USERI1~5吧,存储Integer类型值
ThisDrawing.SendCommand "useri1" & vbCr & "!a" & vbCr

zhuxuhong 发表于 2005-6-25 14:04:00

你既然用LISP赋值了，为什么不直接用LISP给USERS1赋值呢？
这样用VBA调取不就没问题了？

wyj7485 发表于 2005-6-25 15:40:00

users只有5个啊,假如我有几十个这样的变量就不行了.
知道变量名,只是利用users1起一个中介作用,因为GetVariable只能取得系统变量,可惜不能实现.

wyj7485 发表于 2005-6-25 17:30:00

我已经解决了:
ThisDrawing.SendCommand "!a" & vbCr
a = ThisDrawing.GetVariable("LASTPROMPT")
利用LASTPROMPT系统变量就可以得到最后一行的提示
不知是否还有更好的办法?

查看完整版本: 用VBA如何才能取得由LISP加载的变量?