CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 创建和编辑 AutoCAD 实体› 关于保存和恢复图层设置（VBA/ActiveX）› 关于使用 LayerStateManager 管理图层设置（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于恢复图层设置（VBA/ActiveX）

2023-1-4 23:28| 发布者: admin| 查看: 733| 评论: 0|来自: AutoCAD

摘要: 这 “恢复”方法会将当前图形中的所有图层设置重置为先前保存的值。

该方法将当前图形中的所有图层设置重置为之前保存的值。Restore

例如，如果将绘图的颜色和线型设置保存在名称“ColorLinetype”下，然后更改这些设置，则还原“ColorLinetype”会将图层重置为保存“ColorLinetype”时的颜色和线型。如果在保存“ColorLinetype”后向图形添加新图层，则在恢复“ColorLinetype”时，这些新图层不受影响。

恢复图形图层的颜色和线型设置

假设当前图形中图层的颜色和线型设置以前保存在名称“ColorLinetype”下，则以下代码将图形中每个图层的颜色和线型设置重置为保存“ColorLinetype”时的值。

Sub Ch4_RestoreLayerSettings()
  Dim oLSM As AcadLayerStateManager
  Set oLSM = ThisDrawing.Application. _
    GetInterfaceObject("AutoCAD.AcadLayerStateManager." & _
                       Left(AcadApplication.Version, 2))
  
  oLSM.SetDatabase ThisDrawing.Database
  oLSM.Restore "ColorLinetype"
End Sub