如何在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()
( g6 o, s+ C0 s* c" f1 J) V(command "-vbarun" "a")
)
+ U, t' V: T8 s6 Z(defun c:-aaa()
! m9 n: x. S) A/ ]2 V2 Z1 u(command "-text" (getstring) "" "" (getstring))
7 [7 Y0 p+ F, Z)
8 I9 U! p% J  I+ O) W' j-------------------
* a; r3 ]$ n/ S; o' wVBA程序中代码如下：
-------------------
5 `/ _7 F' s3 x  }5 ~( zSub A()
    UserForm1.Show
% ]* L+ l. o* W2 C0 {8 T% qEnd Sub
-------------------
用户窗体名为UserForm1。其中三个文本框由左至右、由上至下分别名为textbox1、textbox2、textbox3，按钮名为CommandButton1。见图

1 W8 Y8 p1 Z7 d0 a7 \
代码如下：
/ p' m' T5 M: G6 M8 T& u-------------------
& g( l" h9 R: xPrivate Sub CommandButton1_Click()
/ T8 o+ c$ P1 E8 {$ u7 Z' T% ?! i7 v    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
/ {0 s) O  N* f6 U    Me.Hide
End Sub
+ M0 k+ n9 q/ n- e" P-------------------
附件为dwg文件2004格式，内嵌VBA程序。
- ~4 x% c( ^4 ]  k/ Y5 y
[ 本帖最后由 woaishuijia 于 2008-8-20 11:34 编辑 ]

sealive_leafage

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

woaishuijia

也可以用发送键盘命令的方式传递参数
比如LSP程序：
---------------------------------------
* z% P; W  y* m1 \7 P- c4 o(defun c:aaa()
/ Z: `* _# X8 L(command "-vbarun" "a" "AAA" )
, y. v! ]8 W# p$ r0 ?5 K; h4 t" b) _)
---------------------------------------

VBA模块代码：
( E' S* |2 F, C! V- N0 _---------------------------------------
$ U% L  S5 Q/ h; ~5 z  gSub A()
    If ThisDrawing.Utility.GetString(0) = "AAA" Then UserForm1.Show
End Sub
---------------------------------------

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

# j- m! O* w6 m2 g; J# V& f' S[ 本帖最后由 woaishuijia 于 2008-8-21 08:46 编辑 ]

woaishuijia

把3楼的代码扩充一下，应该算是双向传递吧？
  \  b  V+ @& b" d5 blsp程序中代码如下：
-------------------
(defun c:aaa()
(command "-vbarun" "a" "4" "5" "AAAAAAAAAAAAAAAA" )
)
(defun c:-aaa()
, x7 L: H" V/ T3 o, ~- e(command "-text" (getstring) "" "" (getstring))
. }% M" Y5 S$ r3 G9 V7 r3 B)
-------------------
, x; [) ?, _4 F
VBA程序中模块代码如下：
-------------------
Sub A()
) F+ f4 H( s7 @1 R3 a2 N* ?    UserForm1.Show
+ H& j: b& N8 h    With ThisDrawing.Utility
        UserForm1.TextBox1.Text = .GetString(0)
* w7 e8 D! L- j7 j& v: t8 x+ l        UserForm1.TextBox2.Text = .GetString(0)
6 O$ H* D. g" n        UserForm1.TextBox3.Text = .GetString(0)
    End With
! `+ O: n4 e. F7 m( \7 DEnd Sub
-------------------
+ }2 l* o$ `( W# R, Z
0 @0 v& K, t% q- [' C用户窗体代码如下：
--------------------
( K7 C* }" M4 _Private Sub CommandButton1_Click()
    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
    Me.Hide
( Y% z; S9 r/ b$ p) C. i! ?% pEnd Sub
--------------------
. ^4 d8 p0 O& s) o
/ f: r/ @8 Y+ z6 O# `8 d2 H1 Z[ 本帖最后由 woaishuijia 于 2008-8-21 09:37 编辑 ]