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

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

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

copy

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

copy

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

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

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

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

啊……这就解释了
谢谢！

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

发表回复

精选推荐