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

3、Workwith Linetypes使用线型

A linetype is a repeating pattern ofdashes, dots, and blank spaces. A complex linetype is a repeating pattern ofsymbols. To use a linetype you must first load it into your drawing. A linetypedefinition must exist in a LIN library file before
a linetype can be loadedinto a drawing. To load a linetype into your drawing, use the member method LoadLineTypeFile of a Database object.

线型是点、划和空格的重复图案。复杂的线型是各种符号的重复图案。要使用线型，需先将该线型加载到图形里。加载前，线型库文件（.LIN文件）里必须有该线型的定义。向图形加载线型使用Database对象的LoadLineTypeFile成员方法。
For more information about working withlinetypes, see “Overview of Linetypes” in the
AutoCAD User's Guide.
关于使用线型的更多内容，见AutoCAD用户指南中的“线型概览”。
Note The linetypes used internally by AutoCAD should not beconfused with the hardware linetypes provided by some plotters. The two typesof dashed lines produce similar results. Do
not use both types at the same time, however,because the results can be unpredictable.

注意：不要将 AutoCAD 内部使用的线型与某些绘图仪提供的硬件线型相混淆。这两种类型的虚线产生的效果相似。不要同时使用这两种类型，否则将产生不可预知的结果。

Load a linetype into AutoCAD 加载线型到AutoCAD

This example attempts to load the linetype“CENTER” from the acad.lin file. If the linetype already exists, or thefile does not exist, then a message is displayed.

本例视图从线型文件acad.lin加载线型“CENTER”，如果该线型已存在，或线型文件不存在，则显示消息。
VB.NET
ImportsAutodesk.AutoCAD.Runtime
ImportsAutodesk.AutoCAD.ApplicationServices
ImportsAutodesk.AutoCAD.DatabaseServices

<CommandMethod("LoadLinetype")>_
Public SubLoadLinetype()
'' 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 Linetype table for read
Dim acLineTypTbl As LinetypeTable
acLineTypTbl =acTrans.GetObject(acCurDb.LinetypeTableId, _
OpenMode.ForRead)

Dim sLineTypName As String ="Center"

If acLineTypTbl.Has(sLineTypName) = FalseThen
'' Load the Center Linetype
acCurDb.LoadLineTypeFile(sLineTypName, "acad.lin")
End If

'' Save the changes and dispose of thetransaction
acTrans.Commit()
End Using
End Sub
C#
usingAutodesk.AutoCAD.Runtime;
usingAutodesk.AutoCAD.ApplicationServices;
usingAutodesk.AutoCAD.DatabaseServices;

[CommandMethod("LoadLinetype")]
public static voidLoadLinetype()
{
// 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 Linetype table for read
LinetypeTable acLineTypTbl;
acLineTypTbl =acTrans.GetObject(acCurDb.LinetypeTableId,
OpenMode.ForRead)as LinetypeTable;

string sLineTypName = "Center";

if (acLineTypTbl.Has(sLineTypName) ==false)
{
// Load the Center Linetype加载线型Center
acCurDb.LoadLineTypeFile(sLineTypName, "acad.lin");
}

// Save the changes and dispose of thetransaction
acTrans.Commit();
}
}
VBA/ActiveX Code Reference
Sub LoadLinetype()
On Error GoTo ERRORHANDLER

Dim linetypeName As String
linetypeName = "CENTER"

' Load "CENTER" line type fromacad.lin file
ThisDrawing.Linetypes.Load linetypeName,"acad.lin"
Exit Sub

ERRORHANDLER:
MsgBox Err.Description
End Sub

Topics in this section本节内容：
· Make a Linetype Active 设置当前线型
· Rename Linetypes 重命名线型
· Delete Linetypes 删除线型
· Change Linetype Descriptions 修改线型说明
· Specify Linetype Scale 指定线型比例

3.1、Makea Linetype Active设置线型为活动

