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

vba调用带参数的lisp程序？

我想用vba调用lisp编写的一个带有参数的程序，相关的vba窗口如下：


窗口代码如下：


Private Sub ComCancel_Click()<BR>Unload Me<BR>End Sub


Private Sub ComOK_Click()<BR>Dim row As Single<BR>Dim col As Single<BR>Dim L_row As Double<BR>Dim L_col As Double<BR>Dim row_No As Integer<BR>Dim col_No As Integer


row = Val(Trim(Me.TextBox1.Text))<BR>col = Val(Trim(Me.TextBox2.Text))<BR>L_row = Val(Trim(Me.TextBox3.Text))<BR>L_col = Val(Trim(Me.TextBox4.Text))


row_No = Val(Trim(Me.ComboBox1.Text))<BR>col_No = Val(Trim(Me.ComboBox2.Text))


<BR>FrmAix.Hide<BR>ThisDrawing.Application.ActiveDocument.SendCommand "(Waix row col L_row L_col row_No col_No)" &amp; vbCr<BR>'Waix row, col, L_row, L_col, row_No, col_No


FrmAix.Show


End Sub<BR>Private Sub UserForm_Initialize()<BR>Me.TextBox1.SetFocus


Me.CheckBox1.Value = True<BR>Me.CheckBox2.Value = True


With Me.ComboBox1<BR>                       For i = 1 To 10<BR>                       .AddItem i, (i - 1)<BR>                       Next i<BR>                       <BR>                       For i = 1 To 26<BR>                       .AddItem Chr(64 + i), i + 9<BR>                       Next i<BR>End With


With Me.ComboBox2<BR>                       For i = 1 To 26<BR>                       .AddItem Chr(64 + i), i - 1<BR>                       Next i<BR>                       <BR>                       For i = 1 To 10<BR>                       .AddItem i, i + 25<BR>                       Next i<BR>                       <BR>End With


lisp程序参见上传文件。


请高手指点我如何调用。谢谢！

<IMG src="file:///C:/My%20Documents/My%20student/www.bmp">

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

怎么没有音信？

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

顶

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

ThisDrawing.SendCommand "(Waix " &amp; row       &amp; " " &amp; col &amp; " "        &amp;        L_row &amp; " "        &amp;        L_col &amp; " " &amp;        row_No &amp; " " &amp;        col_No &amp; ")" &amp; vbCr<BR>

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

我试过了，可是不行cad提示是


Command: (Waix 12 12 12 12 1 0)<BR>; 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程序？