IWxShapes.Count

Syntax

Count: Integer;

Description

The Count property returns the number of workspace objects.

Example

Executing the example requires an existing ws object of the IWxWorkspace type.

Sub UserProc;

Var

ws: IWxWorkspace;

view : IWxView;

Shs : IWxShapes;

i : Integer;

Begin

view := ws.CreateView;

Shs := ws.Shapes;

For i := 0 To Shs.Count - 1 Do

view.SelectedShapes.Add(ws.Shapes.Item(i));

End For;

view.GroupSelectedShapes;

End Sub UserProc;

After executing the example all objects located in the workspace are merged into a group.

See also:

IWxShapes