CheckFill

From scripting
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