autocad-plugin - 如何强制 AutoLISP 应用程序等到 startapp 运行的应用程序完成他的工作

Question

在我的 AutoCAD LISP 插件中，我运行外部应用程序，startapp然后需要在外部应用程序关闭后执行一些操作。我该怎么做？也许我可以用别的东西代替startapp？

Answer 1

AutoCAD Lisp 是异步执行的。

Answer 2

至少有两种同步方式：

(setq Shell (vlax-get-or-create-object "Wscript.Shell"))            
(setq updater(vlax-invoke-method Shell 'Exec (strcat apppath appname ) ))
(while ( = (vlax-get-property updater 'Status ) 0)  
    (Sleep 1000)
)
(vlax-release-object Shell)

或使用命令：

(command "_Shell" (strcat apppath appname ) )