CheckFill

From scripting
Revision as of 05:11, 22 April 2017 by Nickpisca (talk | contribs) (Created page with " Function CheckFill(BoundaryObj As Variant) As Boolean On Error GoTo NNN Dim CF As HybridShapeFill Set CF = MyHSFactory.AddNewFill() CF.AddBound BoundaryObj MyPart.Update...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
Function CheckFill(BoundaryObj As Variant) As Boolean
On Error GoTo NNN
Dim CF As HybridShapeFill
Set CF = MyHSFactory.AddNewFill()
CF.AddBound BoundaryObj
MyPart.UpdateObject CF
CheckFill = True
Exit Function
NNN:
CheckFill = False
End Function