Thickness property example

Private Sub ThicknessExample()

' This example adds an arc to the drawing and returns the thickness.

     Dim icadDoc As IntelliCAD.Document

     Dim myArc As Arc

     Dim cenPt As IntelliCAD.Point

     Dim myObj As Object

     Dim myThickness As Double

     Set icadDoc = ActiveDocument

     Set cenPt = Library.CreatePoint(4, 2)

     'Add the arc to the .dwg

     Set myArc = icadDoc.ModelSpace.AddArc(cenPt, 3, 1, 3)

     ' Display the entity

     myArc.Update

     myThickness = myArc.Thickness

     MsgBox "Thickness = " & myThickness, , "Arc Thickness"

End Sub