<CommandMethod("OPF", CommandFlags.Session)> _
Public Shared Sub OpenFile()
    Dim acDocMgr As DocumentCollection = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager
    Dim acNewDoc As Document = acDocMgr.Open(filePath, False)
    'filepath打开的文件路径，false表示文件可改写
    Dim acDbNewDoc As Database = acNewDoc.Database
    acDocMgr.MdiActiveDocument = acNewDoc
    '将打开的文件设置为当前显示
End Sub