Need a script to draw perpendiculars from point shapefile.

[GarrettRoss]

Trying to draw perpendiculars from point shapefile to be able to create polygon sections of a street network.

I have the points and polyline files need the red lines in the attachment.

THANKS!