topic Re: Load dll-files in Acad2013 in .NET Forum

Load dll-files in Acad2013

stefan.hofer — Thu, 29 Mar 2012 07:42:24 GMT

Someone already tried to load VB dll's in Acad2013?

They dont work for me - no message and no error, nothing happens.

in 2012 they worked well.

Re: Load dll-files in Acad2013

Alfred.NESWADBA — Thu, 29 Mar 2012 07:44:42 GMT

Hi,

do you mean VB6 dll's oder VB.NET dll's

Have you set new references (according to AutoCAD 2013/19.0) before you compiled the DLL's?

A little bit little, your info 😉

- alfred -

Re: Load dll-files in Acad2013

stefan.hofer — Thu, 29 Mar 2012 08:33:17 GMT

ahhhh

you'r right i have to rebuild my scripts with the r19 references...

i hope this works - i get errors in my code with the new references.

thanks

Re: Load dll-files in Acad2013

Alfred.NESWADBA — Thu, 29 Mar 2012 08:37:48 GMT

Hi,

>> i get errors in my code with the new references

Yes, there are some modifications necessary to your code as there are some moves of functions/properties to different DLLs/different namespaces. But as long as we don't see what error you have we can't do anything for you 😉

- alfred -

Re: Load dll-files in Acad2013

stefan.hofer — Thu, 29 Mar 2012 09:35:48 GMT

ok, one error left...

    Public ReadOnly Property ThisDrawing As AcadDocument
        Get
            Return   Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.AcadDocument
        End Get
    End Property

msg:

AcadDocument is not a member of Autodesk.AutoCAD.ApplicationServices.Document

Re: Load dll-files in Acad2013

Alfred.NESWADBA — Fri, 30 Mar 2012 02:13:41 GMT

Hi,

one global change you have to do is to add a new DLL to the references:

AcCoreMgd.dll

To your statement getting asscess to the COM-based AcadDocument you have to use this way:

Dim tAcadDoc as ApplicationServices.Document
Dim tAcadDocCOM as Interop.AcadDocument

tAcadDoc = ApplicationServices.Application.DocumentManager.MdiActiveDocument

tAcadDocCOM = CType(ApplicationServices.DocumentExtension.GetAcadDocument(tAcadDoc), Interop.AcadDocument)

HTH, - alfred -

Re: Load dll-files in Acad2013

stefan.hofer — Fri, 30 Mar 2012 06:48:20 GMT

Ty for your help, but i have a other problem now LOL

EDIT:

OK, i updated my project to NETframework 4.0... seems to work now. Thank you very much!

Re: Load dll-files in Acad2013

stefan.hofer — Fri, 30 Mar 2012 07:04:12 GMT

To get "ThisDrawing" i use

Return DocumentExtension.GetAcadDocument(Application.DocumentManager.MdiActiveDocument)

now.

if someone have the same problem...

Re: Load dll-files in Acad2013

Anonymous — Wed, 07 Jan 2015 10:33:37 GMT

Thanks Alfred,

DocumentExtension worked for me.

I have to make a code of my ex-colleague usable for AutoCAD 2015, so i don't have much experience with the code.

The problem is that he declared tAcadDoc as editor.

If i use your code i wont get that error anymore (tAcadDoc --> doc1) (tAcadDocCOM --> ed) but it gives me extra errors after it.

Dim ed as ApplicationServices.Document

Dim doc1 as Interop.AcadDocument

ed = ApplicationServices.Application.DocumentManager.MdiActiveDocument

doc1 = CType(ApplicationServices.DocumentExtension.GetAcadDocument(ed), Interop.AcadDocument)

Old code:

Dim doc1 As Autodesk.AutoCAD.Interop.AcadDocument = Application.DocumentManager.MdiActiveDocument.AcadDocument

Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor

Because ed is now declared as ApplicationServices.Document, i can't use for example ed.WriteMessage because it's not declared as editor anymore:

ed.WriteMessage(vbCrLf & "Initializing - Loading User Preferences - ST-CadCommands." & vbCrLf)

I tried to declare ed as editor but then it says that it can't convert ApplicationServices.Application.DocumentManager.MdiActiveDocument to EditorIput.Editor

I have added accoremgd, acdbmgd, AcDx, Acmgd, AutoCAD, Interop, Interop.Common and AXDBLib to the references

Can you help me further?

Arjan

Re: Load dll-files in Acad2013

stefan.hofer — Wed, 07 Jan 2015 12:16:45 GMT

Dim doc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
Dim db As Database = doc.Database
Dim ed As Editor = doc.Editor

try this...

Re: Load dll-files in Acad2013

Anonymous — Thu, 08 Jan 2015 07:43:12 GMT

Thank you very much:)

That totally worked for me!