' 用OpenDesignFile方法打开文件 Sub main() ' 声明文件路径及文件名字符串 Dim txtFileName As String txtFileName = "D:/road.dgn" ' 打开文件 On Error GoTo Err Application.OpenDesignFile txtFileName, False, msdV7ActionWorkmode On Error GoTo 0 Exit Sub ' 错误捕捉 Err: MsgBox Err.Description Resume Next End Sub