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

maoyangmy

如何在LSP中调用VBA作出的对话框?
; c* I( f+ [4 \6 F7 F: bLSP程序在对话框的编写方面依赖于DCL语言, 非常繁琐且不方便, 不如VBA来的快——所见即所得， 能不能在LSP中将VBA编辑好的对话框调用， 并返回每个控件的参数呢？

sealive_leafage

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

woaishuijia

lsp程序中代码如下：
, e$ X( e& s" L) t  w) G9 @-------------------
$ @% Q* j6 }; r+ Q) w2 j7 k(defun c:aaa()
, l1 v! C" P8 s(command "-vbarun" "a")
)
( u! H- ~0 Z0 [( d9 |1 N+ O6 m  ~(defun c:-aaa()
7 |% A7 W* z% o) w9 X(command "-text" (getstring) "" "" (getstring))
)
2 }! {2 J7 a* M1 S-------------------
% @' ?7 Q* C8 tVBA程序中代码如下：
-------------------
8 p9 P5 j' K6 H& N, RSub A()
    UserForm1.Show
' M+ x) K! Y% o! ]# d+ C  _& Q2 d/ [# tEnd Sub
  C" R# U2 I) K0 `; i& g-------------------
& N2 u9 u* K  a) c8 y用户窗体名为UserForm1。其中三个文本框由左至右、由上至下分别名为textbox1、textbox2、textbox3，按钮名为CommandButton1。见图
. |3 q, U- \1 m2 s* j
' ?- `/ D0 T8 Y' X% g& w0 u
代码如下：
-------------------
1 S) ^' E/ ]4 Z1 D5 X5 EPrivate Sub CommandButton1_Click()
& i* e! ^) }# [# K    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
' H9 |5 I6 ~9 W4 y6 W    Me.Hide
End Sub
( Y+ c; [3 r/ j% \4 V6 f-------------------
! L6 b% m5 [2 s1 e, y5 ^/ O附件为dwg文件2004格式，内嵌VBA程序。

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

sealive_leafage

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

woaishuijia

也可以用发送键盘命令的方式传递参数
比如LSP程序：
7 F/ f8 l$ C9 R3 p0 P0 c! z2 \) |---------------------------------------
7 o; T! H  X" q  I1 i(defun c:aaa()
(command "-vbarun" "a" "AAA" )
5 B" w/ D8 [& r: S: F6 h% p)
---------------------------------------

+ P. V& {+ q) w: z, Y: g3 qVBA模块代码：
1 L: R/ D0 k+ g2 L+ i---------------------------------------
Sub A()
    If ThisDrawing.Utility.GetString(0) = "AAA" Then UserForm1.Show
End Sub
0 O$ p' G* p3 ^---------------------------------------

另外我想，用读写文本文件的方式也应该可以传递参数。我对LISP了解不多，不知可否使用注册表？如果可以应该也是一种方法。

% e* V+ |1 ~* f0 ?* l3 y[ 本帖最后由 woaishuijia 于 2008-8-21 08:46 编辑 ]

woaishuijia

把3楼的代码扩充一下，应该算是双向传递吧？
lsp程序中代码如下：
0 B2 g  n+ x1 b3 I-------------------
(defun c:aaa()
( N3 H: L9 L1 ~5 e5 r$ V& ]0 X(command "-vbarun" "a" "4" "5" "AAAAAAAAAAAAAAAA" )
)
# A( x" T1 I- e8 j* Q5 M: d2 {(defun c:-aaa()
(command "-text" (getstring) "" "" (getstring))
) M7 z+ z' [$ n)
& w7 f2 L. N  i' U1 q1 s' B-------------------

4 U; }0 T7 f) p4 o% dVBA程序中模块代码如下：
-------------------
' z1 `" e8 u" `9 g7 J& ?: q5 ASub A()
    UserForm1.Show
" ~  ^9 L" e" R7 r# `9 [    With ThisDrawing.Utility
- V: q, N, L6 K$ A8 y        UserForm1.TextBox1.Text = .GetString(0)
. d# S  D  c( ]% V+ Y+ `6 o1 f' t        UserForm1.TextBox2.Text = .GetString(0)
6 T; @. G( d/ N8 j8 ~        UserForm1.TextBox3.Text = .GetString(0)
# v; d( p* O$ C0 ~4 S( k    End With
! g3 S% {9 O! G% yEnd Sub
-------------------
& w6 f. U& R6 E4 E! b
用户窗体代码如下：
--------------------
4 ?$ n) `! n+ C/ N$ E4 r5 b* f/ F. v: @Private Sub CommandButton1_Click()
+ }$ y: W/ }" b; W; ^& R$ t0 o5 R. d    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
- t2 ?/ k/ ]2 h2 I6 M    Me.Hide
/ {8 ]- K6 w- C0 yEnd Sub
9 |3 M9 p6 h  C, v) f6 o) |--------------------
; T0 o& I8 J. |  w
[ 本帖最后由 woaishuijia 于 2008-8-21 09:37 编辑 ]