vba调用带参数的lisp程序？

springsky

我想用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程序参见上传文件。 请高手指点我如何调用。谢谢！

springsky

怎么没有音信？

liub1979

顶

雪山飞狐_lzh

ThisDrawing.SendCommand "(Waix " & row & " " & col & " " & L_row & " " & L_col & " " & row_No & " " & col_No & ")" & vbCr

springsky

我试过了，可是不行cad提示是 Command: (Waix 12 12 12 12 1 0)
; error: no function definition: WAIX 但是我已经加载了c:waix文件？不知如何是好？

雪山飞狐_lzh

应该是(defun WAIX 而不是(defun c:WAIX

springsky

我记得有朋友说过(defun c:xxx(para1 para2 ... / )也可以。