图层状态名称不显示在对话框中

Public Sub LS()
    Dim objLSM As AcadLayerStateManager
    
    Set objLSM = ThisDrawing.Application.GetInterfaceObject("AutoCAD.AcadLayerStateManager.17")
    objLSM.SetDatabase ThisDrawing.Database
    
    objLSM.Save "Temp_Layer_State", acLsAll
    Set objLSM = Nothing
End Sub

Public Sub LS()
    Dim objLSM As AcadLayerStateManager
    
    Set objLSM = ThisDrawing.Application.GetInterfaceObject("AutoCAD.AcadLayerStateManager.17")
    objLSM.SetDatabase ThisDrawing.Database
    
    objLSM.Save "Temp_Layer_State2", [color=red]acLsColor + acLsFrozen + acLsLineType + acLsLineWeight + acLsLocked + acLsNewViewport + acLsNone + acLsOn + acLsPlot + acLsPlotStyle[/color]
    Set objLSM = Nothing
End Sub