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

maoyangmy

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

sealive_leafage

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

woaishuijia

lsp程序中代码如下：
-------------------
(defun c:aaa()
(command "-vbarun" "a")
3 s- K3 o  J& P! O1 S( Q)
/ F7 W( S9 m+ @% }- w, Y(defun c:-aaa()
0 X7 q: X$ j* `) A(command "-text" (getstring) "" "" (getstring))
)
0 J1 G" d  }0 [-------------------
+ h) `3 v$ P2 f  ]4 D( c* u* zVBA程序中代码如下：
- J5 [3 b3 a7 w2 I+ r-------------------
2 |  ?7 C4 v# _/ b  L, E4 q2 DSub A()
4 h7 y) }# ?2 c* R7 j: Q: S    UserForm1.Show
* }7 o0 f' I( V3 j9 kEnd Sub
- x+ f+ O) D3 }0 U. F1 p2 a-------------------
! n7 y+ l% s( t& j- H+ B  @% D用户窗体名为UserForm1。其中三个文本框由左至右、由上至下分别名为textbox1、textbox2、textbox3，按钮名为CommandButton1。见图
! {; V, ?/ {* ?0 S, I

代码如下：
, ~# Z0 z5 f3 }0 d-------------------
Private Sub CommandButton1_Click()
* b) c! L6 P# Q- u* ]* y    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
    Me.Hide
End Sub
-------------------
! M# `; c6 l" e附件为dwg文件2004格式，内嵌VBA程序。
4 m) w7 F; s6 e
[ 本帖最后由 woaishuijia 于 2008-8-20 11:34 编辑 ]

sealive_leafage

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

woaishuijia

也可以用发送键盘命令的方式传递参数
+ `; c( Q/ c* g/ H! |& H0 r比如LSP程序：
---------------------------------------
(defun c:aaa()
(command "-vbarun" "a" "AAA" )
( [) W( W1 f! s4 k" v6 q5 g)
---------------------------------------

VBA模块代码：
5 B* h: h- q/ L& u---------------------------------------
& b' W5 a/ o" n6 y8 w  K& XSub A()
    If ThisDrawing.Utility.GetString(0) = "AAA" Then UserForm1.Show
/ J# I7 p4 b0 V* \  OEnd Sub
) J$ M: M! Z: l2 b* b2 q---------------------------------------

2 J% X  j! X3 v& Z& h# G8 r另外我想，用读写文本文件的方式也应该可以传递参数。我对LISP了解不多，不知可否使用注册表？如果可以应该也是一种方法。
& k7 \" E3 D) r* u7 @4 F& S
[ 本帖最后由 woaishuijia 于 2008-8-21 08:46 编辑 ]

woaishuijia

把3楼的代码扩充一下，应该算是双向传递吧？
) J, J1 f3 N- P5 ~lsp程序中代码如下：
-------------------
% ]6 r0 L2 T2 C! b6 G(defun c:aaa()
; n) s/ m. t( p(command "-vbarun" "a" "4" "5" "AAAAAAAAAAAAAAAA" )
)
(defun c:-aaa()
(command "-text" (getstring) "" "" (getstring))
: j% z/ f. c* `$ z3 X' E)
-------------------
* n7 d' m. O# H" r  a
VBA程序中模块代码如下：
9 I/ J- e* r) o-------------------
$ n: n7 F2 M7 ^  M+ s$ HSub A()
    UserForm1.Show
# l* j  L3 ~, |* `/ m& R9 y* `    With ThisDrawing.Utility
# o; ^  x8 Q4 `        UserForm1.TextBox1.Text = .GetString(0)
, W* f+ n, w. h2 O9 G  ?        UserForm1.TextBox2.Text = .GetString(0)
        UserForm1.TextBox3.Text = .GetString(0)
4 H+ z$ o$ I/ M+ A+ i    End With
/ D8 h& L' n, L1 LEnd Sub
-------------------

用户窗体代码如下：
2 M( Z7 g( {- e- p; i4 U--------------------
( r! U4 T* r6 s. v% [9 C9 N2 G. LPrivate Sub CommandButton1_Click()
% W" s, b1 g' H9 o" R8 S/ }( I    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
' T5 i$ E& Y" {- s: q0 `. |0 B8 |8 N    Me.Hide
* O- y: p! n3 A# qEnd Sub
' f& l3 p9 ~. X$ j0 R4 ~( r* w+ d+ b--------------------

[ 本帖最后由 woaishuijia 于 2008-8-21 09:37 编辑 ]