1.8、Assign a Linetype to a Layer指定图层线型
When you are defining layers,linetypes provide another way to convey visual information. A linetype is a repeating pattern of dashes,dots,and blank spaces you can use to distinguish the purpose of one line from another.
定义图层时，线型提供了传达视觉信息的另一个手段。线型是划线、点及空格的重复图案，可以用来区分不同线条的作用。
The linetype name and definition describe the particular dash-dot sequence,the relative lengths of dashes and blank spaces,and the characteristics of any included text or shapes.
线型名称和定义描述了不同线型的点划序列、划线或空白的相对长度、包含的文字或形状的特性等。
Use the Linetype property to assign a linetype to a layer. This property takes the name of the linetype as input.
使用Linetype属性来设置图层的线型，该属性以线型名作为输入参数。
Note Before a linetype can be assigned to a layer it must be defined in the drawing first. For information on working with linetypes,seeWork with Linetypes.
注意：线型赋给图层前必须先在图形中定义。关于使用线型的内容，见AutoCAD用户指南中的“使用线型”。
Set the linetype for a layer 设置图层线型
@H_301_29@The following example creates a new layer named "ABC" and assigns it the "Center" linetype.
下面示例创建一个名为“ABC”的新图层，设置该图层线型为“Center”。
VB.NET
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
<CommandMethod("SetLayerLinetype")> _
Public Sub SetLayerLinetype()
'' 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.ForRead)
End If
'' Open the Layer table for read
Dim acLinTbl As LinetypeTable
acLinTbl = acTrans.GetObject(acCurDb.LinetypeTableId,_
OpenMode.ForRead)
If acLinTbl.Has("Center") = True Then
'' Upgrade the Layer Table Record for write
acLyrTblRec.UpgradeOpen()
'' Set the linetype for the layer
acLyrTblRec.LinetypeObjectId = acLinTbl("Center")
End If
'' 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("SetLayerLinetype")]
public static void SetLayerLinetype()
{
// 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.ForRead) as LayerTableRecord;
}
// Open the Layer table for read以读打开块表
LinetypeTable acLinTbl;
acLinTbl = acTrans.GetObject(acCurDb.LinetypeTableId,
OpenMode.ForRead) as LinetypeTable;
if (acLinTbl.Has("Center") == true)
{
// Upgrade the Layer Table Record for write升级打开图层表记录
acLyrTblRec.UpgradeOpen();
// Set the linetype for the layer设置图层线型
acLyrTblRec.LinetypeObjectId = acLinTbl["Center"];
}
// Save the changes and dispose of the transaction保存修改关闭事务
acTrans.Commit();
}
}
VBA/ActiveX Code Reference
Sub SetLayerLinetype()
On Error Resume Next
Dim layerObj As AcadLayer
Set layerObj = ThisDrawing.Layers.Add("ABC")
layerObj.Linetype = "Center"
End Sub
原文链接：https://www.f2er.com/vb/260938.html