NumberOfSides: Integer;
The NumberOfSides property determines the number of polygon sides.
Executing the example requires an existing ws object of the IWxWorkspace type.
Sub UserProc;
Var
ws: IWxWorkspace;
Reg : IWxRegulargon;
Begin
Reg := ws.Shapes.FindById("Shape 3") As IWxRegulargon;
Reg.NumberOfSides := 5;
End Sub UserProc;
After executing the example a polygon is converted into a pentagon.
See also: