Composite Example
Sub Example_Composite()
' This example creates a composite surface from two existing surfaces.
Dim surfs As AeccSurfaces
Dim childSurf As AeccSurface
Dim parentSurf As AeccSurface
Dim newSurf As AeccSurface
Set surfs = AeccApplication.ActiveProject.Surfaces
Set childSurf = surfs.Item(0)
Set parentSurf = surfs.Item(1)
Set newSurf = surfs.Composite("New Surface", parentSurf.Name, childSurf.Name)
MsgBox "The number of faces in the new surface is: " & newSurf.NumberOfFaces, _
vbInformation, "Composite Example"
End Sub