我如何强制 AutoLISP 应用程序等到 startapp 的应用程序 运行 完成他的工作
How can I force AutoLISP application to wait until application run by startapp will finish his work
在我的 AutoCAD LISP 插件中,我通过 startapp
运行 外部应用程序然后需要在关闭外部应用程序后执行一些操作。我该怎么做?也许我可以用其他东西代替 startapp?
AutoCAD Lisp 异步执行。
至少有两种同步方式:
(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 ) )
在我的 AutoCAD LISP 插件中,我通过 startapp
运行 外部应用程序然后需要在关闭外部应用程序后执行一些操作。我该怎么做?也许我可以用其他东西代替 startapp?
AutoCAD Lisp 异步执行。
至少有两种同步方式:
(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 ) )