[求助]：请大家帮忙指出所附程序的错误（多窗口处理）

xiaomai9

想编一个小程序，在当前CAD打开的所有图形中都在固定位置划一条线，但每次运行后，只有一个图形能画出来，其他的图形，需要人工切换到相应的窗口去，反复几次，才能画出来。
能不能不用人工干预，就在所有的图形中画出来啊，大家帮忙看看，程序如下：
defun c:Openp( )

(vl-load-com)

(setq CADAPP (vlax-get-acad-object))
(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 cadmod (vla-get-ModelSpace caddoc))
(vla-SendCommand cadmod "line 0,0,0 100000,100000,0.0  ")
   (setq index (1- index))
  
);end while

(princ)

) ;end progn

lijiao

最初由 xiaomai9 发布
[B]想编一个小程序，在当前CAD打开的所有图形中都在固定位置划一条线，但每次运行后，只有一个图形能画出来，其他的图形，需要人工切换到相应的窗口去，反复几次，才能画出来。
能不能不用人工干预，就在所有的图形中?.. [/B]

应该这样：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:Openp (/ CADAPP CADDOCS CADDOC cadmod)
   
5. 
   
6.   (vl-load-com)
   
7.   (setq CADAPP (vlax-get-acad-object))
   
8.   (setq CADDOCS (vla-get-Documents cadapp))
   
9.   (vlax-for CADDOC CADDOCS
   
10.     (setq cadmod (vla-get-ModelSpace caddoc))
    
11.     (vla-addline
    
12.       cadmod
    
13.       (vlax-3D-point '(0.0 0.0 0.0))
    
14.       (vlax-3D-point '(100000.0 100000.0 0.0))
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )                                        ;end progn
    
19.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:Openp (/ CADAPP CADDOCS CADDOC cadmod)<br /> <br />   (vl-load-com)<br />   (setq CADAPP (vlax-get-acad-object))<br />   (setq CADDOCS (vla-get-Documents cadapp))<br />   (vlax-for CADDOC CADDOCS<br />     (setq cadmod (vla-get-ModelSpace caddoc))<br />     (vla-addline<br />       cadmod<br />       (vlax-3D-point '(0.0 0.0 0.0))<br />       (vlax-3D-point '(100000.0 100000.0 0.0))<br />     )<br />   )<br />   (princ)<br /> )                                        ;end progn <br />   [/FONT]<br />

xiaomai9

谢谢lijiao长老！能给讲讲具体原因吗？难道用vla-SendCommand 实现不了吗？

lijiao

尽量少用SenfCommand，这是我的习惯，不强加于任何人。
另外，SendCommand的操作对象是文档，而不是模型空间。
建议你用VL的编辑环境，调试时知道自己错在什么地方。