Difference between revisions of "CheckProjectionByDirection"
From scripting
(Created page with " Function CheckProjectionByDirection(PointObj As Variant, LineObj As Variant, TargetObj As Variant) As Boolean On Error GoTo Blast Dim Pr As HybridShapeProject Set Pr = MyH...") |
(No difference)
|
Latest revision as of 05:13, 22 April 2017
Function CheckProjectionByDirection(PointObj As Variant, LineObj As Variant, TargetObj As Variant) As Boolean On Error GoTo Blast Dim Pr As HybridShapeProject Set Pr = MyHSFactory.AddNewProject(PointObj, TargetObj) Pr.Direction = MyHSFactory.AddNewDirection(LineObj) CheckProjectionByDirection = True Exit Function Blast: CheckProjectionByDirection = False End Function