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

maoyangmy

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

sealive_leafage

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

woaishuijia

lsp程序中代码如下：
6 h7 l- U; {+ S3 k-------------------
% {' A5 d) x4 _5 |0 {% w/ L(defun c:aaa()
7 ^. a& i" F* o' L2 r' h(command "-vbarun" "a")
  D2 _' `# r) t: m) n. O3 ^)
(defun c:-aaa()
( u! l/ N3 W/ j(command "-text" (getstring) "" "" (getstring))
6 |: U, ]! b2 G: t)
6 ^4 c* K& Y  c8 e-------------------
% N. A' d! D$ n7 W$ g. a3 kVBA程序中代码如下：
- ?0 h" B  i- S) l% m2 x; d-------------------
% d2 O. ^( O* \1 p6 \( S* USub A()
5 S2 L& [# i7 e& F+ B3 ]6 H, f    UserForm1.Show
) c6 G  j1 `8 x8 z: H6 BEnd Sub
& c! n" v9 q  I( X+ ^$ i$ ~! m& x-------------------
用户窗体名为UserForm1。其中三个文本框由左至右、由上至下分别名为textbox1、textbox2、textbox3，按钮名为CommandButton1。见图

* ]2 o# S4 G& z  C* z; g" M6 ?, u
代码如下：
-------------------
Private Sub CommandButton1_Click()
( `& w) H* E+ A: Q6 J" t. P    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
  v) X( ^3 V/ n) [6 M9 R$ s    Me.Hide
End Sub
1 b+ m- A, t+ s, E6 ^# F% ^2 [& ~-------------------
8 l0 u' k+ U2 n4 ^) \( e; p附件为dwg文件2004格式，内嵌VBA程序。

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

sealive_leafage

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

woaishuijia

也可以用发送键盘命令的方式传递参数
: S$ e) l8 ]/ g+ t比如LSP程序：
---------------------------------------
( |# A' E% g8 T- I! _. W' q3 W(defun c:aaa()
3 a% j, c7 X& b8 a6 k5 J& Q1 N(command "-vbarun" "a" "AAA" )
. L: D' Q; p  `6 J3 l)
---------------------------------------

VBA模块代码：
---------------------------------------
3 X8 D: k0 A9 JSub A()
    If ThisDrawing.Utility.GetString(0) = "AAA" Then UserForm1.Show
End Sub
---------------------------------------
6 Z" @, i5 l2 w1 _) D
8 ^/ d& U- {3 y6 P+ i. R. Q8 ?另外我想，用读写文本文件的方式也应该可以传递参数。我对LISP了解不多，不知可否使用注册表？如果可以应该也是一种方法。
" _: w) [' w9 i! l1 H" X- m, y
- ]4 T- O; I" t8 |- ~1 \[ 本帖最后由 woaishuijia 于 2008-8-21 08:46 编辑 ]

woaishuijia

把3楼的代码扩充一下，应该算是双向传递吧？
lsp程序中代码如下：
-------------------
8 i" g: f" s! |0 \( N3 ^(defun c:aaa()
(command "-vbarun" "a" "4" "5" "AAAAAAAAAAAAAAAA" )
2 `" C) b/ _9 ?5 p9 s)
, Q1 g. f3 a2 `4 [(defun c:-aaa()
. u) M, \7 O, D(command "-text" (getstring) "" "" (getstring))
4 \0 d: W( c" P# v. X' b)
-------------------
; D1 g; s; y7 m2 g) h0 x
8 S0 h8 o: ]- e( ]( j$ GVBA程序中模块代码如下：
-------------------
Sub A()
    UserForm1.Show
    With ThisDrawing.Utility
4 E. q: |( ^2 X        UserForm1.TextBox1.Text = .GetString(0)
        UserForm1.TextBox2.Text = .GetString(0)
        UserForm1.TextBox3.Text = .GetString(0)
. I4 u+ k3 Q8 v, y, Q    End With
/ M! q' t4 j& Z9 g( z$ ~$ yEnd Sub
  d7 p/ i. }; Q0 x-------------------

5 R4 K+ Y3 O+ M7 B; Q! `2 C' P& L用户窗体代码如下：
& F$ }; \' y1 Y" Q--------------------
Private Sub CommandButton1_Click()
    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
    Me.Hide
# d, Y$ x& _9 x* Y( ^  ]End Sub
--------------------

+ o, [7 Z( V9 u8 \. `& S[ 本帖最后由 woaishuijia 于 2008-8-21 09:37 编辑 ]