To use a linetype, you must make itactive. All newly created objects are drawn using the active linetype. Thereare two different methods for applying a linetype to an object: direct orinherited. You can directly assign a linetype to an object
which overrides thelinetype assigned to the layer the object is on. Otherwise, an object inheritsthe linetype of the layer it is on by having its Linetype or LinetypeId property set to represent the ByLayerlinetype.

要使用线型，必须将其置为活动。所有新对象均使用活动线型绘制。对象的线型可由两种不同方法获得：直接指定或继承。可以直接给对象指定一个线型覆盖掉对象所在图层的线型。另外，对象可以继承其所在图层的线型，方法是将对象的Linetype属性或LinetypeId属性设置成代表ByLayer线型。
Note Xref-dependent linetypes cannot be madeactive.

注意：不能将依赖外部参照的线型设置为活动线型。
There are three linetypes that exist ineach drawing: BYBLOCK, BYLAYER and CONTINUOUS. Each of these linetypes can beaccessed from the Linetype table object or using methods from theSymbolUtilityServices object. The following methods allow you
to obtain theobject id for these default linetypes:
有三个线型存在于每个图形，他们是：BYBLOCK、 BYLAYER 和CONTINUOUS。这三个线型的每一个都可以从线型表对象访问，或使用SymbolUtilityServices对象的方法访问。下列方法允许我们获取这些默认线型的对象ID：
· GetLinetypeByBlockId - Returns the object id for the BYBLOCKlinetype.返回BYBLOCK线型的对象ID；

· GetLinetypeByLayerId - Returns the object id for the BYLAYERlinetype. 返回BYLAYER线型的对象ID；
· GetLinetypeContinuousId - Returns the object id for the CONTINUOUSlinetype.返回CONTINUOUS线型的对象ID；
For more information about activating alinetype, see “Set the Current Linetype” in the
AutoCAD User's Guide.
关于激活线型的更多内容，见AutoCAD用户指南中的“设置当前线型”。
Topics in this section本小节内容：
· Assign a linetype to an object 为对象指定线型
· Make a linetype current through the database 通过数据库设置当前线型
· Make a linetype current with the CELTYPE system variable
通过系统变量CELTYPE设置当前线型

3.1.1、Assigna linetype to an object 为对象指定线型

The following example creates a circle andassigns the “Center” linetype to it.

下面的例子创建一个圆并指定线型为“Center”。
VB.NET
ImportsAutodesk.AutoCAD.Runtime
ImportsAutodesk.AutoCAD.ApplicationServices
ImportsAutodesk.AutoCAD.DatabaseServices
ImportsAutodesk.AutoCAD.Geometry

<CommandMethod("SetObjectLinetype")>_
Public SubSetObjectLinetype()
'' 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 Linetype table for read
Dim acLineTypTbl As LinetypeTable
acLineTypTbl =acTrans.GetObject(acCurDb.LinetypeTableId, _
OpenMode.ForRead)

Dim sLineTypName As String ="Center"

IfacLineTypTbl.Has(sLineTypName) = False Then
acCurDb.LoadLineTypeFile(sLineTypName, "acad.lin")
End If

'' Open the Block table for read
Dim acBlkTbl As BlockTable
acBlkTbl =acTrans.GetObject(acCurDb.BlockTableId, _
OpenMode.ForRead)

'' Open the Block table record Modelspace for write
Dim acBlkTblRec As BlockTableRecord
acBlkTblRec =acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _
OpenMode.ForWrite)

'' Create a circle object
Dim acCirc As Circle = New Circle()
acCirc.Center = New Point3d(2, 2, 0)
acCirc.Radius = 1
acCirc.Linetype = sLineTypName

acBlkTblRec.AppendEntity(acCirc)
acTrans.AddNewlyCreatedDBObject(acCirc,True)

'' Save the changes and dispose of thetransaction
acTrans.Commit()
End Using
End Sub
C#
usingAutodesk.AutoCAD.Runtime;
usingAutodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
usingAutodesk.AutoCAD.Geometry;

