请问vbs对像重复循环的问题，指高手指教

nameld001

哪位帮测试一下这个为什么，有时执行2次，有时执行3次，
1、前提条件是在d:\cg\下放两个dwg图形，然加载即可发现问题
2、代码如下：
(defun c:tt()
(setq acad1 (vlax-get-acad-object))
(setq dbx(vla-GetInterfaceObject acad1 "ObjectDBX.AxDbDocument.16"))
  (setq vbs(vlax-create-object  "scripting.filesystemobject"))
  (setq files(vlax-get-property(vlax-invoke-method vbs 'GetFolder "d:\\cg\\") 'files))
  (setq num 0)
  (vlax-for n files
    (setq file_path(vlax-get-property n 'path))
    (if (= "dwg"  (substr file_path (+ 2(vl-string-search "." file_path) )))
      (progn
(vlax-invoke-method dbx 'open file_path)
(vlax-invoke-method dbx 'SaveAs file_path)
        (princ (strcat file_path "\n"))
(setq num(1+ num))
       )
    )
  
  )
  (vlax-release-object  files)
  (vlax-release-object  vbs)
  (vlax-release-object  dbx)
  (vlax-release-object  acad1)
  (alert (itoa num))
  (princ)
  )

文件夹下只有2个dwg却被运行了有时2次，有时3次，有时4次，不知道为什么，望高手指教，谢谢。

nameld001

怎么沒有能者指点呢！

鱼与熊掌

如果你要这么写  建议开一张图就释放一次  不然你就全部加载了在vlax-for

nameld001

不妨你加一个释放的来试一下。