Difference between revisions of "CheckFill"
From scripting
(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...") |
(No difference)
|
Latest revision as of 05:11, 22 April 2017
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