怎样才能使我的LISP函数和VBA宏同步石墨垫片领养制袋机活塞杆饭盒x

怎样才能使我的LISP函数和VBA宏同步？

问：我已经写了一个VisualLisp函数和一个VBA宏。这个VBA宏显示一个对话框，并且有一些按钮允许有用户输入（例如：输入一个字符串）。现在我从VisualLisp用(vl-vbarun)调用这个VBA宏。当AutoCAD执行到这一行时，LISP停在这一行。但是一旦我在此宏中使用了一个用户输入函数，LISP就不等VBA对话框研究者将L–LA与GA或DL–LA共聚出现，而继续执行下面的LISP函数。有些时候甚至首先执行LISP的输入函数，然后再执行VBA宏中的输入语句。怎样才能使我的LISP函数和VBA宏同步？

答：现在只有一个解决办法。在你的LISP函数中(vl-vbarun)丝网版 函数必须最后调用。当关闭VBA对话框或者从VBA宏中返回时，你得调用另一个你想继续执行的LISP函数。你可以象下面这样做。

首先：你需要一个LISP函数调用这个VBA夹具就是这些结构的组合体；宏：

(defun c:test ()

;; Call a VBA macro which displays

;; a dialog and writes a file.

(vl-vbarun "test")

;;If you uncomment the following line, then AutoCAD will prompt you

;;to select an entity first, input a string second.

;;(entsel)

(princ)

)

然后你需要第二个LISP函数以供你的VBA宏返回时调用：

(defun c:test_cont ()

;; Here you can continue.

(print " I am continuing.")

(princ)

)

以下是这个VBA宏的示运动护头例：

Sub test()

服装加盟' Show a dialog which uses some

' user input functions.

ow

' Call the lisp function which should

' be now executed.

' You can use the SendCommand method:

' ndCommand ("test_cont ")

' or use the ActiveX interface of VisualLisp:

' In order吸附仪 to use it, please remember to reference b file which is in Acad2000 folder

' into your VBA project an报批标准442项d execute (vl-load-com) on the AutoCAD command line first.

Dim vl As Object

Set vl = CreateObject("plication.1")

em("c:test_cont").funcall

End Sub