Dictionary error

I would like to add a dictionary to a dictionary but I'm getting an error
which, from other posts here, should only appear in Acad2000. However, I'm
getting it in Acad2004. Can someone confirm this error for me, or suggest a
better solution.

Thanks in advance,
Danny Polkinhorn
WATG
Honolulu

This code:

Dim objDict As AcadDictionary
Dim objNestedDict As AcadDictionary

Set objDict = ThisDrawing.Dictionaries.Add("Dict_Root")
Set objNestedDict = objDict.AddObject("Sub_Dict", "AcDbDictionary")

Gives this error:

Run-time error -2145320940
AcRxClassName entry is not in the system registry

 

Open RegEdit and look at this key:

HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\ObjectDBX\ActiveXCLSID

Under it, there should be a subkey named "AcDbDictionary".

It should have the following item:

CLSID={F8DD32D1-F7DF-11D1-A2C8-080009DC639A}



AcadX for AutoCAD 2004 Beta 1
http://mysite.verizon.net/~vze2vjds/acadx/AcadX16.zip

 

Tony,

Thanks for your help. I do have that registry entry exactly as shown.

-Danny

 

Now go to the following key:

HKEY_CLASSES_ROOT\CLSID\{F8DD32D1-F7DF-11D1-A2C8-080009DC639A}

Under it, there should be an entry for InProcServer32.

Tell me what its value is.



AcadX for AutoCAD 2004 Beta 1
http://mysite.verizon.net/~vze2vjds/acadx/AcadX16.zip

 

Oops. The first key I showed only applies to R15.

For 2004, you have to look here (note the "R16.0" subkey):

HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\ObjectDBX\R16.0\ActiveXCLSID

And, the value under the AcDbDictionary item should be:

CLSID={B4245981-1737-491D-9BA1-88D628259F4F}

And, under

HKEY_CLASSES_ROOT\
CLSID\
{B4245981-1737-491D-9BA1-88D628259F4F}\
InprocServer32

The default value should be "AxDb16.dll"




AcadX for AutoCAD 2004 Beta 1
http://mysite.verizon.net/~vze2vjds/acadx/AcadX16.zip

 

Tony,

Thanks. The entire ActiveXCLSID section was missing. I added it in and it
works.

Thanks again for your help...
-Danny