If (TypeOf oEnt Is AeccSurface) Then
Set oSurface = oEnt
Dim vPoints As Variant
Dim cCount As Integer
vPoints = oSurface.Points
cCount
= (UBound(vPoints
) + 1) / 3 g_oDocument.Points.AddMultiple cCount, vPoints, 0
Else
ThisDrawing.Utility.Prompt "A valid object was not selected"
End If