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

maoyangmy

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

sealive_leafage

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

woaishuijia

lsp程序中代码如下：
$ E6 c6 m4 s: \0 M/ ?-------------------
7 |. F3 @' W( k; u# X(defun c:aaa()
(command "-vbarun" "a")
$ u+ v9 x, ?# J7 [9 w( R)
(defun c:-aaa()
# E, ?7 W; H' j) T' M- f(command "-text" (getstring) "" "" (getstring))
)
8 |' \' b0 y; B* o4 Q7 O-------------------
1 y$ ]9 }( ]8 l8 [1 O& s2 v: VVBA程序中代码如下：
* {% ~" h# [: c7 g" E; w-------------------
9 g3 D$ ]$ C  l3 u7 dSub A()
    UserForm1.Show
End Sub
7 j+ l7 h& I9 H& M" y, h-------------------
用户窗体名为UserForm1。其中三个文本框由左至右、由上至下分别名为textbox1、textbox2、textbox3，按钮名为CommandButton1。见图


代码如下：
-------------------
# [+ d! g/ M2 J7 P7 r7 S7 d7 M( `Private Sub CommandButton1_Click()
9 M+ B3 `/ R* r, E: g' j    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
- ^* I1 u# U; z5 m2 ]0 F( t: @    Me.Hide
( B! W" O. c* H$ r8 pEnd Sub
/ Y+ k7 G8 G' T-------------------
附件为dwg文件2004格式，内嵌VBA程序。

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

sealive_leafage

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

woaishuijia

也可以用发送键盘命令的方式传递参数
. t% W1 N3 C. N6 R5 O1 S5 ~9 h& i比如LSP程序：
---------------------------------------
(defun c:aaa()
(command "-vbarun" "a" "AAA" )
)
---------------------------------------

7 P; E3 r, X8 p1 F' f$ ^VBA模块代码：
4 p! a$ a5 e8 D9 `---------------------------------------
Sub A()
    If ThisDrawing.Utility.GetString(0) = "AAA" Then UserForm1.Show
End Sub
---------------------------------------
+ A% D# ^, k1 |* K! e
' _6 T3 H# Q, |( d& M$ Z( [0 K# Y8 r另外我想，用读写文本文件的方式也应该可以传递参数。我对LISP了解不多，不知可否使用注册表？如果可以应该也是一种方法。
7 e/ D" x" N  W! ]( z4 C
3 o7 v/ e; K& v! \* f[ 本帖最后由 woaishuijia 于 2008-8-21 08:46 编辑 ]

woaishuijia

把3楼的代码扩充一下，应该算是双向传递吧？
lsp程序中代码如下：
-------------------
6 l! q. D/ a1 K6 X( ?+ n5 o8 A(defun c:aaa()
(command "-vbarun" "a" "4" "5" "AAAAAAAAAAAAAAAA" )
/ H5 n; I7 ^( E, p$ R9 `)
(defun c:-aaa()
(command "-text" (getstring) "" "" (getstring))
)
-------------------
" Q1 z( G; c2 T5 z. [
VBA程序中模块代码如下：
-------------------
Sub A()
# s, h  A* s4 G    UserForm1.Show
    With ThisDrawing.Utility
        UserForm1.TextBox1.Text = .GetString(0)
        UserForm1.TextBox2.Text = .GetString(0)
" P: ]" [0 x9 f        UserForm1.TextBox3.Text = .GetString(0)
% O: E4 J& H' R+ z! Q    End With
End Sub
-------------------

5 Y* m% L0 J- i: @用户窗体代码如下：
% N" l3 r5 S+ }9 j$ @* ~( [" q--------------------
& k, m4 I  f; ], {) e9 cPrivate Sub CommandButton1_Click()
6 n  }( }; ]' N( v- ^6 K    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
    Me.Hide
End Sub
--------------------

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