请问vbs对像重复循环的问题，指高手指教
本帖最后由 nameld001 于 2015-3-20 17:11 编辑哪位帮测试一下这个为什么，有时执行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-objectfiles)
(vlax-release-objectvbs)
(vlax-release-objectdbx)
(vlax-release-objectacad1)
(alert (itoa num))
(princ)
)
文件夹下只有2个dwg却被运行了有时2次，有时3次，有时4次，不知道为什么，望高手指教，谢谢。
不好意思，我不懂得怎么在原来贴子上加悬赏，所以又新建了一个，版主如果觉得不妥请帮我删掉原来的那个帖子。
页:
[1]