Description
Property type
Syntax
Visual Basic |
---|
Public Property Normal As Vector |
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