procedure Rotate (AShape:TMyShape;AAngle:Single);


Description:


 Rotate  a shape or a combine shape by code.  AAngle  in radians. This command is more useful for automatic processing.


Example:


This example is for rotating shape 30 degree.


AShape:= MyCAD1.GetSelectedShape;

if AShape <> nil then

  MyCAD1.Rotate(AShape, 30*pi/180);