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

maoyangmy

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

sealive_leafage

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

woaishuijia

lsp程序中代码如下：
-------------------
(defun c:aaa()
0 M, A8 Y! z) h% d# X* n(command "-vbarun" "a")
2 k+ G8 H  Y. q1 z)
(defun c:-aaa()
(command "-text" (getstring) "" "" (getstring))
)
-------------------
VBA程序中代码如下：
-------------------
Sub A()
    UserForm1.Show
End Sub
$ k6 l* S+ P: j5 \7 F-------------------
) O5 W5 `" _4 v. i/ h! n8 v% f- v, Z1 C用户窗体名为UserForm1。其中三个文本框由左至右、由上至下分别名为textbox1、textbox2、textbox3，按钮名为CommandButton1。见图
2 e/ Z3 q+ u4 f4 F
' y. Y. }( n& v$ w
代码如下：
6 u( x) F( X( M4 J, K* N* T& M-------------------
Private Sub CommandButton1_Click()
: p5 Y% z8 B" C9 S% }% f    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
& Z$ C+ h( i1 Q    Me.Hide
7 n8 `( p" |6 IEnd Sub
( ]: R4 `( C. _8 Y3 e6 ?-------------------
附件为dwg文件2004格式，内嵌VBA程序。
7 j7 _& E$ r3 u. B% H
[ 本帖最后由 woaishuijia 于 2008-8-20 11:34 编辑 ]

sealive_leafage

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

woaishuijia

也可以用发送键盘命令的方式传递参数
) j$ T( b; x7 b- V8 I比如LSP程序：
( G3 Q6 i, a, k" a5 a" c+ Q---------------------------------------
(defun c:aaa()
(command "-vbarun" "a" "AAA" )
& b0 z4 B+ F( ?)
) H* R8 W( X8 k: a- z---------------------------------------

7 t4 y$ W. p& AVBA模块代码：
5 E& e8 t0 l. e( S& ?( S1 U7 ?---------------------------------------
Sub A()
  q  Y7 D% {7 {0 C# Q1 Q4 {1 X. V    If ThisDrawing.Utility.GetString(0) = "AAA" Then UserForm1.Show
8 N- o% l& e! w% L& i' DEnd Sub
' k. F9 b7 S6 C# |7 ], n---------------------------------------
: ~! l2 V1 W6 S
( K3 p' G" ]5 o. m$ `- x* A另外我想，用读写文本文件的方式也应该可以传递参数。我对LISP了解不多，不知可否使用注册表？如果可以应该也是一种方法。
6 t2 D  m9 k4 s6 z  s
) n' k( O% h7 K& l# ^[ 本帖最后由 woaishuijia 于 2008-8-21 08:46 编辑 ]

woaishuijia

把3楼的代码扩充一下，应该算是双向传递吧？
lsp程序中代码如下：
-------------------
1 N) v9 c( E' J4 x* v6 C(defun c:aaa()
3 M- E0 d4 d, d" ^4 g(command "-vbarun" "a" "4" "5" "AAAAAAAAAAAAAAAA" )
)
. f( q1 \$ s$ ~. y(defun c:-aaa()
(command "-text" (getstring) "" "" (getstring))
3 Z; d6 [6 |, u. G7 K7 @: e)
3 R, B7 A6 C8 w0 A' P- \* a" y-------------------
2 Z5 w; }. V1 ]. d7 k
: N: m0 K# ]. ^) {. D, z. rVBA程序中模块代码如下：
-------------------
Sub A()
    UserForm1.Show
    With ThisDrawing.Utility
        UserForm1.TextBox1.Text = .GetString(0)
        UserForm1.TextBox2.Text = .GetString(0)
2 ]. L3 h! x5 j; ?6 U0 H/ k1 k" B        UserForm1.TextBox3.Text = .GetString(0)
    End With
End Sub
-------------------
. z" c- y* [& }# D
( U8 z+ |' z  r) `1 e用户窗体代码如下：
/ m5 I/ y' I0 |--------------------
! H2 t5 g, C, KPrivate Sub CommandButton1_Click()
    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
' \# V1 u  [) b8 C( _4 Z    Me.Hide
End Sub
--------------------

7 I; U# C' h5 t( Z* C[ 本帖最后由 woaishuijia 于 2008-8-21 09:37 编辑 ]