Create Jogged Radius Dimensions

Jogged radius dimensions measure the radius of an object and displays the dimension text with a radius symbol in front of it. You might use a jogged dimension over a radial dimension object when:

An object’s center point is located outside of the layout or is over an area of the model that does not have enough room for a radial dimension
An object has a large radius

You create a jogged radius dimenion by creating an instance of a RadialDimensionLarge object. When you create an instance of a RadialDimensionLarge object, its constructors can optionally accept a set parameters. The following parameters can be supplied when you create a new RadialDimensionLarge object:

Center point (Center property)
Chord point (ChordPoint property)
Override center point (OverrideCenter property)
Position of the jog lines (JogPoint property)
Angle of the jog lines (JogAngle property)
Dimension text (DimensionText property)
Dimension style (DimensionStyleName or DimensionStyle properties)

For additional information about creating jogged radius dimensions, see “Create Radial Dimensions” in the AutoCAD User's Guide.

Create a jogged radius dimension

This example creates a jogged radius dimension in Model space.

VB.NET

Imports Autodesk.AutoCAD.Runtime

Imports Autodesk.AutoCAD.ApplicationServices

Imports Autodesk.AutoCAD.DatabaseServices

Imports Autodesk.AutoCAD.Geometry

<CommandMethod("CreateJoggedDimension")> _

Public Sub CreateJoggedDimension()

  '' Get the current 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 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 large radius dimension

      Dim acRadDimLrg As RadialDimensionLarge = New RadialDimensionLarge()

      acRadDimLrg.Center = New Point3d(-3, -4, 0)

      acRadDimLrg.ChordPoint = New Point3d(2, 7, 0)

      acRadDimLrg.OverrideCenter = New Point3d(0, 2, 0)

      acRadDimLrg.JogPoint = New Point3d(1, 4.5, 0)

      acRadDimLrg.JogAngle = 0.707

      acRadDimLrg.DimensionStyle = acCurDb.Dimstyle

      '' Add the new object to Model space and the transaction

      acBlkTblRec.AppendEntity(acRadDimLrg)

      acTrans.AddNewlyCreatedDBObject(acRadDimLrg, True)

      '' Commit 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("CreateJoggedDimension")]

public static void CreateJoggedDimension()

  // Get the current database

  Document acDoc = Application.DocumentManager.MdiActiveDocument;

  Database acCurDb = acDoc.Database;

  // Start a transaction

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

      // 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 large radius dimension

      RadialDimensionLarge acRadDimLrg = new RadialDimensionLarge();

      acRadDimLrg.Center = new Point3d(-3, -4, 0);

      acRadDimLrg.ChordPoint = new Point3d(2, 7, 0);

      acRadDimLrg.OverrideCenter = new Point3d(0, 2, 0);

      acRadDimLrg.JogPoint = new Point3d(1, 4.5, 0);

      acRadDimLrg.JogAngle = 0.707;

      acRadDimLrg.DimensionStyle = acCurDb.Dimstyle;

      // Add the new object to Model space and the transaction

      acBlkTblRec.AppendEntity(acRadDimLrg);

      acTrans.AddNewlyCreatedDBObject(acRadDimLrg, true);

      // Commit the changes and dispose of the transaction

      acTrans.Commit();

VBA/ActiveX Code Reference