vba调用带参数的lisp程序？

springsky · 发表于 2004-7-21 17:14:00

我想用vba调用lisp编写的一个带有参数的程序，相关的vba窗口如下：
窗口代码如下：
Private Sub ComCancel_Click()
Unload Me
End Sub
Private Sub ComOK_Click()
Dim row As Single
Dim col As Single
Dim L_row As Double
Dim L_col As Double
Dim row_No As Integer
Dim col_No As Integer
row = Val(Trim(Me.TextBox1.Text))
col = Val(Trim(Me.TextBox2.Text))
L_row = Val(Trim(Me.TextBox3.Text))
L_col = Val(Trim(Me.TextBox4.Text))
row_No = Val(Trim(Me.ComboBox1.Text))
col_No = Val(Trim(Me.ComboBox2.Text))
FrmAix.Hide
ThisDrawing.Application.ActiveDocument.SendCommand "(Waix row col L_row L_col row_No col_No)" & vbCr
'Waix row, col, L_row, L_col, row_No, col_No
FrmAix.Show
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1.SetFocus
Me.CheckBox1.Value = True
Me.CheckBox2.Value = True
With Me.ComboBox1
   For i = 1 To 10
   .AddItem i, (i - 1)
   Next i

   For i = 1 To 26
   .AddItem Chr(64 + i), i + 9
   Next i
End With
With Me.ComboBox2
   For i = 1 To 26
   .AddItem Chr(64 + i), i - 1
   Next i

   For i = 1 To 10
   .AddItem i, i + 25
   Next i

End With
lisp程序参见上传文件。
请高手指点我如何调用。谢谢！
file:///C:/My%20Documents/My%20student/www.bmp

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复