乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 109|回复: 6

vba调用带参数的lisp程序?

[复制链接]

33

主题

69

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
201
发表于 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

本帖以下内容被隐藏保护;需要你回复后,才能看到!

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

使用道具 举报

33

主题

69

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
201
发表于 2004-7-22 13:37:00 | 显示全部楼层
怎么没有音信?
回复

使用道具 举报

20

主题

80

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
160
发表于 2004-7-26 21:16:00 | 显示全部楼层
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-7-26 21:22:00 | 显示全部楼层
ThisDrawing.SendCommand "(Waix " & row         & " " & col & " "        &        L_row & " "        &        L_col & " " &        row_No & " " &        col_No & ")" & vbCr
回复

使用道具 举报

33

主题

69

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
201
发表于 2004-7-27 22:41:00 | 显示全部楼层
我试过了,可是不行cad提示是
Command: (Waix 12 12 12 12 1 0)
; error: no function definition: WAIX
但是我已经加载了c:waix文件?不知如何是好?
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-7-28 08:58:00 | 显示全部楼层
应该是(defun        WAIX
而不是(defun        c:WAIX
回复

使用道具 举报

33

主题

69

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
201
发表于 2004-7-28 09:11:00 | 显示全部楼层
我记得有朋友说过(defun c:xxx(para1 para2 ... / )也可以。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 03:14 , Processed in 0.419215 second(s), 71 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表