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

maoyangmy

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

sealive_leafage

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

woaishuijia

lsp程序中代码如下：
-------------------
(defun c:aaa()
3 ?- T5 X. D* k+ \" o! k6 N(command "-vbarun" "a")
0 C4 l( D, ?: v)
. x- ?& g$ w' K" g# K, L/ |8 L(defun c:-aaa()
0 z8 C( J- s8 y8 a. o  ]9 H(command "-text" (getstring) "" "" (getstring))
)
+ ?0 q3 }% Y% I7 {9 R-------------------
VBA程序中代码如下：
) ?1 M& R+ |) C4 I-------------------
Sub A()
    UserForm1.Show
5 n. C7 r% n- ~! H" I. cEnd Sub
5 c/ r% ]) Z" Q- r6 X; I* b-------------------
3 C7 j' o- o+ Q& [( E7 o' t1 Y1 ?用户窗体名为UserForm1。其中三个文本框由左至右、由上至下分别名为textbox1、textbox2、textbox3，按钮名为CommandButton1。见图
6 e6 F$ W6 U" C9 b% N/ V: a, Z
" c2 i/ ]* p) J" R
代码如下：
-------------------
Private Sub CommandButton1_Click()
+ C6 R2 _+ y6 I/ d% w! F' f* z& O- @    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
  n) w/ }6 Y% q    Me.Hide
End Sub
-------------------
附件为dwg文件2004格式，内嵌VBA程序。
4 X6 {4 U' t( C5 u8 r3 _1 f
[ 本帖最后由 woaishuijia 于 2008-8-20 11:34 编辑 ]

sealive_leafage

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

woaishuijia

也可以用发送键盘命令的方式传递参数
比如LSP程序：
# Q' j/ `' H8 G4 f$ L/ Y---------------------------------------
; I- i" a. E3 m- W(defun c:aaa()
(command "-vbarun" "a" "AAA" )
)
' h$ Y- M' A) D4 c---------------------------------------
/ \% q+ p& s1 ~# M$ [8 M
VBA模块代码：
---------------------------------------
4 ?1 T9 M. S1 }) }4 BSub A()
    If ThisDrawing.Utility.GetString(0) = "AAA" Then UserForm1.Show
7 t# q2 k6 W# YEnd Sub
, L/ y6 C: d8 @$ L: P; C& C---------------------------------------
. G' I' i4 [5 {) w1 c/ i- Q
另外我想，用读写文本文件的方式也应该可以传递参数。我对LISP了解不多，不知可否使用注册表？如果可以应该也是一种方法。
0 s- ?/ N2 }  @0 m4 A
+ V8 q8 `7 ?, @& ~- u[ 本帖最后由 woaishuijia 于 2008-8-21 08:46 编辑 ]

woaishuijia

把3楼的代码扩充一下，应该算是双向传递吧？
lsp程序中代码如下：
-------------------
3 q& M! l2 H5 c% u5 L% {: e(defun c:aaa()
(command "-vbarun" "a" "4" "5" "AAAAAAAAAAAAAAAA" )
9 j' F0 s2 X- Q* ?; u2 o)
(defun c:-aaa()
8 v+ Z6 {' V4 J9 s8 D/ |(command "-text" (getstring) "" "" (getstring))
)
2 P% x" K6 y, ]6 ?-------------------

" V; H: w6 Z8 m6 h+ H/ JVBA程序中模块代码如下：
-------------------
( I" F8 A# j2 a+ s; G0 z# I! ~Sub A()
    UserForm1.Show
8 T' t9 R* [' }  ~, n    With ThisDrawing.Utility
        UserForm1.TextBox1.Text = .GetString(0)
        UserForm1.TextBox2.Text = .GetString(0)
0 f- K! A$ t) i. B8 d0 I        UserForm1.TextBox3.Text = .GetString(0)
    End With
4 |/ Q9 a4 N/ w8 KEnd Sub
-------------------

用户窗体代码如下：
/ @3 D1 S0 b& d5 @/ t) K) Y0 W--------------------
Private Sub CommandButton1_Click()
    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
# ]0 R5 H8 S" A    Me.Hide
% U' \2 k: y/ }End Sub
7 y' d8 t. O$ ~7 X8 X--------------------
; N% y9 @% y8 ]; v0 ?- F$ I
$ \- t" B) u6 L+ d0 `. Y[ 本帖最后由 woaishuijia 于 2008-8-21 09:37 编辑 ]