Difference between revisions of "IsPlanar"
From scripting
(Created page with " Function IsPlanar(InputObj As Variant) As Boolean Dim CM Set CM = TheSPAWorkbench.GetMeasurable(InputObj) If CM.GeometryName = 7 Then IsPlanar = True Else IsPla...") |
(No difference)
|
Latest revision as of 07:02, 22 April 2017
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
