CADopia - AddTolerance method

Creates a Tolerance entity.

Syntax

objectVariable = object.AddTolerance([Text], [InsertionPoint], [Direction])

Where:

     objectVariable is an Mtext object;

     object is one of the ModelSpace or PaperSpace collection objects or a Block object;

     Text is a String representing the tolerance text;

     InsertionPoint is a Point object representing the location to insert the tolerance;

     Direction is a Vector object representing the direction of the tolerance symbol.

AddTolerance method example

Private Sub AddTolerance_Example()

' This example creates a tolerance object in model space.

     Dim toleranceObj As CADopia.Tolerance

     Dim textString As String

     Dim insPt As Point

     Dim dirVect As Vector

     Set insPt = Library.CreatePoint(1, 2)

     Set dirVect = Library.CreateVector(0.5, 0.5)

     ' Define the tolerance object

     textString = "Test Tolerance"

     ' Create the tolerance object in model space

     Set toleranceObj = ThisDocument.ModelSpace.AddTolerance(textString, insPt, dirVect)

End Sub