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


Description:


               Rotate a shape by code.


Parameter:


               operateShape: shape that you will rotate .

               centerPoint: specify the center point of shape.

               fromPoint: the origin point;

               toPoint: the destination point;

               Constrain:constraint the degree or not.


Return:

               return the rotated angle value.



Example:


               var

                 oShape:TMyShape;

               begin

                 oShape := MyCAD1.GetSelectedShape;

        MyCAD1.Tilt(oShape,MyPoint(100,100),MyPoint(200,200),MyPoint(300,300),false);

               end;