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

meworld · 发表于 2004-8-17 11:16:00

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

雪山飞狐_lzh · 发表于 2004-8-17 13:19:00

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

meworld · 发表于 2004-8-17 13:43:00

我没搜索到啊,你能帮帮忙吗?
我要做的是把数组fn(0 to 4)的值传到一个表uu中,数组的每个元素作为新表的一项,新的表为(fn(0) fn(1) fn(2) fn(3) fn(4))

雪山飞狐_lzh · 发表于 2004-8-17 13:48:00

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

meworld · 发表于 2004-8-17 14:44:00

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)
怎么办?