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

maoyangmy

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

sealive_leafage

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

woaishuijia

lsp程序中代码如下：
2 `$ T) f2 `1 E& U-------------------
(defun c:aaa()
(command "-vbarun" "a")
)
( {8 `: J& u3 }(defun c:-aaa()
(command "-text" (getstring) "" "" (getstring))
" ~, K6 V% n% s" V5 J$ x( I" J)
-------------------
# W" q$ ]0 V- U! iVBA程序中代码如下：
/ G$ v" W( c$ \3 w5 I1 I( A: t-------------------
Sub A()
    UserForm1.Show
End Sub
-------------------
' u/ ~/ }( O* c用户窗体名为UserForm1。其中三个文本框由左至右、由上至下分别名为textbox1、textbox2、textbox3，按钮名为CommandButton1。见图

. ]. X3 P& b0 `7 k/ o3 C" Q. B4 W
代码如下：
7 K. k/ v, U6 p! l4 G4 T-------------------
Private Sub CommandButton1_Click()
2 O+ N* o! n) b+ W2 M: R    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
    Me.Hide
End Sub
  ]: d% j7 [/ o  c; l7 x( u-------------------
% \& x& i+ v  |* X  }% E8 t0 c. h2 u附件为dwg文件2004格式，内嵌VBA程序。
4 ^+ G; {7 ]2 l7 P# [0 S
+ n- Q  A. C* w1 n: P! Q[ 本帖最后由 woaishuijia 于 2008-8-20 11:34 编辑 ]

sealive_leafage

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

woaishuijia

也可以用发送键盘命令的方式传递参数
比如LSP程序：
1 S1 x6 ]! Y' y; x5 `7 B5 w/ k---------------------------------------
(defun c:aaa()
; ?, J' g% h/ w; e3 U, I(command "-vbarun" "a" "AAA" )
0 T2 T' q  y" Z% I$ A)
---------------------------------------

5 `8 V2 m0 x7 M! C: ~  }VBA模块代码：
---------------------------------------
Sub A()
; ^3 T" Y6 ^1 N% ^8 z5 T    If ThisDrawing.Utility.GetString(0) = "AAA" Then UserForm1.Show
End Sub
. @* t7 }+ [( q---------------------------------------
/ d: c$ D! X  a+ x6 n
7 Q* H- z; \1 ?另外我想，用读写文本文件的方式也应该可以传递参数。我对LISP了解不多，不知可否使用注册表？如果可以应该也是一种方法。
5 A% o# M- A! o8 i& A' `5 S
9 P- F6 T5 d+ p" `' }/ G5 ^[ 本帖最后由 woaishuijia 于 2008-8-21 08:46 编辑 ]

woaishuijia

把3楼的代码扩充一下，应该算是双向传递吧？
lsp程序中代码如下：
-------------------
(defun c:aaa()
(command "-vbarun" "a" "4" "5" "AAAAAAAAAAAAAAAA" )
% L5 p' i4 v( z)
6 ~( E% x1 n( U7 P6 Z8 W$ j- x(defun c:-aaa()
: M. ?! i0 n# e6 X8 N  T(command "-text" (getstring) "" "" (getstring))
)
-------------------

VBA程序中模块代码如下：
' y/ w: {6 [6 @6 {: C7 @. m-------------------
Sub A()
    UserForm1.Show
$ b* K4 W( s( |, p8 G7 |$ l1 `    With ThisDrawing.Utility
        UserForm1.TextBox1.Text = .GetString(0)
        UserForm1.TextBox2.Text = .GetString(0)
        UserForm1.TextBox3.Text = .GetString(0)
    End With
6 ?, @/ I6 q2 h- l2 @& O1 X: LEnd Sub
-------------------

用户窗体代码如下：
--------------------
Private Sub CommandButton1_Click()
    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
    Me.Hide
End Sub
--------------------
) N- L; O) s" x1 e; n0 ?0 `+ t
, g$ F  p$ i. s[ 本帖最后由 woaishuijia 于 2008-8-21 09:37 编辑 ]