한선기준으로 수직이동정렬하는 lisp를 구합니다

횡단면도를 lisp를 이용해 돌렸는데 중심위치가 모두 제각각 떨어져서

한선을 중심으로 정렬을 하고 싶은데 move로 수직객체스냅을 키고 하나하나 하기에는 너무 많은 단면이라서 이렇게 lisp을 구합니다..부디 고수님들 도와주셨으면 합니다