[原创]：模拟doslib的dos_exewait函数

mmmm

Ex:
(vldos-exewait "c:\\windows\\notepad.exe")

2. 
   
3. (defun vldos-exewait (exefile / sys exec start)
   
4.   (if (and (setq exefile (findfile exefile))
   
5.            (setq sys (vlax-get-or-create-object "WScript.Shell"))
   
6.            (setq exec (vlax-invoke-method sys 'exec exefile))
   
7.       )
   
8.     (progn
   
9.       (while (equal (vlax-get-property exec 'status) 0))      
   
10.       (vlax-release-object exec)
    
11.       (vlax-release-object sys)
    
12.       (setq sys nil exec nil)
    
13.     )
    
14.   )
    
15.   exefile
    
16. )
    

<br /> (defun vldos-exewait (exefile / sys exec start)<br />   (if (and (setq exefile (findfile exefile))<br />            (setq sys (vlax-get-or-create-object "WScript.Shell"))<br />            (setq exec (vlax-invoke-method sys 'exec exefile))<br />       )<br />     (progn<br />       (while (equal (vlax-get-property exec 'status) 0))      <br />       (vlax-release-object exec)<br />       (vlax-release-object sys)<br />       (setq sys nil exec nil)<br />     )<br />   )<br />   exefile<br /> )<br />