IsPlanar

From scripting
Jump to: navigation, search
Function IsPlanar(InputObj As Variant) As Boolean
Dim CM
Set CM = TheSPAWorkbench.GetMeasurable(InputObj)
If CM.GeometryName = 7 Then
    IsPlanar = True
Else
    IsPlanar = False
End If
End Function