请教CAD模型和布局窗口的切换怎么用lisp实现呢

DCMZ

如图1，当前是在模型窗口，如果我们要切换到布局1窗口(图2)，我们用鼠标单击“布局1”就可以了，那么lisp怎么写呢，谢谢大家哈

祥子

用OPENDCL可以做成类似效果

Gu_xl

1. ;;功能：激活指定的布局
   
2. ;;参数：name = 布局名称
   
3. ;;用法 (activelayout LayoutName)
   
4. ;;返回值：成功激活 返回 T 否则 nil
   
5. ;; By Gu_xl
   
6. (defun gxl-activelayout        (name / doc layout)
   
7.   (if (not
   
8.         (VL-CATCH-ALL-ERROR-P
   
9.           (setq        layout
   
10.                  (VL-CATCH-ALL-APPLY
    
11.                    'vla-item
    
12.                    (list
    
13.                      (vla-get-layouts
    
14.                        (setq doc
    
15.                               (vla-get-ActiveDocument
    
16.                                 (vlax-get-acad-object)
    
17.                               )
    
18.                        )
    
19.                      )
    
20.                      name
    
21.                    )
    
22.                  )
    
23.           )
    
24.         )
    
25.       )
    
26.     (not (vla-put-ActiveLayout doc layout))
    
27.     (prompt "\n未找到指定的布局")
    
28.   )
    
29. )
    

;;功能：激活指定的布局<br /> ;;参数：name = 布局名称<br /> ;;用法 (activelayout LayoutName)<br /> ;;返回值：成功激活 返回 T 否则 nil<br /> ;; By Gu_xl<br /> (defun gxl-activelayout        (name / doc layout)<br />   (if (not<br />         (VL-CATCH-ALL-ERROR-P<br />           (setq        layout<br />                  (VL-CATCH-ALL-APPLY<br />                    'vla-item<br />                    (list<br />                      (vla-get-layouts<br />                        (setq doc<br />                               (vla-get-ActiveDocument<br />                                 (vlax-get-acad-object)<br />                               )<br />                        )<br />                      )<br />                      name<br />                    )<br />                  )<br />           )<br />         )<br />       )<br />     (not (vla-put-ActiveLayout doc layout))<br />     (prompt "\n未找到指定的布局")<br />   )<br /> )<br />

DCMZ

Gu_xl 发表于 2013-3-22 18:36

谢谢高人，我已经成功了哈