[1117]請教如何使用VBA來連結使用LSP

xyz518mm · 发表于 2005-11-17 16:18:02

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

[1117]请教如何使用VBA来连结使用LSP
程式内容如下,但却发生呼叫错误
不知道该怎样修正请各位高手帮忙
谢谢

另附上介面图

Option Explicit

Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub

Private Sub CommandButton2_Click()
ThisDrawing.SendCommand "(load C:/LISP/TS01.lsp)"
ThisDrawing.SendCommand "TS01"

End Sub

Private Sub CommandButton3_Click()
ThisDrawing.SendCommand "(load C:/LISP/TS02.lsp)"
ThisDrawing.SendCommand "TS02"
End Sub

Private Sub CommandButton4_Click()
ThisDrawing.SendCommand "(load C:/LISP/TS03.lsp)"
ThisDrawing.SendCommand "TS03"
End Sub

Private Sub UserForm_Click()

End Sub

雪山飞狐(lzh) · 发表于 2005-11-17 21:17:57

ThisDrawing.SendCommand "(load C:/LISP/TS01.lsp)" & vbcr
ThisDrawing.SendCommand "TS01" & vbcr

xyz518mm · 发表于 2005-11-18 08:06:57

照您的方法来使用但还是没有呼叫出来,
不知道是怎样的问题
是因为程式没有结尾吗?
还是因为 TS01.lsp内容问题
烦请您可以在解答一下
谢谢

ThisDrawing.SendCommand "(load C:/LISP/TS01.lsp)" & vbcr
ThisDrawing.SendCommand "tslisp01" & vbcr

TS01.lsp内容
(defun c:tslisp01 ()
(command "_Break" ee "_f" Pause "@")
)

macula55 · 发表于 2005-11-18 08:47:28

应该这样写：
Thisdrawing.SendCommand "(load c:/lisp/ts01.lsp) ts01 "

注意空格的使用！

xyz518mm · 发表于 2005-11-18 11:17:19

可以使用了
但之前加入的 & vbcr 是怎样的作用呢?
但为何按下命令后,控制按钮的画面不会脱离开呢?
是否还要补上其他的程序内容
烦请您可以在解答一下
谢谢

雪山飞狐(lzh) · 发表于 2005-11-18 11:45:00

你为什么不直接做成工具条按钮？

xyz518mm · 发表于 2005-11-18 12:48:25

因为如果很多程式不就会有很多的按钮吗

小玩童 · 发表于 2005-11-21 00:29:58

为什么要用VBA调用LISP呢？直接用LISP不是更方便吗？

账号		自动登录	找回密码
密码			立即注册

[1117]請教如何使用VBA來連結使用LSP

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子