如何在LSP中调用VBA作出的对话框?

maoyangmy · 发表于 2008-8-19 08:53:14

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

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

x

如何在LSP中调用VBA作出的对话框?
LSP程序在对话框的编写方面依赖于DCL语言, 非常繁琐且不方便, 不如VBA来的快——所见即所得，能不能在LSP中将VBA编辑好的对话框调用，并返回每个控件的参数呢？

sealive_leafage · 发表于 2008-8-20 08:34:26

lisp调用VBA的对话框容易，VBA中创建sub模块，模块中包含对对话框的调用，然后用lisp函数调用vba的sub既可，但返回参数就困难了，如果可以这样就可以用lisp和VBA联合开发了！

woaishuijia · 发表于 2008-8-20 11:20:33

lsp程序中代码如下：
-------------------
(defun c:aaa()
(command "-vbarun" "a")
)
(defun c:-aaa()
(command "-text" (getstring) "" "" (getstring))
)
-------------------
VBA程序中代码如下：
-------------------
Sub A()
UserForm1.Show
End Sub
-------------------
用户窗体名为UserForm1。其中三个文本框由左至右、由上至下分别名为textbox1、textbox2、textbox3，按钮名为CommandButton1。见图

代码如下：
-------------------
Private Sub CommandButton1_Click()
SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
Me.Hide
End Sub
-------------------
附件为dwg文件2004格式，内嵌VBA程序。

[ 本帖最后由 woaishuijia 于 2008-8-20 11:34 编辑 ]

sealive_leafage · 发表于 2008-8-21 08:08:16

反过来有办法吗？例如lisp函数去控制窗体控件的动作，反向可以的话意义就大了！

woaishuijia · 发表于 2008-8-21 08:35:36

也可以用发送键盘命令的方式传递参数
比如LSP程序：
---------------------------------------
(defun c:aaa()
(command "-vbarun" "a" "AAA" )
)
---------------------------------------

VBA模块代码：
---------------------------------------
Sub A()
If ThisDrawing.Utility.GetString(0) = "AAA" Then UserForm1.Show
End Sub
---------------------------------------

另外我想，用读写文本文件的方式也应该可以传递参数。我对LISP了解不多，不知可否使用注册表？如果可以应该也是一种方法。

[ 本帖最后由 woaishuijia 于 2008-8-21 08:46 编辑 ]

woaishuijia · 发表于 2008-8-21 09:26:50

把3楼的代码扩充一下，应该算是双向传递吧？
lsp程序中代码如下：
-------------------
(defun c:aaa()
(command "-vbarun" "a" "4" "5" "AAAAAAAAAAAAAAAA" )
)
(defun c:-aaa()
(command "-text" (getstring) "" "" (getstring))
)
-------------------

VBA程序中模块代码如下：
-------------------
Sub A()
UserForm1.Show
With ThisDrawing.Utility
      UserForm1.TextBox1.Text = .GetString(0)
      UserForm1.TextBox2.Text = .GetString(0)
      UserForm1.TextBox3.Text = .GetString(0)
End With
End Sub
-------------------

用户窗体代码如下：
--------------------
Private Sub CommandButton1_Click()
SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
Me.Hide
End Sub
--------------------

[ 本帖最后由 woaishuijia 于 2008-8-21 09:37 编辑 ]

		自动登录	找回密码
密码			注册

通知

[讨论] 如何在LSP中调用VBA作出的对话框?

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

这样算不算？

评分

评分