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

maoyangmy

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

sealive_leafage

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

woaishuijia

lsp程序中代码如下：
3 b# d" F  C0 a3 U) b-------------------
5 z3 l" {6 q: a0 E: S& y5 w(defun c:aaa()
( M1 M; y  h" e# n+ z/ p(command "-vbarun" "a")
; V# i; h, m8 Z6 ~)
$ R8 t: }6 K* @* H0 e. I3 _(defun c:-aaa()
1 \7 U% g. Z! K  x# F  K(command "-text" (getstring) "" "" (getstring))
1 Z# H1 ~& ]9 j$ {9 ]! Y)
-------------------
: q. c; A% V0 FVBA程序中代码如下：
* U2 V$ X9 o& Z$ B5 J# f: C-------------------
Sub A()
    UserForm1.Show
End Sub
-------------------
用户窗体名为UserForm1。其中三个文本框由左至右、由上至下分别名为textbox1、textbox2、textbox3，按钮名为CommandButton1。见图
. N* O* P- b# F5 m% n9 E7 L  I1 b

% J/ D  j3 E4 N% `1 I4 B8 q代码如下：
/ ~* x; `* ], |) p" Z, b; c8 H-------------------
" W+ n% N$ H, |$ m6 X) |  v5 V0 BPrivate Sub CommandButton1_Click()
) K1 J/ ?2 b- y9 P8 N4 y; [, I    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
6 i. h0 r5 x$ c8 b0 Z9 v    Me.Hide
End Sub
-------------------
6 [9 c0 ?3 l5 Z& ^/ N; I# j5 v附件为dwg文件2004格式，内嵌VBA程序。

& v3 l+ G. V4 S' F/ T5 j[ 本帖最后由 woaishuijia 于 2008-8-20 11:34 编辑 ]

sealive_leafage

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

woaishuijia

也可以用发送键盘命令的方式传递参数
比如LSP程序：
---------------------------------------
7 u, f+ U8 O5 F  g9 }: V(defun c:aaa()
3 s, F+ g% U- Y* r6 C* H9 m(command "-vbarun" "a" "AAA" )
)
$ I4 A0 M6 e+ F. \& V---------------------------------------

VBA模块代码：
/ }- j4 q, @+ [( a---------------------------------------
Sub A()
    If ThisDrawing.Utility.GetString(0) = "AAA" Then UserForm1.Show
End Sub
! f6 S/ f* X5 f( h---------------------------------------
) q! j" K8 {) _' D" O. J6 h" K9 A
另外我想，用读写文本文件的方式也应该可以传递参数。我对LISP了解不多，不知可否使用注册表？如果可以应该也是一种方法。
( w! H+ Q' M+ ?4 N& ~
1 h( v. c  \; {0 `5 ^[ 本帖最后由 woaishuijia 于 2008-8-21 08:46 编辑 ]

woaishuijia

把3楼的代码扩充一下，应该算是双向传递吧？
lsp程序中代码如下：
-------------------
(defun c:aaa()
(command "-vbarun" "a" "4" "5" "AAAAAAAAAAAAAAAA" )
$ k( P2 X6 G0 l1 J" I+ j' o% {)
(defun c:-aaa()
(command "-text" (getstring) "" "" (getstring))
)
. ]. [2 e* P1 R' }-------------------

* j( T6 V4 j1 ^VBA程序中模块代码如下：
' d& k2 D0 X0 C3 l" _6 G8 J-------------------
7 I6 D0 p  i- _) H4 g) {" M0 h% DSub A()
. p4 u$ T6 x3 r! |2 _$ f9 u    UserForm1.Show
/ _3 \8 d- g  h/ Z/ a9 a0 x# e    With ThisDrawing.Utility
/ v1 h3 ^% b' I* w) C$ @        UserForm1.TextBox1.Text = .GetString(0)
        UserForm1.TextBox2.Text = .GetString(0)
        UserForm1.TextBox3.Text = .GetString(0)
: p( F, {; U; o/ f/ J    End With
( o$ [. A% \) c+ X* g2 n( }End Sub
2 R. w' M  |& n! u9 x# `2 g) Y& p-------------------
7 K( y' D6 C. B+ y
用户窗体代码如下：
: |3 V- }0 O& O; H' ^6 Q  |! k9 d# s) H--------------------
9 B" i  x% j7 q7 n2 |1 m7 EPrivate Sub CommandButton1_Click()
    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
    Me.Hide
7 w; Y9 G6 G) R& O0 h+ i  ?- wEnd Sub
--------------------

  w; y. {9 m$ y: o7 |7 q[ 本帖最后由 woaishuijia 于 2008-8-21 09:37 编辑 ]