AutoCad - Rutina para Rasta (espirales)

(DEFUN datos_helisol ( / mens paso)
(INITGET 1)
(SETQ cen (GETPOINT "Centro de la hélice: "))(TERPRI)
(IF radin0 ( ) (SETQ radin0 0))
(SETQ mens (STRCAT "Radio inicial <" (RTOS radin0 2 2) ">: "))
(INITGET 4)
(IF (SETQ radin (GETDIST cen mens)) ( ) (SETQ radin radin0)) (TERPRI)
(SETQ radin0 radin)
(IF radfin0 ( ) (SETQ radfin0 0))
(SETQ mens (STRCAT "Radio final <" (RTOS radfin0 2 2) ">: "))
(INITGET 4)
(IF (SETQ radfin (GETDIST cen mens)) ( ) (SETQ radfin radfin0)) (TERPRI)
(SETQ radfin0 radfin)
(IF pv0 ( ) (SETQ pv0 16))
(SETQ mens (STRCAT "Precisión de puntos en cada vuelta <" (ITOA pv0) ">: "))
(INITGET 6)
(IF (SETQ pv (GETINT mens)) ( ) (SETQ pv pv0)) (TERPRI)
(SETQ pv0 pv)
(IF nv0 ( ) (SETQ nv0 1))
(SETQ mens (STRCAT "Número de vueltas <" (ITOA nv0) ">: "))
(INITGET 6)
(IF (SETQ nv (GETINT mens)) ( ) (SETQ nv nv0)) (TERPRI)
(SETQ nv0 nv)
(INITGET 1 "Paso Altura")
(SETQ op (GETKWORD "Paso/Altura de la hélice: ")) (TERPRI)

Continua...