急问！！怎么可以实现批量插入xref文件？
我现在有一批地形图（上千张，在一个目录下的不同子目录里）需要外插成一幅整图，使用xref时的插入点都是一样的（0，0），请问如何才能一次选多个文件或者整个目录全部插入？请大侠们帮忙！多谢了！我的参考意见
以下用VBA为程序描述语言，如果你使用其它开发模式，应该也可以参考。(若还有什么困难，可以到明经相应的栏目提问)。因为不知道你存放图形的目录树的深度和广度，以下用函数递归的方法实现目录及其子目录的遍历。
Private Sub DwgIterator(FolderSpec)'FolderSpec是你图形存盘的根目录
Dim FileSys,Fs,F,Fi,SubFold
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set Fs = FileSys.GetFolder(FolderSpec)
Set F=FileSys.Files
For Each Fi In F'扫描FolderSpec目录的文件
If Fi.Type="AutoCAD Drawing" Then'若文件是ACAD图形文件
'在这添加代码，插入Xref对象
End If
Next
Set SubFold = FileSys.SubFolders
For Each Fi In SubFold '扫描FolderSpec目录的子目录
DwgIterator Fi.Path '递归调用
Next
End Sub
页:
[1]