Create Geometric Tolerances

You create a geometric tolerance by creating an instance of a FeatureControlFrame object. When you create an instance of a FeatureControlFrame object, its constructor can accept an optional set of parameters. The following parameters can be supplied when you create a new FeatureControlFrame object:

Text string comprising the tolerance symbol (Text property)
Insertion point (Location property)
Normal vector (Normal property)
Direction vector (Direction property)

Create a geometric tolerance

This example creates a simple geometric tolerance in Model space.

VB.NET

Imports Autodesk.AutoCAD.Runtime

Imports Autodesk.AutoCAD.ApplicationServices

Imports Autodesk.AutoCAD.DatabaseServices

Imports Autodesk.AutoCAD.Geometry

<CommandMethod("CreateGeometricTolerance")> _

Public Sub CreateGeometricTolerance()

  '' 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 the Geometric Tolerance (Feature Control Frame)

      Dim acFcf As FeatureControlFrame = New FeatureControlFrame()

      acFcf.Text = "{\Fgdt;j}%%v{\Fgdt;n}0.001%%v%%v%%v%%v"

      acFcf.Location = New Point3d(5, 5, 0)

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

      acBlkTblRec.AppendEntity(acFcf)

      acTrans.AddNewlyCreatedDBObject(acFcf, 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("CreateGeometricTolerance")]

public static void CreateGeometricTolerance()

  // 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 the Geometric Tolerance (Feature Control Frame)

      FeatureControlFrame acFcf = new FeatureControlFrame();

      acFcf.Text = "{\\Fgdt;j}%%v{\\Fgdt;n}0.001%%v%%v%%v%%v";

      acFcf.Location = new Point3d(5, 5, 0);

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

      acBlkTblRec.AppendEntity(acFcf);

      acTrans.AddNewlyCreatedDBObject(acFcf, true);

      // Commit the changes and dispose of the transaction

      acTrans.Commit();

VBA/ActiveX Code Reference