[ARX函数]：

woocraze

问题：
如果需用VBA宏来启动一个AutoCAD交互式（内置）对话框，在VBA宏没有执行完之前AutoCAD将不会打开这个对话框。（直到VBA宏执行完以后，使用ThisDrawing.SendCommand方法执行的AutoLISP命令才被排到AutoCAD的队列中。
这将导致用户不能运行代码，或不能做修改，或不能检查各参数的选择。


解决方法：
如果将宏分成两部分或更多部分，用这种排队方法可以带来很多好处，可以强制这些宏继续工作——实际上，当对话框关闭时第二个宏承担控制工作。
在下面的例子中，对话框关闭以后，宏调用第二“部分”。

Sub Test()
Sub Test()  
  MsgBox "Please setup the layout the way you would like", vbOkOnly, "User Prompt"  
  ' This command queues the launch of the 'Layout Wizard' dialog
  ThisDrawing.SendCommand ("(command ""_layoutwizard"")" & vbCr)  
  ' This command queues the second part of the macro  
  ThisDrawing.SendCommand ("(command ""_-vbarun"" ""Test_Part_2"")" & vbCr)  
End Sub  
Sub Test_Part_2()  
  MsgBox "Part 2"  
End Sub