Problem in loading Application

[Anonymous]

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

[norman.yuan · Accepted solution]

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

[Anonymous]

Thanks

[rmcefr]

Hello Sir

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

thanks

[rmcefr]

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

[norman.yuan · Accepted solution]

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.

[rmcefr]

Yes Sir 24, sorry

[Anonymous]

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.