AddTolerance method example

Private Sub AddTolerance_Example()

' This example creates a tolerance object in model space.

     Dim toleranceObj As IntelliCAD.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