topic batch xref bind vb.net in .NET Forum

batch xref bind vb.net

yoitsarun — Sun, 25 Aug 2019 16:53:32 GMT

i tried to batch bind xrefs but getting "invalid input error"

could any one please help me please:

Namespace FormVB
    Public Class RunApp
        <autodesk.autocad.runtime.commandmethod("bxb", autodesk.autocad.runtime.commandflags.session)="">
        Public Shared Sub InitForm()
            Dim frm As New BatchXrefBind
            Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
              Dim result As DialogResult = Autodesk.AutoCAD.ApplicationServices.Application.ShowModalDialog(frm)

        End Sub
    End Class
End Namespace


Public Class BatchXrefBind
    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
                Dim openFile1 As OpenFileDialog = New OpenFileDialog()

               openFile1.InitialDirectory = "C\"
        openFile1.Filter = "Drawing Files|*.dwg"
        openFile1.Multiselect = True

                If openFile1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            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 bTransMan As DatabaseServices.TransactionManager
                        Dim bTrans As DatabaseServices.Transaction
                        Dim bDwg As Document
                        Dim bBT As BlockTable
                        Dim bBTR As SymbolTableRecord
                        Dim bBTE As SymbolTableEnumerator
                        Dim bBTRr As BlockTableRecord

                       
                        bDwg = Application.DocumentManager.MdiActiveDocument
                        bTransMan = bDwg.TransactionManager

                        bTrans = bTransMan.StartTransaction
                        Try
                            
                            bBT = bDwg.Database.BlockTableId.GetObject(OpenMode.ForRead)
                            bBTE = bBT.GetEnumerator

                            Dim XrefIds As New ObjectIdCollection

                            While bBTE.MoveNext = True
                                bBTR = bBTE.Current.GetObject(OpenMode.ForRead)

                                bBTRr = CType(bBTR, BlockTableRecord)

                                
                                If bBTRr.IsFromExternalReference And bBTRr.IsResolved Then
                                    XrefIds.Add(bBTR.Id)
                                End If

                            End While

                            
                            Try
                                bDwg.Database.BindXrefs(XrefIds, False)
                            Catch ex As Exception
                                MsgBox("Error: " & ex.Message)
                            End Try

                             bTrans.Commit()
                            

                        Catch ex As Exception
                            MsgBox(ex.Message, MsgBoxStyle.Critical)
                        Finally
                            bTrans.Dispose()
                            bTransMan.Dispose()
                        End Try


                        db.SaveAs(db.OriginalFileName, True, db.OriginalFileVersion, db.SecurityParameters)

                    End Using
                Next
            End If
        End If

 End Sub


