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

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

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

本人&#039；我得到了这段代码，它将创建一个称为“的层状态”；温度层状态；但它没有#039；t显示在“图层状态”对话框中&nbsp；It#039；s在字典里，我得到一个&#039；重复键#039；错误，如果我尝试再次创建，因此它确实存在&nbsp；有人知道让它出现在对话框中的诀窍吗
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

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

这很奇怪&nbsp；而不是使用&#039；acLsAll和039；我使用了下面的代码，现在它显示在对话框中&nbsp；嗯&nbsp
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

马特，据我回忆/知道-即#039；这是一个已知的错误。

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

啊……这就解释了
谢谢！

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