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

maoyangmy

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

sealive_leafage

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

woaishuijia

lsp程序中代码如下：
-------------------
- b- r/ O( S5 z7 V' H) T(defun c:aaa()
(command "-vbarun" "a")
)
(defun c:-aaa()
(command "-text" (getstring) "" "" (getstring))
: A4 o9 \) w- y)
# i2 y# S+ L% A4 m/ |2 B5 [-------------------
VBA程序中代码如下：
+ I- {6 M9 ]0 ~2 l-------------------
Sub A()
    UserForm1.Show
( ]1 U2 t% ~. `2 ]# `  z9 uEnd Sub
-------------------
3 ~. }9 C; Q3 A( X& u2 c用户窗体名为UserForm1。其中三个文本框由左至右、由上至下分别名为textbox1、textbox2、textbox3，按钮名为CommandButton1。见图

# d: a8 Q* A' B. h8 X; K
代码如下：
-------------------
Private Sub CommandButton1_Click()
    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
3 t  N: q1 [" I0 r7 A* O/ e$ K    Me.Hide
End Sub
( I9 l4 d3 a- w  f-------------------
' t$ a  X4 Y& g9 \附件为dwg文件2004格式，内嵌VBA程序。
4 s- E, [! E4 O5 x5 n% s0 W
1 [  u' r4 u8 S' _[ 本帖最后由 woaishuijia 于 2008-8-20 11:34 编辑 ]

sealive_leafage

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

woaishuijia

也可以用发送键盘命令的方式传递参数
比如LSP程序：
---------------------------------------
) {, U9 e# |: j: O; k! |2 h(defun c:aaa()
* V( w5 T3 A1 M+ C; `+ k* D& L(command "-vbarun" "a" "AAA" )
8 L( O9 p  {+ J4 l: S% C; _9 [)
---------------------------------------
* [1 D2 H7 Z' O( L
8 q7 F/ \( e* K& C3 f4 n# dVBA模块代码：
7 k3 Y( x8 W: w" J: a( g---------------------------------------
Sub A()
    If ThisDrawing.Utility.GetString(0) = "AAA" Then UserForm1.Show
End Sub
( J6 ]8 F3 u, X" m( F---------------------------------------

: e& D' `+ R% @! s: \+ b! N另外我想，用读写文本文件的方式也应该可以传递参数。我对LISP了解不多，不知可否使用注册表？如果可以应该也是一种方法。
/ k; Y7 b! a. W: }$ z6 Q; p  e
[ 本帖最后由 woaishuijia 于 2008-8-21 08:46 编辑 ]

woaishuijia

把3楼的代码扩充一下，应该算是双向传递吧？
lsp程序中代码如下：
-------------------
(defun c:aaa()
(command "-vbarun" "a" "4" "5" "AAAAAAAAAAAAAAAA" )
' [1 y) a6 B! @)
3 y$ K& z2 L6 ?' H0 G8 e+ G(defun c:-aaa()
+ m# H, d8 n) i7 r' b/ G(command "-text" (getstring) "" "" (getstring))
; p  S7 L% A" u7 N7 h)
0 x/ k. s# R" {5 |) U-------------------

VBA程序中模块代码如下：
+ p  l% T5 C+ E. n7 a-------------------
7 |3 P+ n' h, ?: A( }: E2 T% wSub A()
    UserForm1.Show
! Y. c& Z9 e1 ]; S    With ThisDrawing.Utility
7 T5 J" X1 n5 o6 e- W        UserForm1.TextBox1.Text = .GetString(0)
        UserForm1.TextBox2.Text = .GetString(0)
        UserForm1.TextBox3.Text = .GetString(0)
    End With
( ]6 t" c( z2 g0 h4 n. BEnd Sub
& ]3 b7 s: E* u1 ~- B-------------------

8 v0 R( r1 L+ _' X1 f用户窗体代码如下：
- u3 {. U! w! Q% s7 O' A--------------------
& ~9 T3 g, }9 F( H# f  ~5 T+ X1 GPrivate Sub CommandButton1_Click()
  }- g1 `. l+ t! t! Z! p. T/ }    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
" y9 O" I5 A2 v. O4 v2 j    Me.Hide
4 m3 n3 B/ d! O$ b1 S. nEnd Sub
0 _3 h8 F% @. M; [8 A4 G" G/ @--------------------
; X( |# i& A9 E  K' f4 E
[ 本帖最后由 woaishuijia 于 2008-8-21 09:37 编辑 ]