（XD::System:Run-Wait）运行外部命令并且等待完成

Lispboy

1. (defun XD::System:Run-Wait (strCommand / WScript_obj)
   
2.   (if (setq WScript_obj (vlax-get-or-create-object "WScript.Shell"))
   
3.     (vl-catch-all-apply 'vlax-invoke-method (list WScript_obj "Run" strCommand 4 :vlax-true))
   
4.   )
   
5. )
   

(defun XD::System:Run-Wait (strCommand / WScript_obj)<br />   (if (setq WScript_obj (vlax-get-or-create-object "WScript.Shell"))<br />     (vl-catch-all-apply 'vlax-invoke-method (list WScript_obj "Run" strCommand 4 :vlax-true))<br />   )<br /> )<br />

(XD::System:Run-Wait "notepad.exe d:\\1.txt")

HLCAD

非常实用的程序，谢谢楼主！

dyjwyqz5221

遇到难题了，请教一下，为什么下面的程序中，后面的语句不等待前面执行完后就运行了呢
(defun c:tt()
        (XD::System:Run-Wait "explorer.exe d:\\审查意见汇总")
        (setq n (length (xdrx-file-dir "d:\\审查意见汇总\\*.txt")))
        (xdrx-prompt "\ntxt文档数目-> " n)
        (princ)
);;;defun

下面的是等待txt文档关闭后，才运行后面的语句
(defun c:tt()
        (startapp "explorer.exe" "d:\\审查意见汇总")
        (XD::System:Run-Wait "notepad.exe")
        (setq n (length (xdrx-file-dir "d:\\审查意见汇总\\*.txt")))
        (xdrx-prompt "\ntxt文档数目-> " n)
        (princ)
)