该方法将当前图形中的所有图层设置重置为先前保存的值。Restore 例如,如果将图形的颜色和线型设置保存为名称“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 |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 )
GMT+8, 2024-5-11 15:19
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.