ObjectARX AUTOCAD 2013 - VisualStudioExpress 2010

[lucalenzi82701057]

Ciao a tutti,
sto provando a scrivere un' applicazione per leggere blocchi da disegni autocad ed importarli nel disegno corrente.

Non riesco a capire il motivo dell' errore nella funzione di Insert:

        <Autodesk.AutoCAD.Runtime.CommandMethod("INSERISCI")> _
        Public Shared Sub Inserisci()
            Dim tDoc As ApplicationServices.Document = ApplicationServices.Application.DocumentManager.MdiActiveDocument
            Dim tDocDB As DatabaseServices.Database = tDoc.Database
            Dim tDocLock As ApplicationServices.DocumentLock = Nothing
            Dim tTrAct As DatabaseServices.Transaction = Nothing


            Dim tDwgFileName As String = "C:\Users\UTENTE\Documents\VB.NET\HelloWorld\test1.dwg"
            Dim tBlockName As String = "test1"
            Dim tBlTabRecID As ObjectId = Nothing


            Dim tDB As DatabaseServices.Database = Nothing
            Try
                If IO.File.Exists(tDwgFileName) Then
                    tDocLock = tDoc.LockDocument
                    tTrAct = tDoc.TransactionManager.StartTransaction


                    tDB = New Database(False, True)
                    tDB.ReadDwgFile(tDwgFileName, IO.FileShare.None, True, "")


                    tDocDB.Insert(Matrix3d.Displacement(New Vector3d(0, 0, 0)), tDB, True) '<-------- OK!


                    'Errore!
                    tBlTabRecID = tDocDB.Insert(tBlockName, tDB, False) <------ Errore eSelfReference!


                    tTrAct.Commit()
                Else
                    MsgBox("File: " & tDwgFileName & " could not be found!")
                End If


            Catch ex As Autodesk.AutoCAD.Runtime.Exception
                MsgBox("ReadFromDWG:" & ex.Message & vbNewLine & ex.StackTrace)
            Finally
                If tTrAct IsNot Nothing Then tTrAct.Dispose() : tTrAct = Nothing
                If tDocLock IsNot Nothing Then tDocLock.Dispose() : tDocLock = Nothing
            End Try
        End Sub

Cosa sbaglio??

Grazie!

[BlackBox]

English (Google Translate):

Hello everyone,
I'm trying to write an 'application to read blocks from AutoCAD drawings and import them into the current drawing.

I can not understand the reason of 'error in the function Insert:

        <Autodesk.AutoCAD.Runtime.CommandMethod("INSERISCI")> _
        Public Shared Sub Inserisci()
            Dim tDoc As ApplicationServices.Document = ApplicationServices.Application.DocumentManager.MdiActiveDocument
            Dim tDocDB As DatabaseServices.Database = tDoc.Database
            Dim tDocLock As ApplicationServices.DocumentLock = Nothing
            Dim tTrAct As DatabaseServices.Transaction = Nothing


            Dim tDwgFileName As String = "C:\Users\UTENTE\Documents\VB.NET\HelloWorld\test1.dwg"
            Dim tBlockName As String = "test1"
            Dim tBlTabRecID As ObjectId = Nothing


            Dim tDB As DatabaseServices.Database = Nothing
            Try
                If IO.File.Exists(tDwgFileName) Then
                    tDocLock = tDoc.LockDocument
                    tTrAct = tDoc.TransactionManager.StartTransaction


                    tDB = New Database(False, True)
                    tDB.ReadDwgFile(tDwgFileName, IO.FileShare.None, True, "")


                    tDocDB.Insert(Matrix3d.Displacement(New Vector3d(0, 0, 0)), tDB, True) '<-------- OK!


                    'Errore!
                    tBlTabRecID = tDocDB.Insert(tBlockName, tDB, False) <------ Errore eSelfReference!


                    tTrAct.Commit()
                Else
                    MsgBox("File: " & tDwgFileName & " could not be found!")
                End If


            Catch ex As Autodesk.AutoCAD.Runtime.Exception
                MsgBox("ReadFromDWG:" & ex.Message & vbNewLine & ex.StackTrace)
            Finally
                If tTrAct IsNot Nothing Then tTrAct.Dispose() : tTrAct = Nothing
                If tDocLock IsNot Nothing Then tDocLock.Dispose() : tDocLock = Nothing
            End Try
        End Sub

What is wrong ??

Thanks!

[BlackBox]

