关于文件处理问题，呵呵 怎么办？

zhangzg

各位朋友，怎样对指定目录里的所有的dwg文件进行遍历？
也就是一个不落的打开， 然后关闭。
呵呵，太晚了，我不能想了，大脑都不动了。呵呵，帮我想想！

zhangzg

我打算明天把这个问题高定，不应该是今天了，希望大家能够给我指导一下！呵呵。
我现在真是。。。好无奈呀，只能考各位老大了！拜托，谢谢！

lgh930

用VLISP命令遍历文件，用VLA-OPEN命令打开，用VLA-CLOSE命令关闭

zhangzg

呵呵。不好玩！
vla-open 怎么使？在帮助里怎么没有找到？

e2002

最初发表由 zhangzg
[B]呵呵。不好玩！
vla-open 怎么使？在帮助里怎么没有找到？ [/B]

这是VisualLISP使用ActiveX方法.请看VBA帮助文档,或看陈老师的书...

正航

先生成一个文件列表，然后再生成SCRTPT文件，执行！只要顺序妥当，是可以应用的。我以前曾编写过类似的东西，执行没问题。可惜上个月硬盘物力损坏.....

zhangzg

谢谢。

lgh930

;za 文件名 zt=T时激活文件
(defun vlopen(za zt)
  (setq docs (vla-get-documents (vlax-get-acad-object)))
  (setq doc (vla-open docs za))
  (if zt (vla-activate doc))
)
(defun vlclose(za)
  (setq zi nil)
  (vlax-for i (vla-get-documents(vlax-get-acad-object))
    (if(= (strcase(vla-get-fullname i)) (strcase(findfile za)))
       (if(= (vla-get-active i) :vlax-false)
          (vla-close i :vlax-true)
          (progn(vla-save i)(setq zi i))
       )
    )  
  )   
  (if zi (vl-cmdf "close"))
)