IsPlanar

From scripting
Revision as of 07:02, 22 April 2017 by Nickpisca (talk | contribs) (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...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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
Retrieved from "http://nickpisca.com/BLAST/index.php?title=IsPlanar&oldid=191"