CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2023 开发者帮助 › 查看内容

AutoCAD 2023 开发者帮助

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

2024-5-18 18:54| 发布者: admin| 查看: 307| 评论: 0|原作者: admin|来自: 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