如何在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()
(command "-vbarun" "a")
)
(defun c:-aaa()
(command "-text" (getstring) "" "" (getstring))
9 [4 @* p. w/ I0 c$ D* o3 J, X)
-------------------
VBA程序中代码如下：
3 q* t7 G/ ~2 S: `-------------------
Sub A()
    UserForm1.Show
9 T8 f  U/ z% V- H  l5 rEnd Sub
( M5 A% Q7 U, }- W" ?9 U-------------------
8 A$ a( l/ i$ \# `用户窗体名为UserForm1。其中三个文本框由左至右、由上至下分别名为textbox1、textbox2、textbox3，按钮名为CommandButton1。见图

. H  E' @6 E& R1 L
8 G/ P, V! {# V代码如下：
% N8 H! n# u* i-------------------
Private Sub CommandButton1_Click()
% k9 ]& e- P! p/ o' U8 I    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
    Me.Hide
! A2 M; _, X5 R2 k3 h. NEnd Sub
0 r- T1 p* K: g+ n/ G  N1 P; D-------------------
+ K0 C: K- x. {5 q" U4 O% |附件为dwg文件2004格式，内嵌VBA程序。
5 n. q: @% a5 i& M7 _
  p5 l/ }: }4 h! t/ {% Y) h[ 本帖最后由 woaishuijia 于 2008-8-20 11:34 编辑 ]

sealive_leafage

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

woaishuijia

也可以用发送键盘命令的方式传递参数
比如LSP程序：
6 Y& Y7 q5 P6 v. S4 d---------------------------------------
(defun c:aaa()
$ r+ l' F/ d/ o+ q(command "-vbarun" "a" "AAA" )
7 \$ R4 Y7 b7 Q, [  a)
---------------------------------------

VBA模块代码：
+ k* Q% S. v% D! W0 ?---------------------------------------
" r$ V5 w7 I0 b1 m) c* H) r3 sSub A()
6 [- }! p$ K  @    If ThisDrawing.Utility.GetString(0) = "AAA" Then UserForm1.Show
End Sub
---------------------------------------
9 F1 J, t* d- b3 J; _, K
& U) B+ A! W2 B3 v: e" L7 Q& N( B另外我想，用读写文本文件的方式也应该可以传递参数。我对LISP了解不多，不知可否使用注册表？如果可以应该也是一种方法。
. Q9 o3 g) s+ g$ K
1 n- y6 v8 _' q1 m[ 本帖最后由 woaishuijia 于 2008-8-21 08:46 编辑 ]

woaishuijia

把3楼的代码扩充一下，应该算是双向传递吧？
lsp程序中代码如下：
-------------------
(defun c:aaa()
6 o2 q7 v+ W9 w' K6 y(command "-vbarun" "a" "4" "5" "AAAAAAAAAAAAAAAA" )
)
(defun c:-aaa()
% ]: ]2 F4 R2 ~+ y(command "-text" (getstring) "" "" (getstring))
1 N9 p* V7 b8 O; |)
-------------------

+ R, U* v" }% C& AVBA程序中模块代码如下：
, ?  {4 R1 f9 q9 E9 l-------------------
1 T3 B9 P! ?7 p, A  \7 @Sub A()
7 t, r" g% Z4 u3 H, S! s    UserForm1.Show
% ^; u0 l. d# k9 d7 |$ m    With ThisDrawing.Utility
        UserForm1.TextBox1.Text = .GetString(0)
        UserForm1.TextBox2.Text = .GetString(0)
. L7 p- S+ K( \" ~4 O0 C        UserForm1.TextBox3.Text = .GetString(0)
    End With
End Sub
9 m; h$ q1 `/ ?* @% Y7 Y-------------------
. _2 A0 [) F4 Z3 ]& ^2 r$ |
. G. q$ d. M& ]. i, q8 u用户窗体代码如下：
--------------------
3 q+ X  y+ @8 V% r" W6 aPrivate Sub CommandButton1_Click()
    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
    Me.Hide
End Sub
2 O. F, Q5 x7 l' }* Z& f8 |--------------------
6 r" u. p3 N* k* ~; [& H5 J% t
[ 本帖最后由 woaishuijia 于 2008-8-21 09:37 编辑 ]