Methods

Rotate Method (IntelliCAD)

Collapse All Expand All

BasePoint: Point object representing the point about which objects will be rotated.

RotationAngle: A double-precision variable (or value) representing the angle in radians.

Description

Rotates an object.

Syntax

Visual Basic
Public Sub Rotate( _ ByVal BasePoint As Point, _ ByVal RotationAngle As Double _ )

BasePoint: Point object representing the point about which objects will be rotated.
RotationAngle: A double-precision variable (or value) representing the angle in radians.

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 IntelliCAD.Document

Dim myLine As IntelliCAD.Line

Dim myStartPt As IntelliCAD.Point

Dim myEndPt As IntelliCAD.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 IntelliCAD.Line

Set copymyLine = myLine.Copy()

copymyLine.Rotate myStartPt, 10

MsgBox "Rotated the copied line 10 radians."

ThisDocument.Application.ZoomExtents

End Sub