[求助]：如何实现处理多窗口（同时打开的多个图形）的程序

xiaomai9

如何实现处理多窗口（同时打开的多个图形）的程序？在CAD2004可以同时打开好多图形，但不知怎样才能让一个程序逐个的对已打开的图形进行处理（对各个窗口中的图形进行处理）
请高手帮忙！

lijiao

用VL是可以处理的，但好像不如用VBA稳定。

lsjjm

最初由 lijiao 发布
[B]用VL是可以处理的...[/B]

请给个例子?

xiaomai9

最初由 xiaomai9 发布
[B]如何实现处理多窗口（同时打开的多个图形）的程序？在CAD2004可以同时打开好多图形，但不知怎样才能让一个程序逐个的对已打开的图形进行处理（对各个窗口中的图形进行处理）
请高手帮忙！ [/B]

请问用哪个函数，给点提示！

zhang8755

(setq doc (vla-open (vla-get-documents APP) DWGNAME2))
                                        ;打开图形并获得其对象
        (setq msp (vla-get-ModelSpace doc)) ;获得其模型空间

xiaomai9

最初由 zhang8755 发布
[B](setq doc (vla-open (vla-get-documents APP) DWGNAME2))
                                        ;打开图形并获得其对象
        (setq msp (vla-get-ModelSpace doc)) ;获得其模型空间 [/B]

楼上的，我的意思是几个图形已经打开了。有办法吗？

lijiao

最初由 xiaomai9 发布
[B]
楼上的，?.. [/B]

给你写了几行，供参考。

2. 
   
3.   [FONT=courier new]
   
4. (vl-load-com)
   
5. ;;;获取CAD程序
   
6. (setq CADAPP (vlax-get-acad-object))
   
7. ;;;获取CAD文档集合
   
8. (setq CADDOCS (vla-get-Documents cadapp))
   
9. ;;;已经打开的文档数目
   
10. (setq doc_count (vla-get-count caddocs))
    
11. ;;;指定文档名称
    
12. (setq doc_name "Drawing2.dwg")
    
13. ;;;获取一个文档
    
14. (cond
    
15.   ((not (vl-catch-all-error-p (setq caddoc (vl-catch-all-apply 'vla-item (list caddocs doc_name)))))
    
16. ;;;   获取模型空间
    
17.    (setq cadmod (vla-get-ModelSpace caddoc))
    
18. ;;;   .......................
    
19. ;;;   添加你的代码
    
20. ;;;   获取图纸空间
    
21.    (setq cadpap (vla-get-PaperSpace caddoc))
    
22. ;;;   .......................
    
23. ;;;   添加你的代码
    
24.    )
    
25.   (t (princ (strcat "\n没有找到" doc_name "文档")))
    
26.   )
    
27.   [/FONT]
    

<br />   [FONT=courier new]<br /> (vl-load-com)<br /> ;;;获取CAD程序<br /> (setq CADAPP (vlax-get-acad-object))<br /> ;;;获取CAD文档集合<br /> (setq CADDOCS (vla-get-Documents cadapp))<br /> ;;;已经打开的文档数目<br /> (setq doc_count (vla-get-count caddocs))<br /> ;;;指定文档名称<br /> (setq doc_name "Drawing2.dwg")<br /> ;;;获取一个文档<br /> (cond<br />   ((not (vl-catch-all-error-p (setq caddoc (vl-catch-all-apply 'vla-item (list caddocs doc_name)))))<br /> ;;;   获取模型空间<br />    (setq cadmod (vla-get-ModelSpace caddoc))<br /> ;;;   .......................<br /> ;;;   添加你的代码<br /> ;;;   获取图纸空间<br />    (setq cadpap (vla-get-PaperSpace caddoc))<br /> ;;;   .......................<br /> ;;;   添加你的代码<br />    )<br />   (t (princ (strcat "\n没有找到" doc_name "文档")))<br />   )<br />   [/FONT]<br />

zhang8755

省略号处填入你所需的代码：
(setq APP (vlax-get-acad-object))
(setq DOCS (vla-get-Documents app))
(vlax-for doc DOCS
      (setq msp (vla-get-ModelSpace doc))
      ......
)

xiaomai9

谢谢楼上的两位朋友，我的想法是想编一个小程序，把当前CAD打开的所有图形都打印出来（按照默认方式），但每次运行后，只有一个图形能自己打印出来，其他的图形，需要人工切换到相应的窗口去，反复几次，才能打出来（与打印设置无关，我试了一下，把打印命令换成其他命令，比如画一条线，同样不能自动完成）。
能不能不用人工干预，就把所有的图形打出来啊，大家帮忙看看，程序如下：
(defun c:Openp( )

(vl-load-com)

;;;获取CAD程序
(setq CADAPP (vlax-get-acad-object))
;;;获取CAD文档集合
(setq CADDOCS (vla-get-Documents cadapp))
;;;已经打开的文档数目
(setq doc_count (vla-get-count caddocs)
      index (1- doc_count)
)

(while (>= index 0)
;;;   获取模型空间
   (setq caddoc (vl-catch-all-apply 'vla-item (list caddocs index)))
   (setq cadplot (vla-get-plot caddoc))
   (setq cadmod (vla-get-ModelSpace caddoc))
   (print index)
   (vla-activate caddoc)
   (vla-Plottodevice cadplot)   
   ;(vla-plottodevice cadplot)
   (vla-activate caddoc)
   (setq index (1- index))
  
);end while

(princ)

) ;end progn

lijiao

我在前面说过，VL不如VBA稳定，指的就是打印，这一点我是试验过的，其他方面还比较稳定。关于画线的问题，我已在另一个帖子里给你回复了。

xiaomai9

最初由 lijiao 发布
[B]我在前面说过，VL不如VBA稳定，指的就是打印，这一点我是试验过的，其他方面还比较稳定。关于画线的问题，我已在另一个帖子里给你回复了。 [/B]

你的意思是根本实现不了？