社区 › VB › 图层状态名称不显示在对话框中

Matt__W 发表于 2008-11-13 11:11:29

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

我有一段代码，它将创建一个名为“Temp_Layer_State”的层状态，但它不会显示在“层状态”对话框中。 它在字典中，如果我尝试再次创建，则会出现“重复键”错误，因此它确实存在。 有谁知道让它显示在对话框中的技巧吗？
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
**** Hidden Message *****

Matt__W 发表于 2008-11-13 11:19:15

嗯，这很奇怪。 我没有使用“acLsAll”，而是使用了下面的代码，现在它显示在对话框中。 哼。
Public Sub LS()
    Dim objLSM As AcadLayerStateManager
   
    Set objLSM = ThisDrawing.Application.GetInterfaceObject("AutoCAD.AcadLayerStateManager.17")
    objLSM.SetDatabase ThisDrawing.Database
   
    objLSM.Save "Temp_Layer_State2", acLsColor + acLsFrozen + acLsLineType + acLsLineWeight + acLsLocked + acLsNewViewport + acLsNone + acLsOn + acLsPlot + acLsPlotStyle
    Set objLSM = Nothing
End Sub

Matt__W 发表于 2008-11-13 11:33:24

Matt，
据我所知，这是一个已知的错误。

Matt__W 发表于 2008-11-13 11:34:00

啊...这就能解释了！
谢谢！

查看完整版本: 图层状态名称不显示在对话框中