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

maoyangmy

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

sealive_leafage

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

woaishuijia

lsp程序中代码如下：
4 @! u( K: P* W1 D-------------------
: P. ]1 g8 C3 ^; U& E* V(defun c:aaa()
& G7 k: [$ i9 k' l9 @, C5 b(command "-vbarun" "a")
)
(defun c:-aaa()
. h4 P. U5 F4 R( D( X5 B% e) h: p/ w(command "-text" (getstring) "" "" (getstring))
)
# K( w8 L& G# v- Q6 P; h-------------------
8 u' w! n6 I- D8 U  i( VVBA程序中代码如下：
3 x$ v6 J0 a: r# p5 x) a-------------------
5 R) e, q  I, ISub A()
    UserForm1.Show
End Sub
  U$ i9 s0 L+ C$ m-------------------
2 o. F, u' T# M3 _用户窗体名为UserForm1。其中三个文本框由左至右、由上至下分别名为textbox1、textbox2、textbox3，按钮名为CommandButton1。见图
2 d# s) r5 S" z  m9 R) Q
1 A  p- O. |$ c! P
5 Q, T0 n5 J) I- X代码如下：
-------------------
Private Sub CommandButton1_Click()
1 W& M( U9 S' ]" _% D( g    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
    Me.Hide
End Sub
-------------------
附件为dwg文件2004格式，内嵌VBA程序。
* Q( C' ?3 R: e/ h
[ 本帖最后由 woaishuijia 于 2008-8-20 11:34 编辑 ]

sealive_leafage

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

woaishuijia

也可以用发送键盘命令的方式传递参数
; N. X8 ?* |/ [  L  s比如LSP程序：
---------------------------------------
(defun c:aaa()
  v) I/ Q: Z. B' d; ?; l(command "-vbarun" "a" "AAA" )
' l! G+ l8 U% @6 `)
---------------------------------------

VBA模块代码：
---------------------------------------
5 p) D# {' u$ k1 J* K- `Sub A()
/ G- l( I. t  O# U. v  b    If ThisDrawing.Utility.GetString(0) = "AAA" Then UserForm1.Show
End Sub
) h$ e/ V) E6 A1 D+ {---------------------------------------

另外我想，用读写文本文件的方式也应该可以传递参数。我对LISP了解不多，不知可否使用注册表？如果可以应该也是一种方法。
; e3 T, Z$ h! t
9 [- q" h: d# A# j' {6 X' r; J[ 本帖最后由 woaishuijia 于 2008-8-21 08:46 编辑 ]

woaishuijia

把3楼的代码扩充一下，应该算是双向传递吧？
lsp程序中代码如下：
% F1 q+ n! Q$ ]0 R% O-------------------
(defun c:aaa()
(command "-vbarun" "a" "4" "5" "AAAAAAAAAAAAAAAA" )
)
(defun c:-aaa()
(command "-text" (getstring) "" "" (getstring))
6 C  |- H1 D1 k: ~- O# d)
* s$ k; ?( \) l# I) g-------------------
! [% T) X+ q1 P# s  L
VBA程序中模块代码如下：
) F) a& u  c' ~* \; o+ T* B-------------------
( ]( T; d2 P* {" DSub A()
    UserForm1.Show
    With ThisDrawing.Utility
( M, \% z9 q5 k4 u% S# q- y        UserForm1.TextBox1.Text = .GetString(0)
7 S- X% m/ J# ?: n- p& u$ p        UserForm1.TextBox2.Text = .GetString(0)
        UserForm1.TextBox3.Text = .GetString(0)
    End With
End Sub
  t1 G6 x: \  \) t6 |0 P2 G) K3 J-------------------
' i/ \& r$ ]4 S# [4 Z- m) }: A
8 i$ K. \8 v8 a, w9 C) y- \& j: V用户窗体代码如下：
--------------------
Private Sub CommandButton1_Click()
. v: K3 U& s, f6 `2 y9 L9 |" f    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
    Me.Hide
9 q. A: j) o, z! YEnd Sub
--------------------

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