This is basically what I want to do. see attached pdf also. this is for Autocad, I need to do the same in ESRI
Set objWCS = ThisDrawing.UserCoordinateSystems.Add(dblOrigin, dblXVector, dblYVector, "WCS")
ThisDrawing.ActiveUCS = objWCS
On Error GoTo errhndlr
point1 = ThisDrawing.Utility.GetPoint(, "Select Runway Centerline at First Threshold Point,")
point2 = ThisDrawing.Utility.GetPoint(point1, "Select Runway Centerline at Second Threshold Point")
Dim insertionPnt10(0 To 2) As Double
insertionPnt10(0) = point1(0) 'x
insertionPnt10(1) = point1(1) 'y
insertionPnt10(2) = 0 'z
Dim insertionPnt11(0 To 2) As Double
insertionPnt11(0) = point2(0) 'x
insertionPnt11(1) = point2(1) 'y
insertionPnt11(2) = 0 'z
Dim rw1, rw2, rwdist, rwhalfdist As Double
rw1 = point1(0) - point2(0)
rw2 = point1(1) - point2(1)
rwdist = Sqr(rw1 ^ 2 + rw2 ^ 2)
rwhalfdist = rwdist / 2
Module1.rwhalfdist = rwhalfdist
Dim dblRot As Double
Dim pi As Double
pi = 3.14159265358979
pt1 = insertionPnt10
pt2 = insertionPnt11
Module1.pt1 = pt1
Module1.pt2 = pt2
'WBC:replace with this line
dblRot = ThisDrawing.Utility.AngleFromXAxis(pt1, pt2)
newpt9000 = ThisDrawing.Utility.PolarPoint(pt1, (pi + dblRot), -0#)
newpt9001 = ThisDrawing.Utility.PolarPoint(pt1, (pi + dblRot), -thresoffset)
newpt9002 = ThisDrawing.Utility.PolarPoint(pt1, (pi + dblRot), -thresoffset + -150)
'left side bars
newpt9003 = ThisDrawing.Utility.PolarPoint(newpt9001, (pi/2 + dblRot), 5.75)
newpt9004 = ThisDrawing.Utility.PolarPoint(newpt9001, ((pi/2 + dblRot), 11.5)
newpt9005 = ThisDrawing.Utility.PolarPoint(newpt9002, ((pi/2 + dblRot), 11.5)
newpt9006 = ThisDrawing.Utility.PolarPoint(newpt9002, ((pi/2 + dblRot), 5.75)