CheckProjectionByDirection

From scripting
Jump to: navigation, search
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