[CommandMethod("SetObjectLinetype")]
public static voidSetObjectLinetype()
{
// 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 Linetype table for read
LinetypeTable acLineTypTbl;
acLineTypTbl =acTrans.GetObject(acCurDb.LinetypeTableId,
OpenMode.ForRead) as LinetypeTable;

string sLineTypName = "Center";

if (acLineTypTbl.Has(sLineTypName) ==false)
{
acCurDb.LoadLineTypeFile(sLineTypName, "acad.lin");
}

// Open the Block table for read
BlockTable acBlkTbl;
acBlkTbl =acTrans.GetObject(acCurDb.BlockTableId,
OpenMode.ForRead) as BlockTable;

// Open the Block table record Modelspace for write
BlockTableRecord acBlkTblRec;
acBlkTblRec =acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],
OpenMode.ForWrite) as BlockTableRecord;

// Create a circle object
Circle acCirc = new Circle();
acCirc.Center = new Point3d(2, 2, 0);
acCirc.Radius = 1;
acCirc.Linetype = sLineTypName;

acBlkTblRec.AppendEntity(acCirc);
acTrans.AddNewlyCreatedDBObject(acCirc,true);

// Save the changes and dispose of thetransaction
acTrans.Commit();
}
}
VBA/ActiveX Code Reference
SubSetObjectLinetype()
' Load the Center linetype
Dim linetypeName As String
linetypeName = "Center"

On Error Resume Next
ThisDrawing.Linetypes.Load linetypeName,"acad.lin"

' Define the center point of the circle
Dim centerPt(0 To 2) As Double
centerPt(0) = 0: centerPt(1) = 3:centerPt(2) = 0

' Create a new circle and assign it the ACIvalue of 4
Dim circleObj As AcadCircle
Set circleObj =ThisDrawing.ModelSpace.AddCircle(centerPt, 1)
circleObj.Linetype = linetypeName

circleObj.Update
End Sub

3.1.2、Makea linetype current through the database通过数据库设置当前线型

This example sets a linetype currentthrough the Database object with the Celtype property.

本例通过Database对象的Celtype属性将线型设置为当前线型。
VB.NET
ImportsAutodesk.AutoCAD.Runtime
ImportsAutodesk.AutoCAD.ApplicationServices
ImportsAutodesk.AutoCAD.DatabaseServices

<CommandMethod("SetLinetypeCurrent")>_
Public SubSetLinetypeCurrent()
'' 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 Linetype table for read
Dim acLineTypTbl As LinetypeTable
acLineTypTbl =acTrans.GetObject(acCurDb.LinetypeTableId, _
OpenMode.ForRead)

Dim sLineTypName As String = "Center"

If acLineTypTbl.Has(sLineTypName) = TrueThen
'' Set the linetype Center current
acCurDb.Celtype =acLineTypTbl(sLineTypName)

'' Save the changes
acTrans.Commit()
End If

'' Dispose of the transaction
End Using
End Sub
C#
usingAutodesk.AutoCAD.Runtime;
usingAutodesk.AutoCAD.ApplicationServices;
usingAutodesk.AutoCAD.DatabaseServices;

[CommandMethod("SetLinetypeCurrent")]
public static voidSetLinetypeCurrent()
{
// 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 Linetype table for read以读打开线型表
LinetypeTable acLineTypTbl;
acLineTypTbl =acTrans.GetObject(acCurDb.LinetypeTableId,
OpenMode.ForRead) as LinetypeTable;

string sLineTypName = "Center";

if (acLineTypTbl.Has(sLineTypName) ==true)
{
// Set the linetype Center current将Center线型设置为当前线型
acCurDb.Celtype =acLineTypTbl[sLineTypName];

// Save the changes保存修改
acTrans.Commit();
}

// Dispose of the transaction关闭事务
}
}
VBA/ActiveX Code Reference
ThisDrawing.ActiveLinetype= ThisDrawing.Linetypes.Item("Center")

