Application.CreateDesignFile

Sub Main() Dim txtNewDesignFileName As String ' 新文件的文件名 txtNewDesignFileName = "D:/roads.dgn" ' 创建新文件 ' 参数 False - 只是创建文件而不打开文件 ' True - 关闭当前文件,打开新建的文件 On Error GoTo Err ' 判断文件是否已经存在 If Dir(txtNewDesignFileName) = "" Then Application.CreateDesignFile "seed2d", txtNewDesignFileName, True On Error GoTo 0 Exit Sub Else MsgBox "文件[" & txtNewDesignFileName & "]已经存在!" Exit Sub End IfErr: MsgBox Err.Description & "dfgkdj" Resume NextEnd Sub