3D 자동 전체 EXTRUDE LISP 만들수 있나요??

안녕하세요. LISP 초보 입니다.

3D에서 일일이 EXTRUDE하는게 귀찮아서요..

부재 직경만 주고 명령어 치고 센터라인 다 드래그후에 엔터만 치면 부재 직경에 맞게 EXTRUDE시켜주는 LISP 가능 할까요?  짜려니 너무 막막함니다.. ㅜㅜ LISP고수 분들 부탁드립니다…

화일은 예제로 첨부합니다..

cad는 2002나 2008로 부탁드립니다