Rutina LISP

Ttengo entre manos un pequeño proyecto que exige que el programa (rutina LISP en AutoCAD) cree en un conjunto de simples polilíneas 2D unas líneas perpendiculares a una distancia de exactamente 1,000 m y que esas líneas aparte de ser perpendiculares tuvieran una longitud exactamente de 10 cm a cada lado (ver fichero adjunto)