[VBA]怎样从VBA中传递值到Lisp变量?

meworld

我的程序一部分由VBA写成,后一部分要由Lisp来处理,但是必须要从VBA中传递值到Lisp变量中,请高手帮忙怎么从VBA中传递参数到Lisp 中?

雪山飞狐_lzh

以前的贴子里都有，搜索一下。。。

meworld

我没搜索到啊,你能帮帮忙吗?


我要做的是把数组fn(0 to 4)的值传到一个表uu中,数组的每个元素作为新表的一项,新的表为(fn(0) fn(1) fn(2) fn(3) fn(4))

雪山飞狐_lzh

thisdrawing.SendCommand "(setq uu (list " & fn(0) & " " & fn(1) & " " & fn(2) & " " & fn(3) & " " & fn(4)        & "))"

meworld

lzh741206,谢谢你前面的帮助.再麻烦你一下,我传递的参数是字符串型的,但是VBA中字符串不能有双引号,有什么办法可以解决? 在数组fn()中,fn(0)存的是路径,例如fn(0)="c:\",fn(0)和fn(1)等数组元素存的是文件名,例如fn(1)="C:\ 81.XYZ"和fn(2)="82.XYZ",fn(3)="0721.XYZ" ,fn(4)="0722.XYZ"........,代码如下:: Private Sub UserForm_Initialize()
dlgOpen.Filter = "xyz文件|*.xyz"
dlgOpen.Flags = 512 'Allow MultiSelect
dlgOpen.ShowOpen
Dim fn() As String, cmd As String
If dlgOpen.FileName <> "" Then
fn = Split(dlgOpen.FileName, " ")
cmd = "(setq uu (list " & fn(0)
For i = 1 To UBound(fn)
cmd = cmd & " " & fn(i)
Next i
cmd = cmd & "))"
ThisDrawing.Application.ActiveDocument.SendCommand cmd & vbCr
End If
End
End Sub
结果:::setq uu (list C:\ 81.XYZ 82.XYZ 0721.XYZ 0722.XYZ))
(nil nil nil nil nil) 怎么办?

雪山飞狐_lzh

字符串在VB和Lisp的传递最好用Users1～5系统变量


VBA里调用SetVariable方法设置系统变量的值


Lisp里用GetVar函数读取


你的变量正好有5个，超过的话就要用字符连接和分解了

雪山飞狐_lzh

另外，有两点：


一、VB里字符串可以有分号，如





MsgBox         "A""B"


二、VB里"\"在Lisp里是"\\"

meworld

其实我的参数不一定是四个.很有可能要超过4个.我以前做的一个程序是Lisp 做的,Lisp 中函数Gerfiled只能选一个文件,不能多选,我现在就是要在VBA中用CommanDialog选择多个文件,然后把文件名传给Lisp,哎,好象挺难办到的.

雪山飞狐_lzh

VBA里



SetVariable "Users1" , dlgOpen.FileName


Lisp里


(setq a (GetVar "Users1"))


再编个函数把字符串分解为表