[转贴]：DSX Example3

eachy

2. 
   
3. ;; This example involves the task of iterating through the Documents collection
   
4. ;; and performing a Purge, Audit and Save operation on each document.
   
5. (defun C:DOALL (/ $acad docs dnum this)
   
6.   (setq        $acad (vlax-get-acad-object)
   
7.         docs  (vla-get-documents $acad)
   
8.         this  (vla-get-activedocument $acad)
   
9.         dnum  (vla-get-count docs)
   
10.   )
    
11.   (vlax-for each docs
    
12.     (vla-purgeall each)
    
13.     (vla-auditinfo each T)
    
14.     (vla-save each)
    
15.   )
    
16.   (vla-get-activedocument this)
    
17.   (vlax-release-object docs)
    
18.   (vlax-release-object this)
    
19.   (vlax-release-object $acad)
    
20.   (princ (strcat "\nProcessed " (itoa dnum) " drawings."))
    
21.   (princ)
    
22. )
    

<br /> ;; This example involves the task of iterating through the Documents collection<br /> ;; and performing a Purge, Audit and Save operation on each document.<br /> (defun C:DOALL (/ $acad docs dnum this)<br />   (setq        $acad (vlax-get-acad-object)<br />         docs  (vla-get-documents $acad)<br />         this  (vla-get-activedocument $acad)<br />         dnum  (vla-get-count docs)<br />   )<br />   (vlax-for each docs<br />     (vla-purgeall each)<br />     (vla-auditinfo each T)<br />     (vla-save each)<br />   )<br />   (vla-get-activedocument this)<br />   (vlax-release-object docs)<br />   (vlax-release-object this)<br />   (vlax-release-object $acad)<br />   (princ (strcat "\nProcessed " (itoa dnum) " drawings."))<br />   (princ)<br /> )<br />