03-05 创建和编辑AutoCAD实体（五） 使用图层、颜色和线型（1）使用图层（1-6）

This example creates a new layer called “ABC” and then locks the layer.

本例创建一个名为“ABC”的新图层，然后将其锁定。

VB.NET

imports autodesk.autoCAD.Runtime

imports autodesk.autoCAD.applicationservices

imports autodesk.autoCAD.DatabaseServices

<CommandMethod("LockLayer")> _

Public Sub LockLayer()

'' Get the current document and database

Dim acDoc As document = Application.documentManager.MdiActivedocument

Dim acCurDb As Database = acDoc.Database

'' Start a transaction

Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()

'' Open the Layer table for read

Dim acLyrTbl As Layertable

acLyrTbl = acTrans.Getobject(acCurDb.LayertableID,_

OpenMode.ForRead)

Dim sLayername As String = "ABC"

Dim acLyrTblRec As LayertableRecord

If acLyrTbl.Has(sLayername) = False Then

acLyrTblRec = New LayertableRecord()

'' Assign the layer a name

acLyrTblRec.name = sLayername

'' Upgrade the Layer table for write

acLyrTbl.Upgradeopen()

'' Append the new layer to the Layer table and the transaction

acLyrTbl.Add(acLyrTblRec)

acTrans.AddNewlyCreatedDBObject(acLyrTblRec,True)

Else

acLyrTblRec = acTrans.Getobject(acLyrTbl(sLayername),_

OpenMode.ForWrite)

End If

'' Lock the layer

acLyrTblRec.IsLocked = True

'' Save the changes and dispose of the transaction

acTrans.Commit()

End Using

End Sub

C#

using autodesk.autoCAD.Runtime;

using autodesk.autoCAD.applicationservices;

using autodesk.autoCAD.DatabaseServices;

[CommandMethod("LockLayer")]

public static voID LockLayer()

{

// Get the current document and database获取当前文档和数据库

document acDoc = Application.documentManager.MdiActivedocument;

Database acCurDb = acDoc.Database;

// Start a transaction启动事务

using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction())

{

// Open the Layer table for read以读打开图层表

Layertable acLyrTbl;

acLyrTbl = acTrans.Getobject(acCurDb.LayertableID,OpenMode.ForRead) as Layertable;

string sLayername = "ABC";

LayertableRecord acLyrTblRec;

if (acLyrTbl.Has(sLayername) == false)

{

acLyrTblRec = new LayertableRecord();

// Assign the layer a name给图层名称赋值

acLyrTblRec.name = sLayername;

// Upgrade the Layer table for write升级打开图层表

acLyrTbl.Upgradeopen();

// Append the new layer to the Layer table and the transaction追加新图层到图层表，追加事务记录

acLyrTbl.Add(acLyrTblRec);

acTrans.AddNewlyCreatedDBObject(acLyrTblRec,true);

}

else

{

acLyrTblRec = acTrans.Getobject(acLyrTbl[sLayername],

OpenMode.ForWrite) as LayertableRecord;

}

// Lock the layer锁定图层

acLyrTblRec.IsLocked = true;

// Save the changes and dispose of the transaction提交修改、关闭事务

acTrans.Commit();

}

}

VBA/ActiveX Code Reference

Sub LockLayer()

' Create a new layer called "ABC"

Dim layerObj As AcadLayer

Set layerObj = ThisDrawing.Layers.Add("ABC")

' Lock layer "ABC"

layerObj.Lock = True

End Sub

以上是内存溢出为你收集整理的03-05 创建和编辑AutoCAD实体（五） 使用图层、颜色和线型（1）使用图层（1-6）全部内容，希望文章能够帮你解决03-05 创建和编辑AutoCAD实体（五） 使用图层、颜色和线型（1）使用图层（1-6）所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。