布局视口编程求教

Student

     对下面的函数,为什么在模型窗口或布局1窗口中执行,会在布局1中创建新视口, 而不是期望的在布局2中创建新视口? 请帮忙指导,谢谢.

2. ;在布局2上创建一个视口
3. (defun CPV2()
4.   (vl-load-com)
5.   (setq AcadObject   (vlax-get-acad-object)
6.         AcadDocument (vla-get-ActiveDocument Acadobject)
7.         mSpace       (vla-get-ModelSpace Acaddocument)
8.         pSpace       (vla-get-PaperSpace AcadDocument)
9.         LayoutSel    (vla-get-Layouts AcadDocument)
10.   )
11.   (setvar "TILEMODE" 0)
12.   ;获得布局2对象Layout2
13.   (setq Layout1(vla-item LayoutSel "布局1"))
14.   (setq Layout2 (vla-item LayoutSel "布局2"))
16.   ;设置Layou2为活动布局
17.   (setq layoutSel(vla-get-Layouts AcadDocument))
18.   (setq documentSel(vla-get-Documents AcadObject))
19.   (setq name(vla-get-Name (vla-get-ActiveDocument AcadObject)))
20.   (vla-put-ActiveLayout (vla-Item documentSel name) Layout2)
21.   
22.   (setq CenterPnt(vlax-make-safearray vlax-vbDouble '(0 . 2)))
23.   (vlax-safearray-fill CenterPnt '(40 40 0))
24.   (vla-AddPViewport pSpace CenterPnt 20 20)
25. )

;在布局2上创建一个视口 (defun CPV2()   (vl-load-com)   (setq AcadObject   (vlax-get-acad-object)         AcadDocument (vla-get-ActiveDocument Acadobject)         mSpace       (vla-get-ModelSpace Acaddocument)         pSpace       (vla-get-PaperSpace AcadDocument)         LayoutSel    (vla-get-Layouts AcadDocument)   )   (setvar "TILEMODE" 0)   ;获得布局2对象Layout2   (setq Layout1(vla-item LayoutSel "布局1"))   (setq Layout2 (vla-item LayoutSel "布局2"))   ;设置Layou2为活动布局   (setq layoutSel(vla-get-Layouts AcadDocument))   (setq documentSel(vla-get-Documents AcadObject))   (setq name(vla-get-Name (vla-get-ActiveDocument AcadObject)))   (vla-put-ActiveLayout (vla-Item documentSel name) Layout2)      (setq CenterPnt(vlax-make-safearray vlax-vbDouble '(0 . 2)))   (vlax-safearray-fill CenterPnt '(40 40 0))   (vla-AddPViewport pSpace CenterPnt 20 20) )

龙龙仔

;;(setvar "TILEMODE" 0)取消这句

Student

首先谢谢龙龙仔的帮助，祝新年好。

但我在取消(setvar "TILEMODE" 0)这句后，对运行结果没有影响,即:

1.当在布局2中运行(cpv2),可在布局2中创建一个视口;

2.鼠标操作,激活布局2窗口,再激活模型窗口,然后运行(cpv2),可在布局2中创建一个视口;

3.在在布局1中运行(cpv2),却布局1中创建一个视口;

4.鼠标操作,激活布局1窗口,再激活模型窗口,然后运行(cpv2),也是在布局1中创建一个视口.

还请龙龙仔和各位网友帮忙.

 

龙龙仔

2. ;;不行就用mview吧!
3. (defun C:PV2 ()
4.   (vl-load-com)
5.   (setq ACADOBJECT   (vlax-get-acad-object)
6. ACADDOCUMENT (vla-get-activedocument ACADOBJECT)
7. LAYOUTSEL    (vla-get-layouts ACADDOCUMENT)
8.   )
9.   (setq LAYOUT2 (vla-item LAYOUTSEL "配置2"))
10.   (vla-put-activelayout ACADDOCUMENT LAYOUT2)
11.   (setvar "TILEMODE" 0)
12.   (command "_.MVIEW" '(30 30 0) '(50 50 0))
13.   (princ)
14. )

;;不行就用mview吧! (defun C:PV2 ()   (vl-load-com)   (setq ACADOBJECT   (vlax-get-acad-object) ACADDOCUMENT (vla-get-activedocument ACADOBJECT) LAYOUTSEL    (vla-get-layouts ACADDOCUMENT)   )   (setq LAYOUT2 (vla-item LAYOUTSEL "配置2"))   (vla-put-activelayout ACADDOCUMENT LAYOUT2)   (setvar "TILEMODE" 0)   (command "_.MVIEW" '(30 30 0) '(50 50 0))   (princ) )

Student

如果用(command)函数，mview 或 vports命令都可达到预期效果。
但为什么不用(command)函数就不行?
我跟踪了一下,SPace对象的Layout还是指向layout1,而不是Layout2
我没有找到设置sPace的Layout指向的函数,也许这是问题的症结所在.
还请各位网友继续给与指点.
再次谢谢龙龙仔.

 

Student

问题找到了:即sPace对象的获取时机不对。
把语句
    (setq pSpace(vla-get-PaperSpace AcadDocument)
放到
    (vla-put-activelayout ACADDOCUMENT LAYOUT2)
的后面，SPace对象的Layout就指向layout2了。问题就解决了。