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

maoyangmy

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

sealive_leafage

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

woaishuijia

lsp程序中代码如下：
-------------------
& `9 \7 z3 h" |2 @9 y& G8 x/ w(defun c:aaa()
(command "-vbarun" "a")
( n2 H- b5 V& y8 q)
(defun c:-aaa()
(command "-text" (getstring) "" "" (getstring))
)
-------------------
VBA程序中代码如下：
-------------------
& ~# v: ?8 G: BSub A()
7 ~5 c- l4 T* G7 ]- w: G4 J    UserForm1.Show
End Sub
-------------------
用户窗体名为UserForm1。其中三个文本框由左至右、由上至下分别名为textbox1、textbox2、textbox3，按钮名为CommandButton1。见图
3 g$ T3 H" Q! X( N: R( `* Q
6 e  B$ @/ H. f  R: \8 P! {- Z
代码如下：
-------------------
Private Sub CommandButton1_Click()
2 |; \: r% a0 z$ M' j- j9 p    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
    Me.Hide
End Sub
: R- U  p9 [7 D-------------------
附件为dwg文件2004格式，内嵌VBA程序。
; N1 ?4 w/ ]( |5 y4 H
[ 本帖最后由 woaishuijia 于 2008-8-20 11:34 编辑 ]

sealive_leafage

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

woaishuijia

也可以用发送键盘命令的方式传递参数
) r& p! A. V- R* ^4 ]比如LSP程序：
---------------------------------------
(defun c:aaa()
(command "-vbarun" "a" "AAA" )
)
---------------------------------------

VBA模块代码：
9 `" x7 [( r7 N7 p. Q, D/ [---------------------------------------
Sub A()
) G4 v! c% A# Y4 ]9 S/ z- j    If ThisDrawing.Utility.GetString(0) = "AAA" Then UserForm1.Show
9 D1 F/ j3 [8 P/ W6 N- f, A- tEnd Sub
---------------------------------------
5 G1 Y9 [0 `# T$ @
另外我想，用读写文本文件的方式也应该可以传递参数。我对LISP了解不多，不知可否使用注册表？如果可以应该也是一种方法。

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

woaishuijia

把3楼的代码扩充一下，应该算是双向传递吧？
  y7 N/ ?- q" j: y+ N7 {  wlsp程序中代码如下：
1 R8 G3 P' ]3 h. K-------------------
(defun c:aaa()
( Q$ n* o5 |' l9 \; K(command "-vbarun" "a" "4" "5" "AAAAAAAAAAAAAAAA" )
& s# K) H# B" Z; u1 z3 i' ~0 R)
(defun c:-aaa()
! s3 Q1 i+ B7 {/ Q) c, K(command "-text" (getstring) "" "" (getstring))
)
-------------------
# v- S2 X4 u$ u* M' k0 U
8 j* e( h: y5 a: VVBA程序中模块代码如下：
. H* l, V' N/ ^& L- O7 F& C7 `-------------------
: l4 [+ T. W# [2 m+ {Sub A()
    UserForm1.Show
    With ThisDrawing.Utility
0 R5 f& u! `8 F# N        UserForm1.TextBox1.Text = .GetString(0)
5 H0 g3 g% d- K* j. g        UserForm1.TextBox2.Text = .GetString(0)
        UserForm1.TextBox3.Text = .GetString(0)
    End With
5 w3 N5 h7 ?9 O, G6 ~4 Z5 e6 Z1 VEnd Sub
1 o  I: @/ u& r( S* Y( \-------------------

用户窗体代码如下：
* Z1 w6 k9 I9 o0 Q; w: ]4 h--------------------
Private Sub CommandButton1_Click()
    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
" i- Q& z  W# _9 p1 u% J! H    Me.Hide
6 R( K1 @$ T5 ^. U$ rEnd Sub
" s1 {2 L, @* P9 V+ e! H--------------------

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