[求助]怎么在文档之间切换

phos

设置sdi=0， 怎么在文档之间切换？
比如：我打开1.dwg，我在vba中用ThisDrawing.Application.Documents.Open ("C:\2.dwg")打开2.dwg，我要对2..dwg中的元素进行操作，如何实现？不关闭2.dwg，又如何对1.dwg进行操作？
如果设置单文档会有什么不同？

我是想用vba程序把一个目录下所有dwg文件，汉字注记为“XX市”、“XX镇”等地名和每一个图形的边框集中到一个文件中，我用插入图块的方式实现了，但是速度太慢了。
我想单独打开每个文件，把要用数据写块，或者是把坐标、文字内容用txt文件记录下来，我想是不是要快一些？
请高手指点

我执行选择Sspline1.Select acSelectionSetAll, , , FilterType, FilterData
好象选择的是1.dwg中，如何选择2..dwg中的元素？

dragonboy

在文档间切换

Public Sub test()
    Dim doc As AcadDocument
    For Each doc In ThisDrawing.Application.Documents
        doc.Activate
    Next
End Sub