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

maoyangmy

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

sealive_leafage

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

woaishuijia

lsp程序中代码如下：
3 p6 y% V& Y; K0 m+ b1 M& t  r" h-------------------
(defun c:aaa()
/ [% |4 \8 M4 ]( @(command "-vbarun" "a")
)
(defun c:-aaa()
' L$ x' U5 ~: ^" t& A4 {+ J- d- F(command "-text" (getstring) "" "" (getstring))
)
-------------------
& z& o3 c" b- J  G, r1 h  z8 T' EVBA程序中代码如下：
-------------------
Sub A()
# U* |0 E7 ~: K. |, E" R0 c$ `1 Y    UserForm1.Show
End Sub
' x: v2 t5 [& _; `" Z-------------------
) Y4 T+ e  u, J4 U8 s用户窗体名为UserForm1。其中三个文本框由左至右、由上至下分别名为textbox1、textbox2、textbox3，按钮名为CommandButton1。见图
# f1 Q/ [- H( U$ G
+ R8 `" M3 A3 q$ P& A
4 a; v. S7 _/ ]' O. u8 n$ _  T代码如下：
+ Y4 D! b3 T0 |; f-------------------
Private Sub CommandButton1_Click()
    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
% O1 t% d4 x0 o: O9 h$ l" g* F+ {    Me.Hide
End Sub
-------------------
8 d' W1 j. `' e" A/ Q5 s附件为dwg文件2004格式，内嵌VBA程序。
/ M0 Z% o1 V- o7 y8 q
& z( a& g  B3 `* C1 K[ 本帖最后由 woaishuijia 于 2008-8-20 11:34 编辑 ]

sealive_leafage

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

woaishuijia

也可以用发送键盘命令的方式传递参数
7 F: Q4 ~0 m% G比如LSP程序：
  ]; p. p) G* {5 r  I) |% h---------------------------------------
(defun c:aaa()
(command "-vbarun" "a" "AAA" )
)
0 U8 }+ b; u/ K7 t---------------------------------------

5 y& Z7 Y8 z8 uVBA模块代码：
0 R8 o, y: ^& E7 r* F---------------------------------------
( m* E8 G/ U; s1 v7 x+ k. M# v# LSub A()
    If ThisDrawing.Utility.GetString(0) = "AAA" Then UserForm1.Show
: ]" N- J7 w% k2 ~4 ^! xEnd Sub
---------------------------------------

8 h: ~7 J% J1 X7 L' b' H1 c0 J另外我想，用读写文本文件的方式也应该可以传递参数。我对LISP了解不多，不知可否使用注册表？如果可以应该也是一种方法。

3 P2 }! k& C$ x, V[ 本帖最后由 woaishuijia 于 2008-8-21 08:46 编辑 ]

woaishuijia

把3楼的代码扩充一下，应该算是双向传递吧？
lsp程序中代码如下：
-------------------
(defun c:aaa()
(command "-vbarun" "a" "4" "5" "AAAAAAAAAAAAAAAA" )
)
(defun c:-aaa()
(command "-text" (getstring) "" "" (getstring))
)
# S) u8 i( p6 A$ t5 g, b8 N$ k4 k-------------------

VBA程序中模块代码如下：
-------------------
. r' p- P' D" @4 }Sub A()
" X4 i/ `. B3 r7 C6 S0 B    UserForm1.Show
    With ThisDrawing.Utility
        UserForm1.TextBox1.Text = .GetString(0)
        UserForm1.TextBox2.Text = .GetString(0)
' \' J7 }- p% V        UserForm1.TextBox3.Text = .GetString(0)
2 D  x, a2 R' f4 ]. E2 w    End With
End Sub
-------------------

用户窗体代码如下：
--------------------
8 L' R5 w7 u4 O2 C& ^) sPrivate Sub CommandButton1_Click()
+ U0 |4 h3 b& J    SendKeys "-aaa " & TextBox1.Text & "," & TextBox2.Text & " " & TextBox3.Text & " "
    Me.Hide
End Sub
5 d. a) x& d$ {& D' g--------------------
; g8 |3 _( R9 o& u% v8 i
[ 本帖最后由 woaishuijia 于 2008-8-21 09:37 编辑 ]