Normal property example

Private Sub NormalExample()

     ' This example creates an arc and determines its Normal property.

     ' It then creates a vector and uses it to reset the Normal property.

     

     Dim icadDoc As IntelliCAD.Document

     Set icadDoc = ActiveDocument

     Dim myArc As Arc

     Dim cenPt As Point

     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

     MsgBox "Normal Vector:" & Chr(13) & "x = " & myArc.Normal.x & Chr(13) & "y = " & myArc.Normal.y & Chr(13) & "z = " & myArc.Normal.z

     ' Create a vector to define the new extrusion direction.

     Dim Vect1 As Vector

     Set Vect1 = Library.CreateVector(0, 0, 0, 1, 1, 0)

     myArc.Normal = Vect1

     MsgBox "New normal Vector:" & Chr(13) & "x = " & myArc.Normal.x & Chr(13) & "y = " & myArc.Normal.y & Chr(13) & "z = " & myArc.Normal.z

End Sub