HasCOG

Function HasCOG(PointObj As Variant) As Boolean
On Error GoTo Blast
Dim MMeas
Set MMeas = TheSPAWorkbench.GetMeasurable(PointObj)
Dim MM(2)
MMeas.GetCOG MM
HasCOG = True
Exit Function
Blast:
HasCOG  = False
End Function