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

vken7az2p

在一般操作时,可以使用 ctrl+tab 切换档案,
但使用程序操作,在VBA中的方法如下面代码,
但在LISP中该怎样编写呢?
小弟编写了下面程序,但还是不行使用,
烦请各位高手帮忙解答一下.
谢谢!

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

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

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

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

lyd2003001

是在开图时就指定文档指针,然后通过这个指针操作的吧。

sailorcwx

可以通过Vlisp实现