Angle: Double;
The Angle property determines shape rotation angle (in degrees). When positive values are set, the shape is rotated clockwise, when negative values are set, the shape is rotated counter clockwise.
Executing the example requires that repository contains a workspace with the WSP identifier containing several shapes.
Add links to the Andy, Drawing, Metabase system assemblies.
Sub UserProc;
Var
MB: IMetabase;
ws: IWxWorkspace;
Size: IGxSizeF;
Shape: IWxShape;
Begin
MB := MetabaseClass.Active;
// Get workspace
ws := MB.ItemById("WSP").Edit As IWxWorkspace;
ws.BeginUpdate;
Shape := ws.Shapes.Item(1);
Shape.Angle := 40;
Size := New GxSizeF.Create(43, 78);
Shape.Size := Size;
ws.EndUpdate;
// Save changes
(ws As IMetabaseObject).Save;
End Sub UserProc;
After executing the example size and rotation angle of the second shape are changed.
See also: