change xref path (batch)

yoitsarun — Mon, 02 Sep 2019 16:00:54 GMT

Hi all,

Trying to change xref path if xref is unloaded, but it only reloads, path is not changing.

please help me to figure it out.

Private Sub button_Publish_Click(sender As Object, e As EventArgs) Handles button_Publish.Click

        Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor

               If openFile1.FileNames.Length > 0 Then
            Dim strFile As String
            For Each strFile In openFile1.FileNames

                Using db As Database = New Database(False, True)
                    db.ReadDwgFile(strFile, FileOpenMode.OpenForReadAndAllShare, False, Nothing)

                    Dim doc As Document = Application.DocumentManager.MdiActiveDocument
                    Dim collection As ObjectIdCollection = New ObjectIdCollection()

                    Using tr As Transaction = db.TransactionManager.StartTransaction()
                        Dim bt As BlockTable = TryCast(tr.GetObject(db.BlockTableId, OpenMode.ForRead), BlockTable)

                        For Each btrId As ObjectId In bt
                            Dim btr As BlockTableRecord = TryCast(tr.GetObject(btrId, OpenMode.ForRead), BlockTableRecord)

                            If btr.IsFromExternalReference And btr.IsUnloaded Then

                                Collection.Add(btrId)
                                btr.UpgradeOpen()
                                Dim oldPath As String = btr.PathName
                                Dim newpath As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "Temp.dwg")
                                btr.PathName = newpath
                                ed.WriteMessage(String.Format("{0}Old Path : {1} New Path : {2}", Environment.NewLine, oldPath, newpath))
                            End If
                        Next
                        If Collection.Count > 0 Then
                            db.ReloadXrefs(Collection)
                        End If
                        tr.Commit()
                    End Using
                    db.SaveAs(db.OriginalFileName, True, db.OriginalFileVersion, db.SecurityParameters)
                End Using


            Next
        End If

    End Sub

Re: change xref path (batch)

yoitsarun — Tue, 03 Sep 2019 07:50:23 GMT

any solution?

Re: change xref path (batch)

yoitsarun — Wed, 04 Sep 2019 18:38:34 GMT

Please help

topic change xref path (batch) in .NET Forum

change xref path (batch)

Re: change xref path (batch)

Re: change xref path (batch)