VB。Net-使用OU编辑dwg文件

       <CommandMethod("ChangeXrefPath")> _
       Public Sub ChangeXrefPath()
           Using db As New Database(False, True)
               Try
                   db.ReadDwgFile("C:\Test\XrefHost.dwg", FileOpenMode.OpenForReadAndWriteNoShare, True, Nothing)
                   Using trx As Transaction = db.TransactionManager.StartTransaction()
                       Dim bt As BlockTable = trx.GetObject(db.BlockTableId, OpenMode.ForRead)
                       For Each objId As ObjectId In bt
                           Dim btr As BlockTableRecord = trx.GetObject(objId, OpenMode.ForRead)
                           If btr.IsFromExternalReference Then
                               btr.UpgradeOpen()
                               btr.PathName = "C:\Test\NewLocation\XrefDrawing.dwg"
                               Exit For
                           End If
                       Next
                       trx.Commit()
                   End Using
                   db.SaveAs(db.Filename, True, DwgVersion.Current, db.SecurityParameters)
               Catch
               End Try
           End Using
           System.IO.File.Move("C:\Test\XrefDrawing.dwg", "C:\Test\NewLocation\XrefDrawing.dwg")
       End Sub
   End Class