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

vba调用带参数的lisp程序？

我想用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
**** Hidden Message *****

springsky 发表于 2004-7-22 13:37:00

怎么没有音信？

liub1979 发表于 2004-7-26 21:16:00

顶

雪山飞狐_lzh 发表于 2004-7-26 21:22:00

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

springsky 发表于 2004-7-27 22:41:00

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

雪山飞狐_lzh 发表于 2004-7-28 08:58:00

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

springsky 发表于 2004-7-28 09:11:00

我记得有朋友说过(defun c:xxx(para1 para2 ... / )也可以。
页: [1]
查看完整版本: vba调用带参数的lisp程序？