I want to Join two different or same metals which are perpendicular like below picture using a single bindkey instead of Aligning. I am trying to make this happen through the bBox co-ordinates but i have struck at comparing the co-ordinates.

i have implemented the below code 

hiSetBindKey("Layout" "<Key>h" "Swap_X2andY2()")

procedure(Swap_X2andY2()

Paths=nil
x=nil

foreach(x geGetSelSet() when(x~>objType=="pathSeg"
Paths=cons(x Paths)

)
)
when(length(Paths)>=2
Path1=car(Paths)
Path2=cadr(Paths)
print(Path1)
print(Path2)

Path1_BBox=Path1~>bBox
Path2_BBox=Path2~>bBox
print(Path1_BBox)
print(Path2_BBox)

path1_x1=caar(Path1_BBox)
path1_x2=car(car(cdr(Path1_BBox)))
path1_y1=cadar(Path1_BBox)
path1_y2=car(cdr(car(cdr(Path1_BBox))))

path2_x1=caar(Path2_BBox)
path2_x2=car(car(cdr(Path2_BBox)))
path2_y1=cadar(Path2_BBox)
path2_y2=car(cdr(car(cdr(Path2_BBox))))

print(path1_x1)
print(path1_x2)
print(path1_y1)
print(path1_y2)

print(path2_x1)
print(path2_x2)
print(path2_y1)
print(path2_y2)

if(path1_y2>=path2_y2      /////Here I am failing to do
print(yes)

Path2_BBox~>bBox=list(path1_x1:path1_y1 path1_x2:path2_y2)                ///trying to assign new bbox value to path2 and similarly for path1
)
)
)