</autodesk.autocad.runtime.commandmethod("bxb",>

Re: batch xref bind vb.net

_gile — Sun, 25 Aug 2019 17:47:26 GMT

Hi,

I'm not very cumfortable with VB but this line hurts me:

openFile1.InitialDirectory = "C\"

If this is not the source of the error, could you say which line throws the "invalid input error" error.

Re: batch xref bind vb.net

yoitsarun — Sun, 25 Aug 2019 18:09:25 GMT

error message is from here:

Try
     bDwg.Database.BindXrefs(XrefIds, False)
     Catch ex As Exception
     MsgBox("Error: " & ex.Message)
End Try

Re: batch xref bind vb.net

yoitsarun — Sun, 25 Aug 2019 18:13:41 GMT

one more thing this code is working if i run individually (not as batch).

Re: batch xref bind vb.net

_gile — Sun, 25 Aug 2019 18:32:45 GMT

To know the line the error occured, you can try replacing the Catch block with this:

Try
     bDwg.Database.BindXrefs(XrefIds, False)
     Catch ex As Exception
     MsgBox("Error: " & ex.Message & vbCr & ex.StackTrace)
End Try

Re: batch xref bind vb.net

yoitsarun — Sun, 25 Aug 2019 18:48:01 GMT

error is:

Re: batch xref bind vb.net

_gile — Sun, 25 Aug 2019 18:53:28 GMT

The error is due to line 183 in the file BatchXrefBind.vb.

Re: batch xref bind vb.net

yoitsarun — Sun, 25 Aug 2019 18:55:18 GMT

yes, but i dont know what is the error in this code

bDwg.Database.BindXrefs(XrefIds, False)

Re: batch xref bind vb.net

_gile — Sun, 25 Aug 2019 21:08:13 GMT

The error is probably due the the contents of XrefIds.

Pay attention to what's said i the documentation for the BindXrefs method:

"The object IDs in xrefIds must all be from the database and they must all be resolved."

It seems to me bDwg is the active document (i.e. the document where the command was launched) and XrefIds contains objectIds from the opened in memory database.

Re: batch xref bind vb.net

yoitsarun — Mon, 26 Aug 2019 05:12:50 GMT

something wrong in active document ?

I am new to this, but I did xref bind program in editor using same code and it works.

How it will work in memory database, if you know something please help me.

If you are in familiar in c# it is ok. I can convert.

Re: batch xref bind vb.net

_gile — Mon, 26 Aug 2019 05:34:51 GMT

"The object IDs in xrefIds must all be from the database" i.e., the database you create 'in memory' (db).

Try:

db.BindXrefs(XrefIds, False)

Re: batch xref bind vb.net

yoitsarun — Mon, 26 Aug 2019 05:47:09 GMT

I tried this, but no luck, same "error: invalid input"

Re: batch xref bind vb.net

_gile — Mon, 26 Aug 2019 06:47:54 GMT

Try like this (not tested)

using System.Windows.Forms;

using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Runtime;

using AcCoreAp = Autodesk.AutoCAD.ApplicationServices.Core.Application;

namespace BindXrefsSample
{
    public class Commands
    {
        [CommandMethod("TEST1")]
        public static void BindXrefsInCurrentDrawing()
        {
            BindXrefs(HostApplicationServices.WorkingDatabase);
        }

        [CommandMethod("TEST2")]
        public static void BindXrefsInDwgFiles()
        {
            var ofd = new OpenFileDialog{
                InitialDirectory = "C:\\",
                Filter = "Drawing files|*.dwg",
                Multiselect = true};
            if (ofd.ShowDialog() == DialogResult.OK)
            {
                foreach (string fileName in ofd.FileNames)
                {
                    using (var db = new Database(false, true))
                    {
                        db.ReadDwgFile(fileName, FileOpenMode.OpenForReadAndAllShare, false, null);
                        BindXrefs(db);
                        db.SaveAs(fileName, true, db.OriginalFileVersion, db.SecurityParameters);
                    }
                }
            }
        }

        private static void BindXrefs(Database db)
        {
            try
            {
                var xrefIds = new ObjectIdCollection();
                using (var tr = new OpenCloseTransaction())
                {
                    var bt = (BlockTable)tr.GetObject(db.BlockTableId, OpenMode.ForRead);
                    foreach (ObjectId id in bt)
                    {
                        var btr = (BlockTableRecord)tr.GetObject(id, OpenMode.ForRead);
                        if (btr.IsFromExternalReference && btr.IsResolved)
                            xrefIds.Add(id);
                    }
                }
                db.BindXrefs(xrefIds, false);
            }
            catch (System.Exception ex)
            {
                AcCoreAp.ShowAlertDialog("Error: " + ex.Message);
            }
        }
    }
}

Re: batch xref bind vb.net

_gile — Mon, 26 Aug 2019 07:44:51 GMT

This version of the BindXrefs() method resolves the xrefs in the database before binding them.

        private static void BindXrefs(Database db)
        {
            var workingDb = HostApplicationServices.WorkingDatabase;
            HostApplicationServices.WorkingDatabase = db;
            try
            {
                db.ResolveXrefs(true, false);
                var xrefIds = new ObjectIdCollection();
                using (var tr = new OpenCloseTransaction())
                {
                    var bt = (BlockTable)tr.GetObject(db.BlockTableId, OpenMode.ForRead);
                    foreach (ObjectId id in bt)
                    {
                        var btr = (BlockTableRecord)tr.GetObject(id, OpenMode.ForRead);
                        if (btr.IsFromExternalReference && btr.IsResolved)
                            xrefIds.Add(id);
                    }
                }
                db.BindXrefs(xrefIds, false);
            }
            catch (System.Exception ex)
            {
                AcCoreAp.ShowAlertDialog("Error: " + ex.Message);
            }
            finally
            {
                HostApplicationServices.WorkingDatabase = workingDb;
            }
        }

Re: batch xref bind vb.net

yoitsarun — Mon, 26 Aug 2019 08:19:57 GMT

thanks a lot,

I will try this in the evening , and will update the results. thanks _gile

Re: batch xref bind vb.net

yoitsarun — Mon, 26 Aug 2019 14:02:08 GMT

and it is working thanks gile