CADopia - ConvertVectorToArray method

Converts a Points collection object to an Array of doubles.

Syntax

objectVariable = object.ConvertVectorToArray(Vector,Is3DVector)

Where:

     object is the CADopia Library object;

     Vector is a CADopia Vector object;

     Is3Dvector is a Boolean variable (or value) indicating whether or not the Vector is 3D.

Copy method

Creates a copy of the entity.

Syntax

objectVariable = object.Copy

Where:

object is the entity to be copied.

Copy method example

Private Sub Copy_and_Rotate_Example()

     ' This example creates a line and then copies it.

     ' The new line is then rotated 10 radians.

         

     ' Create the line

     Dim myDoc As CADopia.Document

     Dim myLine As CADopia.Line

     Dim myStartPt As CADopia.Point

     Dim myEndPt As CADopia.Point

     Set myDoc = Application.ActiveDocument

     Set myStartPt = Library.CreatePoint(4, 4)

     Set myEndPt = Library.CreatePoint(7, 3)

     Set myLine = myDoc.ModelSpace.AddLine(myStartPt, myEndPt)

     myLine.Update

     ' Copy and rotate the line

     Dim copymyLine As CADopia.Line

     Set copymyLine = myLine.Copy()

     copymyLine.Rotate myStartPt, 10

     MsgBox "Rotated the copied line 10 radians."

     ThisDocument.ActiveViewport.ZoomExtents

End Sub