Consider the meaning of the Exception being raised, and note the name of both your source drawing (being opened as side Database), and the block you're attempting to Insert():

[Google Translate] Si consideri il significato della eccezione sollevata, e prendere nota del nome del sia il vostro disegno di origine (come l'apertura del database lato), e il blocco che si sta tentando di inserire ():

        <Autodesk.AutoCAD.Runtime.CommandMethod("INSERISCI")> _
        Public Shared Sub Inserisci()
            Dim tDoc As ApplicationServices.Document = ApplicationServices.Application.DocumentManager.MdiActiveDocument
            Dim tDocDB As DatabaseServices.Database = tDoc.Database
            Dim tDocLock As ApplicationServices.DocumentLock = Nothing
            Dim tTrAct As DatabaseServices.Transaction = Nothing


            Dim tDwgFileName As String = "C:\Users\UTENTE\Documents\VB.NET\HelloWorld\test1.dwg"
            Dim tBlockName As String = "test1"
            Dim tBlTabRecID As ObjectId = Nothing


            Dim tDB As DatabaseServices.Database = Nothing
            Try
                If IO.File.Exists(tDwgFileName) Then
                    tDocLock = tDoc.LockDocument
                    tTrAct = tDoc.TransactionManager.StartTransaction


                    tDB = New Database(False, True)
                    tDB.ReadDwgFile(tDwgFileName, IO.FileShare.None, True, "")


                    tDocDB.Insert(Matrix3d.Displacement(New Vector3d(0, 0, 0)), tDB, True) '<-------- OK!


                    'Errore!
                    tBlTabRecID = tDocDB.Insert(tBlockName, tDB, False) <------ Errore eSelfReference!


                    tTrAct.Commit()
                Else
                    MsgBox("File: " & tDwgFileName & " could not be found!")
                End If


            Catch ex As Autodesk.AutoCAD.Runtime.Exception
                MsgBox("ReadFromDWG:" & ex.Message & vbNewLine & ex.StackTrace)
            Finally
                If tTrAct IsNot Nothing Then tTrAct.Dispose() : tTrAct = Nothing
                If tDocLock IsNot Nothing Then tDocLock.Dispose() : tDocLock = Nothing
            End Try
        End Sub

That said, give this DevBlog article a read, and note the usage of WblockCloneObjects() instead of Insert() Method:

[Google Translate] Detto questo, dare a questo articolo Devblog una lettura, e notare l'uso di WblockCloneObjects () al posto di Insert () Metodo:

http://adndevblog.typepad.com/autoca...sing-net-.html




Separatamente, dove in Italia si chiama a casa? Abbiamo famiglia lì; mia Nonna vive appena fuori Venezia!

Ciao

[lucalenzi82701057]

Hi, first of all thanks for your fast reply.

I have discover so the mistake...I have change the blockname from:

Dim tBlockName As String = "test1"

...to

Dim tBlockName As String = "test2"

and it works.

But I have seen that in block list I have both "test1" and "test2" with "DB.Insert" command.
How to keep only one block, that read from dwg file?

So, to insert an external drawing directly into the current drawing to I have to use matrix object, right?

tDocDB.Insert(Matrix3d.Displacement(New Vector3d(0, 0, 0)), tDB, True)

...and to add a block read from an external drawing into blocklist do I have to use WblockCloneObjects, right?

Thanks

[BlackBox]

Hi, first of all thanks for your fast reply.

You're welcome.

I have discover so the mistake...I have change the blockname from:

Dim tBlockName As String = "test1"

...to

Dim tBlockName As String = "test2"

and it works.

But I have seen that in block list I have both "test1" and "test2" with "DB.Insert" command.
How to keep only one block, that read from dwg file?

So, to insert an external drawing directly into the current drawing to I have to use matrix object, right?

tDocDB.Insert(Matrix3d.Displacement(New Vector3d(0, 0, 0)), tDB, True)

...and to add a block read from an external drawing into blocklist do I have to use WblockCloneObjects, right?

As I understand it (and I could be mistaken), Database.Insert() is only used to insert the entirety of another drawing into MdiActiveDocument (like the INSERT Command), or an existing BlockTableRecord within the current Database into same Database as BlockReference, etc.... Whereas Database.WblockCloneObjects() Method is used to 'copy' objects (and their BlockTableRecord[s], etc.) from one drawing to another (without INSERTing the entire source drawing).

Here's another reference:

http://through-the-interface.typepad..._blocks_f.html



HTH (Hope This Helps)