IntelliCAD 11.1 Object Library
Normal Property
See Also 
DimAngular Object : Normal Property

Description

Sets or returns the Extrusion Direction vector for the entity.

Property type

Read-write property

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

See Also

© 2022 IntelliCAD Technology Consortium. All Rights Reserved.