OpenSTAAD V8i
Creates a group with specified name for the specified type.
Where:
A long variable providing the group type.
1 = Nodes
2 = Beams/Members
3 = Plates
4 = Solids
5 = Geometry (Beams, Plates and Solids)
6 = Floor (Floor beams)
A string variable providing the group name.
Dim objOpenSTAAD As Object
Dim lGroupType As Long
Dim strGruopName As String
'Get the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
'Create a Group
objOpenSTAAD.Geometry.CreateGroup lGruopType, strGruopName