Difference between revisions of "HasCOG"

Latest revision as of 06:04, 22 April 2017

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