Software Developer's Kit - ChemDraw

Send comments on this topic
Geometries Property
See Also 

Description

Member of ChemDraw Control.Group.

Returns the geometries collection of this group.

Property type

Read-only property

Syntax

Visual Basic
Public Property Geometries() As Geometries

Return Type

Geometries

Remarks

The geometries property refers to the collection of geometries which is within this Group. The properties associated with the collection are the following:

myGroup.Geometries.Application      returns the application associated with the geometries collection
myGroup.Geometries.Count             returns the number of geometries in the collection
myGroup.Geometries.Item(i)            returns one geometry from the collection
myGroup.Geometries.Parent            returns the parent of the geometries collection

With AltGroup.Geometries.Item(i) all the geometry properties are enabled for geometry(i). This index starts with 1.

Example

'Returns the number of geometries
 Private Sub ctlChemDraw_SelectionChanged(ByVal selection As ChemDrawControl10Ctl.IChemDrawSelection)
     Set  MyGroup = ctlChemDraw.MakeGroup()
     For  x = 1 To selection.Objects.Count - 1 'Groups all the objects, without including the actual Group
          Selection.Objects.Item(x).Group = MyGroup
     Next x
     Label1.Caption = "AltGroups: " & MyGroup.AltGroups.Count
     Label2.Caption = "Bonds: " & MyGroup.Bonds.Application
     Label3.Caption = "Captions: " & MyGroup.Captions.Item(1).Text
     Label4.Caption = "Atoms: " & MyGroup.Atoms.Parent.ID
     Label5.Caption = "Constraints: " & MyGroup.Constraints.Count
     Label6.Caption = "Geometries: " & MyGroup.Geometries.Count
     Label7.Caption = "Objects: " & MyGroup.Objects.Count
     Label8.Caption = "Pictures: " & MyGroup.Pictures.Count
     Label9.Caption = "Splines: " & MyGroup.Splines.Count
     Label10.Caption = "StoichiometryGrids: " & MyGroup.StoichiometryGrids.Count
     Label11.Caption = "Tables: " & MyGroup.Tables.Count
     Label12.Caption = "TLCPlates: " & MyGroup.TLCPlates.Count
 End Sub

See Also