Message 1 of 1
AsdkUnSup2000 reference problem

Not applicable
01-16-2007
12:36 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi group !
I am using AsdkUnsupp2000.arx to move objects to front from VBA (in Autocad Map 5 I think there is no other way to achieve this).:
Dim oDraworder As AcadSortentsTable
Set oDraworder = Nothing
On Error Resume Next
Set oDraworder = ThisDrawing.ModelSpace.GetExtensionDictionary("ACAD_SORTENTS")
On Error GoTo 0
If oDraworder Is Nothing Then
Set oDraworder =
ThisDrawing.ModelSpace.GetExtensionDictionary.AddObject("ACAD_SORTENTS", "AcDbSortentsTable")
End If
The problem is that sometimes on clients computers (it appears to be random, even though I know it is not), I have a message alerting that "The method AddObject of IAcadDictionary failed".
If I remove the reference to AsdkUnSupp2000 from my VBA project then re-reference it, the code works fine !
What should I do to fix this ?
Thanks for your help !
--
Arnaud
I am using AsdkUnsupp2000.arx to move objects to front from VBA (in Autocad Map 5 I think there is no other way to achieve this).:
Dim oDraworder As AcadSortentsTable
Set oDraworder = Nothing
On Error Resume Next
Set oDraworder = ThisDrawing.ModelSpace.GetExtensionDictionary("ACAD_SORTENTS")
On Error GoTo 0
If oDraworder Is Nothing Then
Set oDraworder =
ThisDrawing.ModelSpace.GetExtensionDictionary.AddObject("ACAD_SORTENTS", "AcDbSortentsTable")
End If
The problem is that sometimes on clients computers (it appears to be random, even though I know it is not), I have a message alerting that "The method AddObject of IAcadDictionary failed".
If I remove the reference to AsdkUnSupp2000 from my VBA project then re-reference it, the code works fine !
What should I do to fix this ?
Thanks for your help !
--
Arnaud