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

maoyangmy

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

sealive_leafage

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

woaishuijia

lsp程序中代码如下：
. a. Z% X6 s9 H. H' x-------------------
% S3 f$ x, o% A1 p7 x(defun c:aaa()
(command "-vbarun" "a")
)
( I  f  S1 T9 y! g6 y(defun c:-aaa()
(command "-text" (getstring) "" "" (getstring))
- i/ R) R2 _+ v* A" M5 A)
-------------------
VBA程序中代码如下：
7 l7 c/ V7 I7 g-------------------
Sub A()
    UserForm1.Show
* R2 r2 O) ^1 X; c9 c- G3 \End Sub
8 K) t( a3 |7 H" `-------------------
用户窗体名为UserForm1。其中三个文本框由左至右、由上至下分别名为textbox1、textbox2、textbox3，按钮名为CommandButton1。见图
1 [" W" F  i8 h; H- ]' t
; n% _0 l% S( _; y
' R( D3 I9 ]: W8 w3 a0 L代码如下：
. M& [: z  |0 n$ \-------------------
Private Sub CommandButton1_Click()
' k* c  Q; W$ G; l    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
    Me.Hide
2 g9 [5 [& P# a9 @% M) t; q2 ?End Sub
" Q! A4 Q, u# n0 g& `-------------------
附件为dwg文件2004格式，内嵌VBA程序。
- N' z  w0 I- }! ]9 k4 Q
. C7 q- w  i7 Z7 |[ 本帖最后由 woaishuijia 于 2008-8-20 11:34 编辑 ]

sealive_leafage

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

woaishuijia

也可以用发送键盘命令的方式传递参数
比如LSP程序：
---------------------------------------
9 ], W% ~$ n8 f" Y$ f9 P(defun c:aaa()
(command "-vbarun" "a" "AAA" )
; ?5 g. X# y1 m8 e: Q1 {)
* Y2 ]5 n4 T; b5 [, b2 q---------------------------------------
; c1 g+ Z4 h8 q) h& t$ f8 C; [
VBA模块代码：
---------------------------------------
; C9 x% S; n6 OSub A()
    If ThisDrawing.Utility.GetString(0) = "AAA" Then UserForm1.Show
End Sub
  f+ w) e& f) c0 i& q$ P---------------------------------------
* E$ f' i5 P" _& Z
另外我想，用读写文本文件的方式也应该可以传递参数。我对LISP了解不多，不知可否使用注册表？如果可以应该也是一种方法。
4 P# ~6 }8 ^5 q8 j: ~% s, t
2 h  S1 Z9 {0 W6 y[ 本帖最后由 woaishuijia 于 2008-8-21 08:46 编辑 ]

woaishuijia

把3楼的代码扩充一下，应该算是双向传递吧？
# x5 _0 E1 W6 E- Y# llsp程序中代码如下：
& a( j+ z2 U5 p. z-------------------
7 [) W9 ^( L6 V6 s+ a(defun c:aaa()
(command "-vbarun" "a" "4" "5" "AAAAAAAAAAAAAAAA" )
% S8 d: [9 g( ^( S. j3 i, m3 a)
(defun c:-aaa()
(command "-text" (getstring) "" "" (getstring))
3 Z$ [9 t0 L9 |' ?7 Q' n)
-------------------
4 x+ d6 O8 p8 E  i9 F
VBA程序中模块代码如下：
& K* I. I) w" Y3 x, J-------------------
" v4 }. [$ f  ESub A()
' T, L8 T6 q. R: j8 e/ P    UserForm1.Show
    With ThisDrawing.Utility
5 ^6 w9 O! k$ m& Y  i' d        UserForm1.TextBox1.Text = .GetString(0)
8 B1 v0 R* n9 p( `/ \        UserForm1.TextBox2.Text = .GetString(0)
; [( z8 D2 m: A0 E        UserForm1.TextBox3.Text = .GetString(0)
; z+ e* `  Q% q) ]8 J/ ?    End With
End Sub
-------------------
1 {/ Y0 m9 {" P& M! N" d; D
用户窗体代码如下：
--------------------
Private Sub CommandButton1_Click()
) r' J! w/ m' W7 M6 R    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
) _$ _2 W) b1 E. A2 }$ D" C    Me.Hide
! j2 U( W9 o* A. T1 g7 v% C$ lEnd Sub
--------------------

: V4 ^: W  Q/ K- e' @[ 本帖最后由 woaishuijia 于 2008-8-21 09:37 编辑 ]