Changing Xref Paths

[jason907238]

I can't figure this one out. I am trying to modify the path of xrefs in a file. It seams to work as I watch it go through it's loops but it does not save the information. I have tried a few other things but I have not had any luck. here is what I have so far....

    Private Sub ModifyAllXrefPaths(ByVal FileName As String, ByVal NewPath As String)
        Dim mDB As New Autodesk.AutoCAD.DatabaseServices.Database
        mDB.ReadDwgFile(FileName, FileOpenMode.OpenForReadAndWriteNoShare, _\
                                    True, "")
        Dim mTransman As Autodesk.AutoCAD.DatabaseServices.TransactionManager = _
                                      mDB.TransactionManager
        Dim mTrans As Autodesk.AutoCAD.DatabaseServices.Transaction = _
                                      mTransman.StartTransaction
        Dim mBT As BlockTable = mTrans.GetObject(mDB.BlockTableId, _
                                      OpenMode.ForWrite, False)

        For Each mBTR_ID As ObjectId In mBT
            Dim mBTR As BlockTableRecord = mBTR_ID.GetObject(OpenMode.ForWrite)
            If mBTR.IsFromExternalReference Then
                mBTR.PathName = Replace(mBTR.PathName.ToString, ".\", NewPath)
                If InStr(mBTR.PathName.ToString, "\") Then
                    mBTR.PathName = NewPath & _
                           My.Computer.FileSystem.GetName(mBTR.PathName)
                Else
                    mBTR.PathName = NewPath & mBTR.PathName
                End If
            End If
        Next
        mTrans.Commit()
        mDB.CloseInput(True)
        mTrans.Dispose()
        mDB = Nothing
        mBT = Nothing
    End Sub

[jason907238]

I have tried Save and SaveAs but they do not work either. Commit should have done it.

I believe that it might not be accepting the entry when it switches to the next BlockTableRecord.

Any help would be appreciated!!

[jason907238]

I cleaned it up a little and added a few things in but I still can't get it to save the new paths.

 Private Sub ModifyXrefPath(ByVal FileName As String, ByVal OrigPath As String, ByVal DestinationPath As String)
        Dim mDB As New Autodesk.AutoCAD.DatabaseServices.Database
        mDB.ReadDwgFile(FileName, FileOpenMode.OpenForReadAndWriteNoShare, True, "")
        Dim mTransman As Autodesk.AutoCAD.DatabaseServices.TransactionManager = mDB.TransactionManager
        Dim mTrans As Autodesk.AutoCAD.DatabaseServices.Transaction = mTransman.StartTransaction
        Dim mBT As BlockTable = mTrans.GetObject(mDB.BlockTableId, OpenMode.ForWrite, False)

        Using mTrans
            For Each mBTR_ID As ObjectId In mBT
                Dim mBTR As BlockTableRecord = mBTR_ID.GetObject(OpenMode.ForWrite)
                If mBTR.IsFromExternalReference Then
                    Dim mPathName As String = mBTR.PathName.ToString
                    mPathName = Replace(mPathName, ".\", OrigPath)

                    mDB.XrefEditEnabled = True
                    If InStr(origPath, "\") Then
                        mBTR.PathName = DestinationPath & My.Computer.FileSystem.GetName(mPathName)
                    Else
                        mBTR.PathName = DestinationPath & mPathName
                    End If
                End If
            Next
            mTrans.Commit()
        End Using
        mDB.CloseInput(True)
        mTrans.Dispose()
    End Sub

[Ed Jobe]

Try this thread at the swamp.

[jason907238]

I don’t know if this is the correct way of doing this but I managed to get it working. I loaded a couple of more references (acaz18enu.tlb and axdb18enu.tlb). Then I wrote the following code and it works great.

Private Sub ModifyXref(ByVal ParentFileName As String, ByVal OldSourceName As String, ByVal NewSourceName As String)
        Dim mDoc As New Autodesk.AutoCAD.Interop.Common.AxDbDocument

        mDoc.Open(ParentFileName)
        For Each mBlock As Autodesk.AutoCAD.Interop.Common.AcadBlock In mDoc.Blocks
            If mBlock.IsXRef Then
                If mBlock.Path = OldSourceName Then mBlock.Path = NewSourceName
            End If
        Next
        mDoc.Save()
        mDoc = Nothing
    End Sub

[jason907238]

correction... you need to use SaveAs instead of Save

mDoc.SaveAs(ParentFileName)