<< Click to Display Table of Contents >> Navigation:  TMyCAD > Methods > Tilt

function Tilt(operateShape:TMyShape;centerPoint,fromPoint,toPoint:TMyPoint;Constrain: Boolean):single;

 

 

Description:

 

         Rotate a shape by code.

 

Parameter:

 

         operateShape: shape that you will rotate it.

               centerPoint: specify the center point of shape.

         fromPoint: the origin point;

         toPoint: the destination point;

         Constrain:the enable flag of

 

Return:

         return the rotated angle.

 

 

Example:

 

         var

                 oShape:TMyShape;

         begin

                 oShape := MyCAD1.GetSelectedShape;

        MyCAD1.Tilt(oShape,oShape.GetPoint(0),oShape.GetPoint(1),oShape.GetPoint(2),false);

         end;