[原创]：文档窗口切换

心梦相随

前段时间谁要的文档窗口切换源码这里贴上,我刚回学校.

2. 
   
3. (defun c:11 (/ dcl_id li w0 w1 w2 z0 z1)
   
4.   (setq dcl_id (load_dialog "tcsya.dcl"))
   
5.   (if (not (new_dialog "activ" dcl_id))
   
6.     (exit)
   
7.   )
   
8.   (setq        w1 (vlax-get-acad-object)
   
9.         w2 (vla-get-activedocument w1)
   
10.         li (vla-get-documents w1)
    
11.         z1 '()
    
12.   )
    
13.   (vlax-for z0 li
    
14.     (setq z1 (cons (cons z0
    
15.                          (strcase
    
16.                            (vl-filename-base (vla-get-name z0))
    
17.                          )
    
18.                    )
    
19.                    z1
    
20.              )
    
21.     )
    
22.   )
    
23.   (if (> (length z1) 1)
    
24.     (setq z1 (append (member (assoc w2 z1)
    
25.                              (reverse z1)
    
26.                      )
    
27.                      (cdr (member (assoc w2 z1) z1))
    
28.              )
    
29.     )
    
30.   )
    
31.   (setq li '())
    
32.   (foreach z0 z1 (setq li (cons (cdr z0) li)))
    
33.   (setq li (reverse li))
    
34.   (start_list "w0")
    
35.   (mapcar 'add_list li)
    
36.   (end_list)
    
37.   (set_tile "w0" "0")
    
38.   (action_tile "w0" "(setq w0 $value)")
    
39.   (if (and (= (start_dialog) 1) w0 (/= w0 "0"))
    
40.     (progn (unload_dialog dcl_id)
    
41.            (setq w0 (read w0)
    
42.                  z0 (car (nth w0 z1))
    
43.            )
    
44.            (vla-put-activedocument w1 z0)
    
45.     )
    
46.   )
    
47.   (princ)
    
48. )

<br /> (defun c:11 (/ dcl_id li w0 w1 w2 z0 z1)<br />   (setq dcl_id (load_dialog "tcsya.dcl"))<br />   (if (not (new_dialog "activ" dcl_id))<br />     (exit)<br />   )<br />   (setq        w1 (vlax-get-acad-object)<br />         w2 (vla-get-activedocument w1)<br />         li (vla-get-documents w1)<br />         z1 '()<br />   )<br />   (vlax-for z0 li<br />     (setq z1 (cons (cons z0<br />                          (strcase<br />                            (vl-filename-base (vla-get-name z0))<br />                          )<br />                    )<br />                    z1<br />              )<br />     )<br />   )<br />   (if (> (length z1) 1)<br />     (setq z1 (append (member (assoc w2 z1)<br />                              (reverse z1)<br />                      )<br />                      (cdr (member (assoc w2 z1) z1))<br />              )<br />     )<br />   )<br />   (setq li '())<br />   (foreach z0 z1 (setq li (cons (cdr z0) li)))<br />   (setq li (reverse li))<br />   (start_list "w0")<br />   (mapcar 'add_list li)<br />   (end_list)<br />   (set_tile "w0" "0")<br />   (action_tile "w0" "(setq w0 $value)")<br />   (if (and (= (start_dialog) 1) w0 (/= w0 "0"))<br />     (progn (unload_dialog dcl_id)<br />            (setq w0 (read w0)<br />                  z0 (car (nth w0 z1))<br />            )<br />            (vla-put-activedocument w1 z0)<br />     )<br />   )<br />   (princ)<br /> )

*******************************************
附DCL文件内容

2. 
   
3. activ:dialog{label="切换当前文档";initial_focus="cancel";
   
4.    : column {spacer;
   
5.    :text_part{label=" 当前文档窗口为";}spacer;
   
6.    :list_box{key = "w0";width = 20;height = 12;
   
7.                 allow_accept = true;}spacer;
   
8.    :text_part{label=" 可以双击进行当前文档切换";}
   
9.    }spacer;
   
10.    ok_cancel;
    
11. }

<br /> activ:dialog{label="切换当前文档";initial_focus="cancel";<br />    : column {spacer;<br />    :text_part{label=" 当前文档窗口为";}spacer;<br />    :list_box{key = "w0";width = 20;height = 12;<br />                 allow_accept = true;}spacer;<br />    :text_part{label=" 可以双击进行当前文档切换";}<br />    }spacer;<br />    ok_cancel;<br /> }

lhj743

文件名保存有要求吗？
请楼主说明一下。

zxmmelly

用一下先

zhynt

直接点“窗口”菜单下方的图形列表不是更快吗？或者使用“Ctrl+Tab”来进行切换。

chdragon

怎么用啊？

wxl1981807

好东东，画图时方便点了

hyx_lyn

我以前都是用快捷键

现在试试楼主的程序是不是更好用

gandy3883

高手！谢谢！

风如水

牛！！！