topic Re: Problem in loading Application in VBA Forum

Problem in loading Application

Anonymous — Wed, 13 Jun 2018 15:48:35 GMT

I have a VBA program for in which I am getting error as

Run time error'-2147221005(800401f3)':

Problem in loading application for the code

Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.2")

I have 64 bit system

Can anyone please give solution for this

thanks

Re: Problem in loading Application

norman.yuan — Wed, 13 Jun 2018 16:12:23 GMT

The ProgId argument you passed into GetInterfaceObject() method is probably wrong. It should be like

"AutoCAD.AcCmColor.xx", where xx is AutoCAD version, which must be a 2-digit number, because the very early version of AutoCAD, when it had 1-digit version number, did not have AcCmColor class used then.

You did not say whichversion of AutoCAD you use, so here is what you need to use

For Acad2015, use AutoCAD.AcCmColor.20

For Acad2016/17, use AutoCAD.AcCmColor.21

For Acad2018, use AutoCAd.AcCmColor.22

For Acad2019, use AutoCAD.AcCmColor.23

Re: Problem in loading Application

Anonymous — Wed, 13 Jun 2018 16:19:07 GMT

Thanks

Re: Problem in loading Application

rmcefr — Tue, 27 Apr 2021 02:16:25 GMT

Hello Sir

what about if we use autoCAD2021 , what is the ProgId here?

thanks

Re: Problem in loading Application

rmcefr — Tue, 27 Apr 2021 02:20:46 GMT

it is ok we have to use "AutoCAD.AcCmColor.23"

Re: Problem in loading Application

norman.yuan — Tue, 27 Apr 2021 02:24:32 GMT

You could have found it out easily/quickly by looking up windows registry "\HKEY_CLASSES_ROOT\AutoCAD.AcCmColor.XX"

For AutoCAD2019 and 2020, it is "AutoCAD.AcCmColor.23", or AutoCAD2021, it is "AutoCAD.AcCmColor.24".

No, it is not OK to use the ProgID for wrong version of AutoCAD.

Re: Problem in loading Application

rmcefr — Tue, 27 Apr 2021 12:04:07 GMT

Yes Sir 24, sorry

Re: Problem in loading Application

Anonymous — Thu, 29 Jul 2021 18:50:05 GMT

I found this from AUGI Forum :

Dim sVer As String = Left(acadDoc.GetVariable("ACADVER"), 2)
Set Color = acadApp.GetInterfaceObject("AutoCAD.AcCmColor." & sVer)

Hope this help.