|
我想用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
本帖以下内容被隐藏保护;需要你回复后,才能看到! 游客,如果您要查看本帖隐藏内容请 回复 |
|