3.1.3、Makea linetype current with the CELTYPE system variable 通过系统变量CELTYPE设置当前线型

This example sets a linetype current withthe CELTYPE system variable.

本例通过系统变量CELTYPE将线型设置为当前线型。
VB.NET
Application.SetSystemVariable("CELTYPE","Center")
C#
Application.SetSystemVariable("CELTYPE","Center");
VBA/ActiveX Code Reference
ThisDrawing.SetVariable"CELTYPE", "Center"

3.2、RenameLinetypes 重命名线型

To rename a linetype, use the Name property. When you rename a linetype, youare renaming only the linetype definition in your drawing. The name in the LINlibrary file is not updated to reflect the new name.

重命名线型使用Name属性。重命名一个线型时，我们只是重新命名了图形中的线型定义。线型库文件（.LIN文件）中的线型名称没有更新。

3.3、DeleteLinetypes删除线型

To delete a linetype, use the Erase method. You can delete a linetype at anytime during a drawing session; however, linetypes that cannot be deletedinclude BYLAYER, BYBLOCK, CONTINUOUS, the current linetype, a linetype in use,and xref-dependent
linetypes. Also, linetypes referenced by block definitionscannot be deleted, even if they are not used by any objects.

删除一个线型使用Erase方法。可以在绘图过程的任何时候删除一个线型，不过，不能删除线型BYLAYER、BYBLOCK、CONTINUOUS及当前线型、依赖外部参考的线型。还有，块定义所引用的线型也不能删除，不管有没有对象使用。
For more information about deletinglinetypes, see “Set the Current Linetype” in the
AutoCAD User's Guide.
更多关于删除线型的内容，见AutoCAD用户指南中的“设置当前线型”。

3.4、ChangeLinetype Descriptions修改线型说明

Linetypes can have a description associatedwith them. The description provides an ASCII representation of the linetype.You can assign or change a linetype description by using the AsciiDescription property.

线型可以有与之关联的说明文字。该说明文字提供了改线型的ASCII描述。我们可以使用AsciiDescription属性来设置或修改线型说明。
A linetype description can have up to 47characters. The description can be a comment or a series of underscores, dots,dashes, and spaces to show a simple representation of the linetype pattern.

线型说明最多47个字符。说明可以是一个注释，也可以使用一系列下划线、点、虚线和空格来简单地表示出线型图案。

Change the description of a linetype 修改线型说明

The following example changes thedescription of the current linetype.

下例演示如何修改当前线型的说明。
VB.NET
ImportsAutodesk.AutoCAD.Runtime
ImportsAutodesk.AutoCAD.ApplicationServices
ImportsAutodesk.AutoCAD.DatabaseServices

<CommandMethod("ChangeLinetypeDescription")>_
Public SubChangeLinetypeDescription()
'' 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 Linetype table record of thecurrent linetype for write
Dim acLineTypTblRec AsLinetypeTableRecord
acLineTypTblRec =acTrans.GetObject(acCurDb.Celtype, _
OpenMode.ForWrite)

'' Change the description of the currentlinetype
acLineTypTblRec.AsciiDescription ="Exterior Wall"

'' Save the changes and dispose of thetransaction
acTrans.Commit()
End Using
End Sub
C#
usingAutodesk.AutoCAD.Runtime;
usingAutodesk.AutoCAD.ApplicationServices;
usingAutodesk.AutoCAD.DatabaseServices;

[CommandMethod("ChangeLinetypeDescription")]
public static voidChangeLinetypeDescription()
{
// 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 Linetype table record of thecurrent linetype for write
//以写打开当前线型的线型表记录
LinetypeTableRecord acLineTypTblRec;
acLineTypTblRec = acTrans.GetObject(acCurDb.Celtype,
OpenMode.ForWrite) as LinetypeTableRecord;

// Change the description of the currentlinetype修改当前线型的说明
acLineTypTblRec.AsciiDescription ="Exterior Wall";

// Save the changes and dispose of thetransaction保存修改关闭事务
acTrans.Commit();
}
}
VBA/ActiveX Code Reference

