[求助]：熟悉vla-get-Documents的高手帮帮我

qshxn

使用下面代码打开的dwg文件不是当前窗口文件，怎样才能使打开文件的成为当前窗口文件，或者不成为当前窗口文件也能够处理该打开文件中的图形数据。
              (vla-open
               (vla-get-Documents
                 (vlax-get-acad-object)
               )
               绝对路径
             )

lsjjm

(vla-get-ActiveDocument (vlax-get-acad-object))

qshxn

使用vla-get-ActiveDocument时cad报错“错误: Automation 错误。” ；
使用vla-get-Documents时cad报错“错误: ActiveX 服务器返回错误: 未知名称: Document”；
救救我吧

aidraft

把你的代码都贴上来。注意VLISP是不擅长跨文件操作的。

Free-Lancer

最初由 aidraft 发布
[B]把你的代码都贴上来。注意VLISP是不擅长跨文件操作的。 [/B]

在多文档下 Documents  内处理起来都一样的。

qshxn

代码如下：
(princ "\nType <BatchPro> To Use:")
(vl-load-com)
(defun c:BatchPro ()
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (setq dir (getstring "\nInput Directory: "))
  (setq link (vl-directory-files dir "*.dwg" 1))
  (setq long (length link))
  (setq long (1- long))
  (foreach nafiled link
    (progn
      (princ "\n正在处理文件")
      (princ nafiled)
      (princ "\n请等待……")
      (setq dwg
             (vla-open
               (vla-get-Document
                 (vlax-get-acad-object)
               )
                (strcat dir nafiled)
             )
      )                                        ;setq
      (setq ent (ssget "X"))

       ;这里是处理ent的另一个函数，比如删除选择集。

      (setq ent nil)
      (vla-close dwg)
      (princ "\n文件")
      (princ nafiled)
      (princ "处理完毕。还有")
      (princ long)
      (princ "个文件需要处理。")
      (setq long (1- long))
    )                                        ;progn
  )                                        ;foreach
  (princ)
)                                        ;defun

aidraft

在MDI模式中，只能对DOCUMENTS对象使用OPEN方法，而不是DOCUMENT对象。其次，即使你打开了新文件， 你后面的那句(setq ent (ssget "X"))也不是在新文件中执行。VLISP不会让你在文件之间跳来跳去，它会中断的。考虑用调用VBA宏用SENDCOMMAND方法或用SCRIPT。你把你写好的东西都贴上来。

qshxn

8楼，我已经将全部代码帖出来了。
我用的是DOCUMENTS对象，可能是考错了。
要解决这种文件之间的操作我应该怎么做呢？
VBA不是很熟悉。能不能帮我一下。
小女子有礼了。

JOSDENNIS

我也剛學vl的內容, 看了看, 還不太明白樓主要作什麼?

aidraft

;这里是处理ent的另一个函数，比如删除选择集。

WHERE ABOUT THIS FUNCTION? I just wanna know what you are trying to do.

qshxn

大量的DWG文件都要进行同样的处理所以想写一个可以成批处理多个DWG文件的程序。

该程序要完成：

1.找到一个目录下的所有DWG文件返回文件名（表）；
2.在CAD窗口打开一个DWG文件；
3.选择打开DWG中的所有图形数据给一个选择集，然后将这个选择集传给下一个函数使用；
4.关闭打开图纸；
5.打开下一个DWG文件；
6.重复上述操作直到该目录下所有的DWG文件都处理结束。

如果可以请你指点迷津。谢谢！

雪山飞狐(lzh)

用ObjectDbx解决

aidraft

最初由 qshxn 发布
[B]然后将这个选择集传给下一个函数使用[/B]

我就要你那个函数。

LUCAS

參考這個例子
http://www.xdcad.net/article/article/htmlcache/1861.html

qshxn

对不起，那个函数涉及到商业机密。
我说的已经很明白了，
哥哥如果有办法还请您指教，我谢谢了！