LayerStateManager & Map2004

This code works great in Map2000i but not in 2004.

The GetInterfaceObject("AutoCAD.AcadLayerStateManager") I'm sure is the problem.

I've tried ("AutocadMAP.Application.2") & ("AutocadMAP.AcadLayerStateManager.2")
but they are incorrect.

Sub test()
Dim layerState As AcadLayerStateManager
Set layerState = AcadApplication.GetInterfaceObject("AutoCAD.AcadLayerStateManager")
Call layerState.SetDatabase(ThisDrawing.Database)
layerState.Save "Temp", acLsAll
End Sub

Thanks

 

Does the help file not tell you? This is from 2005 Help File:
Dim oLSM As AcadLayerStateManager
Set oLSM = ThisDrawing.Application.GetInterfaceObject("AutoCAD.AcadLayerStateManager.16")

So I would make the assumption it is:
Dim oLSM As AcadLayerStateManager
Set oLSM = ThisDrawing.Application.GetInterfaceObject("AutoCAD.AcadLayerStateManager.15")

Or maybe:
Dim oLSM As AcadLayerStateManager
Set oLSM = ThisDrawing.Application.GetInterfaceObject("AutoCAD.AcadLayerStateManager.2")

Regards - Nathan

 

Thanks

AutoCAD.AcadLayerStateManager.16 did the trick......