[求助]：如何像VBA般切换档案视窗呢?

xyz518mm

在一般操作时,可以使用 ctrl+tab 切换档案,
但使用程序操作,在VBA中的方法如下面代码,
但在LISP中该怎样编写呢?

我编写了下面程序,
但还是不行使用,
烦请各位高手帮忙解答一下.
谢谢!

2. 
   
3. Sub Example_ActivateMethod()   
   
4.   Dim drawing As AcadDocument
   
5.   For Each drawing In ThisDrawing.Application.Documents
   
6.       drawing.Activate
   
7.       MsgBox "Drawing " & drawing.Name & " is active."
   
8.       ZoomExtents      
   
9.   Next drawing  
   
10. End Sub
    

<br /> Sub Example_ActivateMethod()   <br />   Dim drawing As AcadDocument<br />   For Each drawing In ThisDrawing.Application.Documents<br />       drawing.Activate<br />       MsgBox "Drawing " & drawing.Name & " is active."<br />       ZoomExtents      <br />   Next drawing  <br /> End Sub<br />

2. 
   
3. (setq $acad (vlax-get-acad-object))
   
4. (setq adtt (vla-get-activedocument $acad))
   
5. (setq docs (vla-get-documents $acad))
   
6. 
   
7. (vlax-for X docs
   
8. (VLA-ACTIVATE X)
   
9. (vla-ZoomExtents X)
   
10. (setq FName (vla-get-Name X))
    
11. (print FName)
    
12. )
    

<br /> (setq $acad (vlax-get-acad-object))<br /> (setq adtt (vla-get-activedocument $acad))<br /> (setq docs (vla-get-documents $acad))<br /> <br /> (vlax-for X docs<br /> (VLA-ACTIVATE X)<br /> (vla-ZoomExtents X)<br /> (setq FName (vla-get-Name X))<br /> (print FName)<br /> )<br />