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

AutoCAD 2022 开发者帮助

保存图层状态（.NET）

2024-5-18 18:48| 发布者: admin| 查看: 316| 评论: 0|原作者: admin|来自: AutoCAD

保存图层状态（.NET）

使用该方法在图形中保存一组图层设置。该方法需要三个参数。第一个参数是命名要保存的图层状态的字符串。第二个参数用于标识要保存的图层属性。使用枚举的常量来标识要保存的图层设置。下表列出了属于枚举的常量。SaveLayerStateSaveLayerStateLayerStateMasksLayerStateMasks

图层状态掩码的常量
常量名称	图层属性
颜色	颜色
CurrentView口	当前视口图层冻结或解冻
冷冻	冷冻或解冻
上一页已恢复	上次还原的图层
线型	线型
线宽	线宽
锁	锁定或解锁
新视口	冻结或解冻的新视口图层
没有	无图层设置
上	开或关
情节	开或关绘图
剧情风格	剧情风格

将常量相加以指定多个属性。

所需的第三个参数是要保存其图层设置的视口的对象 ID。用于不指定视口。如果尝试将图层状态保存在已存在的名称下，则会返回错误。必须先重命名或删除现有图层状态，然后才能重复使用该名称。ObjectId.Null

保存图层的颜色和线型设置

以下代码将图形中当前图层的颜色和线型设置保存在名为 ColorLinetype 下。

VB.NET

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
 
<CommandMethod("SaveLayerColorAndLinetype")> _
Public Sub SaveLayerColorAndLinetype()
    '' Get the current document
    Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
 
    Dim acLyrStMan As LayerStateManager
    acLyrStMan = acDoc.Database.LayerStateManager
 
    Dim sLyrStName As String = "ColorLinetype"
 
    If acLyrStMan.HasLayerState(sLyrStName) = False Then
        acLyrStMan.SaveLayerState(sLyrStName, _
                                  LayerStateMasks.Color + _
                                  LayerStateMasks.LineType, _
                                  ObjectId.Null)
    End If
End Sub

C#

using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
 
[CommandMethod("SaveLayerColorAndLinetype")]
public static void SaveLayerColorAndLinetype()
{
    // Get the current document
    Document acDoc = Application.DocumentManager.MdiActiveDocument;
 
    LayerStateManager acLyrStMan;
    acLyrStMan = acDoc.Database.LayerStateManager;
 
    string sLyrStName = "ColorLinetype";
 
    if (acLyrStMan.HasLayerState(sLyrStName) == false)
    {
        acLyrStMan.SaveLayerState(sLyrStName,
                                  LayerStateMasks.Color | 
                                  LayerStateMasks.LineType,
                                  ObjectId.Null);
    }
}

VBA/ActiveX 代码参考

Sub SaveLayerColorAndLinetype()
    Dim oLSM As AcadLayerStateManager
 
    ' Access the LayerStateManager object
    Set oLSM = ThisDrawing.Application. _
                   GetInterfaceObject("AutoCAD.AcadLayerStateManager.24")
 
    ' Associate the current drawing database with LayerStateManager
    oLSM.SetDatabase ThisDrawing.Database
    oLSM.Save "ColorLinetype", acLsColor + acLsLineType
End Sub