Specify Linetype Scale

You can specify the linetype scale for objects you create. The smaller the scale, the more repetitions of the pattern are generated per drawing unit. By default, AutoCAD uses a global linetype scale of 1.0, which is equal to one drawing unit. You can change the linetype scale for all drawing objects and attribute references.

The CELTSCALE system variable sets the linetype scale for newly created objects. LTSCALE system variable changes the global linetype scale of existing objects as well as new objects. The LinetypeScale property on an object is used to change the linetype scale for an object. The linetype scale at which an object is displayed at is based on the an individual object’s linetype scale multiplied by the global linetype scale.

For more information about linetype scales, see “Control Linetype Scale” in the AutoCAD User's Guide.

Change the linetype scale for an object

VB.NET

Imports Autodesk.AutoCAD.Runtime

Imports Autodesk.AutoCAD.ApplicationServices

Imports Autodesk.AutoCAD.DatabaseServices

Imports Autodesk.AutoCAD.Geometry

<CommandMethod("SetObjectLinetypeScale")> _

Public Sub SetObjectLinetypeScale()

  '' 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) = False Then

          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 Model space for write

      Dim acBlkTblRec As BlockTableRecord

      acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _

                                      OpenMode.ForWrite)

      '' Create a circle object and set its linetype

      '' 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 the transaction

      acTrans.Commit()

  End Using

End Sub

using Autodesk.AutoCAD.Runtime;

using Autodesk.AutoCAD.ApplicationServices;

using Autodesk.AutoCAD.DatabaseServices;

using Autodesk.AutoCAD.Geometry;

[CommandMethod("SetObjectLinetypeScale")]

public static void SetObjectLinetypeScale()

  // 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

      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 Model space for write

      BlockTableRecord acBlkTblRec;

      acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],

                                      OpenMode.ForWrite) as BlockTableRecord;

      // Create a circle object and set its linetype

      // scale to half of full size

      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 the transaction

      acTrans.Commit();

VBA/ActiveX Code Reference