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

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 can rotate shape 30 degree.

 

AShape:= MyCAD1.GetSelectedShape;

if AShape <> nil then

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