ThisDrawing.ActiveLinetype.Description= "Exterior Wall"

3.5、SpecifyLinetype Scale指定线型比例

You can specify the linetype scale forobjects you create. The smaller the scale, the more repetitions of the patternare generated per drawing unit. By default, AutoCAD uses a global linetypescale of 1.0, which is equal to one drawing unit. You
can change the linetypescale for all drawing objects and attribute references.
我们可以指定所创建对象的线型比例。比例越小，每图形单位内生成的线型图案越多。默认情况下，AutoCAD使用全局线形比例1.0，等于一个图形单位。我们可以修改所有图形对象和属性参考的线型比例。
The CELTSCALE system variable sets thelinetype scale for newly created objects. LTSCALE system variable changes theglobal linetype scale of existing objects as well as new objects. The LinetypeScale property on an object is used to changethe
linetype scale for an object. The linetype scale at which an object isdisplayed at is based on the an individual object’s linetype scale multipliedby the global linetype scale.

系统变量CELTSCALE用来给新创建的对象设置线型比例。系统变量LTSCALE用来修改已存在对象及新对象的全局线型比例。对象的LinetypeScale属性用来修改该对象的线型比例。对象显示的线型比例基于对象自己的线形比例乘以全局线形比例的结果。
For more information about linetypescales, see “Control Linetype Scale” in the
AutoCAD User's Guide.
更多关于线型比例的内容，见AutoCAD用户指南中的“控制线型比例”。

Change the linetype scale for an object 修改对象的线型比例

VB.NET
ImportsAutodesk.AutoCAD.Runtime
ImportsAutodesk.AutoCAD.ApplicationServices
ImportsAutodesk.AutoCAD.DatabaseServices
ImportsAutodesk.AutoCAD.Geometry

<CommandMethod("SetObjectLinetypeScale")>_
Public SubSetObjectLinetypeScale()
'' 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()

'' Save the current linetype
Dim acObjId As ObjectId = acCurDb.Celtype

'' Set the global linetype scale
acCurDb.Ltscale = 3

'' Open the Linetype table for read
Dim acLineTypTbl As LinetypeTable
acLineTypTbl =acTrans.GetObject(acCurDb.LinetypeTableId, _
OpenMode.ForRead)

Dim sLineTypName As String ="Border"

If acLineTypTbl.Has(sLineTypName) = FalseThen
acCurDb.LoadLineTypeFile(sLineTypName,"acad.lin")
End If

'' Set the Border linetype current
acCurDb.Celtype =acLineTypTbl(sLineTypName)

'' Open the Block table for read
Dim acBlkTbl As BlockTable
acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId,_
OpenMode.ForRead)

'' Open the Block table record Modelspace for write
Dim acBlkTblRec As BlockTableRecord
acBlkTblRec =acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _
OpenMode.ForWrite)

'' Create a circle object and set itslinetype
'' scale to half of full size
Dim acCirc1 As Circle = New Circle()
acCirc1.Center = New Point3d(2, 2, 0)
acCirc1.Radius = 4
acCirc1.LinetypeScale = 0.5

acBlkTblRec.AppendEntity(acCirc1)
acTrans.AddNewlyCreatedDBObject(acCirc1,True)

'' Create a second circle object
Dim acCirc2 As Circle = New Circle()
acCirc2.Center = New Point3d(12, 2, 0)
acCirc2.Radius = 4

acBlkTblRec.AppendEntity(acCirc2)
acTrans.AddNewlyCreatedDBObject(acCirc2,True)

'' Restore the original active linetype
acCurDb.Celtype = acObjId

