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