寻求《CAD窗口切换.lsp》

726613

在CAD制图中打开多个窗口，是可以用CTRL+TAB来切换，但我觉得用组合键不够快。现本人需要lsp程序来切换，寻求程序高手指点如何编写。

Andyhon

Autolisp 进场多年后才有多档模式
到了 Visual Lisp 仍未支援切换
也就是其效力仅及于启用它的工作档(ActiveDrawing / activedocument)
另 Ref: vla-activate ....

richine001

同求，确实用CTRL+TAB来切换有点那个

Andyhon

找个 iDwgTab2.0.0.5 试试合手否

xshrimp

要使用需把这段放在自动加载的程序里面.如 acad.mnl里面

2. (defun c:test( / acdocs cdwgname doclist dwglst dwgname i val)
   
3.     (defun CurDwgList ( / acdocs doclist dwgname i)
   
4.       (setq acdocs (vlax-get-property (vlax-get-acad-object) 'Documents))
   
5.       (vlax-for i acdocs
   
6.         (setq dwgname (vlax-get-property i 'Name))
   
7.         (setq doclist (append doclist (list (list dwgname i))))   
   
8.       )
   
9.       (vlax-release-object acdocs)
   
10.        doclist
    
11.     )
    
12.     (setq dwglst (CurDwgList))
    
13.     (setq cdwgname (getvar "dwgname"))
    
14.     (if(setq val (cadr(member(assoc cdwgname dwglst)dwglst)))  
    
15.       (vl-catch-all-apply 'vla-Activate (list (cadr val) ))
    
16.       (vl-catch-all-apply 'vla-Activate (list (cadar  dwglst)))
    
17.     )
    
18.   )

(defun c:test( / acdocs cdwgname doclist dwglst dwgname i val)<br />     (defun CurDwgList ( / acdocs doclist dwgname i)<br />       (setq acdocs (vlax-get-property (vlax-get-acad-object) 'Documents))<br />       (vlax-for i acdocs<br />         (setq dwgname (vlax-get-property i 'Name))<br />         (setq doclist (append doclist (list (list dwgname i))))    <br />       )<br />       (vlax-release-object acdocs)<br />        doclist <br />     )<br />     (setq dwglst (CurDwgList))<br />     (setq cdwgname (getvar "dwgname"))<br />     (if(setq val (cadr(member(assoc cdwgname dwglst)dwglst)))  <br />       (vl-catch-all-apply 'vla-Activate (list (cadr val) ))<br />       (vl-catch-all-apply 'vla-Activate (list (cadar  dwglst)))<br />     )<br />   )

richine001

上面的代码还是没定义快捷键哈，不懂哈

自贡黄明儒

好象G版用opendcl写了一个

richine001

但是不能定义快捷键

jdlfjk

把第一行的c:test中的test改成你的快捷键就行了嘛

richine001

我意思是第一个窗口Alt+1，第er个窗口Alt+2，