Failure of VBA to connect to autocad (excel)
The two functions work together. If you can't get an object in the Running Object Table (ROT), then you create it. Try the function below.
'main sub
Dim AcadApp As AcadApplication
Set AcadApp = GetAcad()
Public Function GetAcad() As AcadApplication
On Error Resume Next
Dim acApp As AcadApplication
Set acApp = GetObject(, "AutoCAD.Application")
If acApp Is Nothing Then
Set acApp = CreateObject("AutoCAD.Application")
End If
Set GetAcad = acApp
End Function
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
It works for me with 2018. Open Regedit.exe and navigate to Computer\HKEY_CLASSES_ROOT\AutoCAD.Application. Following that should be some keys with numbers following. 2019 should be "AutoCAD.Application.22" if I remember right. Change your excel get/set functions to match what you have installed.
Try compiling from the Debug menu to make sure there are no compile errors.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
I'm referring to the GetObject and SetObject functions. Change them to match the classID in the registry.
GetObject(, "AutoCAD.Application.23")
SetObject("AutoCAD.Application.23")
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
Did you run Debug>Compile?
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
If the compile option is greyed out, then the code is already compiled. The code I gave you works for me with XL 2016 and AutoCAD 2018. The structure of the code hasn't changed in years.
Try a clean test of xl. Start a new blank worksheet and paste the function into ThisWorkbook module. Set the reference for AutoCAD 2019 set a breakpoint. Step through the code. If this works, then there is something in you old module that is causing the problem. If it doesn't work, there can only be two causes left.
1. One of the references in the project is invalid. For example, you are using the wrong version of AutoCAD TLB. Or, I've seen where a problem with one reference can cause errors in other tlb's, like VBA directives.
2. There is something corrupt in your AutoCAD installation. The reference to the AcadApplication type is not valid for the object being returned by the GetObject method, hence a type mismatch. I would try a clean install of AutoCAD using the following steps.
1. Go to the start menu and under your AutoCAD folder, run the app Export AutoCAD 2019 Settings. Save the settings to any folder of your choice.
2. Go to the start menu and under your Autodesk folder, run Uninstall Tool.
3. Reinstall AutoCAD
4. Go to the start menu and under your AutoCAD folder, run the app Import AutoCAD 2019 Settings using the previously saved settings.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
Did you first try the new workbook test? How did that go?
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
Before you reinstall AutoCAD, be sure that's the problem. Try this test. I changed the variable type from AcadApplication to Variant. There is no reference to an acad tlb. Run the function in the attached xlsm. A breakpoint is already set. Check the Locals window to make sure that the variant is getting set with the right type of object.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
Did you try the running the app I sent you in post 14? To see if there's something wrong with you project or it's something with the system, run the simplest test you can.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
I tried the same scenario with the same apps and it works. The test you ran shows that its something with your system. Since you reinstalled the apps, I don't know what else it could be, just that it's not a problem with the code or vba project. The only other thing I can suggest is to manually do a "clean uninstall" to remove every trace of AutoCAD before trying to reinstall. Do you have multiple versions of AutoCAD installed?
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