'' Save the changes and dispose of thetransaction
acTrans.Commit()
End Using
End Sub
C#
usingAutodesk.AutoCAD.Runtime;
usingAutodesk.AutoCAD.ApplicationServices;
usingAutodesk.AutoCAD.DatabaseServices;
usingAutodesk.AutoCAD.Geometry;

[CommandMethod("SetObjectLinetypeScale")]
public static voidSetObjectLinetypeScale()
{
// Get the current document and database获取当前文档和数据库
Document acDoc =Application.DocumentManager.MdiActiveDocument;
Database acCurDb = acDoc.Database;

// Start a transaction启动事务
using (Transaction acTrans =acCurDb.TransactionManager.StartTransaction())
{
// Save the current linetype保存当前线型
ObjectId acObjId = acCurDb.Celtype;

// Set the global linetype scale设置全局线型比例
acCurDb.Ltscale = 3;

// Open the Linetype table for read以读打开线型表
LinetypeTable acLineTypTbl;
acLineTypTbl =acTrans.GetObject(acCurDb.LinetypeTableId,
OpenMode.ForRead) as LinetypeTable;

string sLineTypName = "Border";

if (acLineTypTbl.Has(sLineTypName) ==false)
{
acCurDb.LoadLineTypeFile(sLineTypName, "acad.lin");
}

// Set the Border linetype current将当前线型设置为Border；
acCurDb.Celtype =acLineTypTbl[sLineTypName];

// Open the Block table for read以读打开块表
BlockTable acBlkTbl;
acBlkTbl =acTrans.GetObject(acCurDb.BlockTableId,
OpenMode.ForRead) as BlockTable;

// Open the Block table record Modelspace for write
//以写打开块表记录模型空间
BlockTableRecord acBlkTblRec;
acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],
OpenMode.ForWrite) as BlockTableRecord;

// Create a circle object and set itslinetype
// scale to half of full size
//创建一个圆并将其线型比例设置为0.5
Circle acCirc1 = new Circle();
acCirc1.Center = new Point3d(2, 2, 0);
acCirc1.Radius = 4;
acCirc1.LinetypeScale = 0.5;

acBlkTblRec.AppendEntity(acCirc1);
acTrans.AddNewlyCreatedDBObject(acCirc1,true);

// Create a second circle object再创建一个圆
Circle acCirc2 = new Circle();
acCirc2.Center = new Point3d(12, 2, 0);
acCirc2.Radius = 4;

acBlkTblRec.AppendEntity(acCirc2);
acTrans.AddNewlyCreatedDBObject(acCirc2,true);

// Restore the original active linetype回复原来的线型
acCurDb.Celtype = acObjId;

// Save the changes and dispose of thetransaction保存修改关闭事务
acTrans.Commit();
}
}
VBA/ActiveX Code Reference
SubSetObjectLinetypeScale()
' Save the current linetype
Dim currLineType As AcadLineType
Set currLineType = ThisDrawing.ActiveLinetype

' Set global linetype scale
ThisDrawing.SetVariable"LTSCALE", 3

' Load the Border linetype
On Error Resume Next
If NotIsObject(ThisDrawing.Linetypes.Item("Border")) Then
ThisDrawing.Linetypes.Load"Border", "acad.lin"
End If

ThisDrawing.ActiveLinetype =ThisDrawing.Linetypes.Item("BORDER")

' Create a circle object in model space
Dim center(0 To 2) As Double
center(0) = 2: center(1) = 2: center(2) = 0

Dim circleObj1 As AcadCircle
Set circleObj1 =ThisDrawing.ModelSpace.AddCircle(center, 4)

' Set the linetype scale of the circle tohalf of full size
circleObj1.LinetypeScale = 0.5
circleObj1.Update

Dim circleObj2 As AcadCircle
center(0) = center(0) + 10
Set circleObj2 =ThisDrawing.ModelSpace.AddCircle(center, 4)
circleObj2.Update

' Restore original active linetype
ThisDrawing.ActiveLinetype = currLineType
End Sub