Sugerencias de autolisp

[control]

Estoy elaborando un programa para estrechar una línea con la longitud que al principio se pide. Esto es desde el mouse doy dos puntos y el programa estrechara estos dos puntos y dibujara una línea. Este es mi programa inicial.
(DEFUn C:LD (/ P1 P2 N P1X P2X P3X P1Y P2Y P3Y).
(setq N (getreal \nLONGITUD DE DESARROLLO? )) ;PARA PeDIR La LONGITUD DE DESARROLLO
(SETQ P1 (GETPOINT PUNTO 1)
(SETQ P1X (CAR P1))
(SETQ P1Y (CADR P1))
(SETQ P2 (GETPOINT PUNTO 2)
(SETQ P2X (CAR P2))
(SETQ P2Y (CADR P2)).
(COMAND LINE P1 P2 )
(COMAND ID P1)
(COMAND ID P2)
;(COMAND WRITE P1X)
;(COMAND WRITE P2Y)
).

La idea es que el p1 y p2 al momento de dibujarse sean la suma de los puntos más la longitud de desarrollo de cada lado ejemplo:
longitud de desarrollo igual a 35cm, con el mouse doy el primer y segundo punto, a esa longitud le tengo que sumar de cada lado los 35cm de la longitud de desarrollo y el programa dibuje en sentido que se dieron los puntos la línea correspondiente a la suma total.
gracias espero me puedan ayudar, saludos.

[3dpoder]

Hola pixaeiro y bienvenido a foro3d, esperamos que sea de su agrado. A continuación, le ruego que lea estas líneas, respetarlas, hará que el foro sea útil y agradable.
* Si no está familiarizado con el funcionamiento del foro, use la barra de herramientas.
* Antes de realizar una pregunta, use el buscador del foro, puede que esto resuelva sus dudas de forma rápida, en caso contrario, por favor haga la pregunta.
* Publicar el mensaje en la sección correcta le reportará respuesta rápida, en el menú superior tiene la opción Preguntar sobre.
* Intente escribir un título descriptivo de su mensaje y escriba de forma correcta en español.
* Cuando suba un trabajo al foro, sea imagen, animación o cualquier otro archivo, use la opción Adjuntar o insertar imagen, no utilice servidores externos al foro, la barra de herramientas superior que aparece cuando está publicado un mensaje, le proporciona todo lo que necesita, sólo pase el ratón sobre los iconos y aparecerá la descripción. Gracias por leer estas indicaciones, póngase cómodo y disfrute del foro, está en su casa.