AutoCad - Esperiales continuacion

(DEFUN solido ( / radsec mens ptscp cencir)
(IF radsec0 () (SETQ radsec0 1))
(SETQ mens (STRCAT "\nRadio de la sección <" (RTOS radsec0 2 2) ">: "))
(INITGET 6)
(IF (SETQ radsec (GETDIST p0 mens)) ( ) (SETQ radsec radsec0))
(SETQ radsec0 radsec)
(SETQ ptscp (LIST (CAR cen) (CADR cen) 100))
(COMMAND "_ucs" "_3p" cen p0 ptscp)
(SETQ cencir (TRANS p0 0 1))
(COMMAND "_circle" cencir radsec)
(COMMAND "_ucs" "_w")
(SETVAR "pickbox" 1)
(COMMAND "_extrude" "_l" "" "_p" p0)
(PROMPT (STRCAT "\nLongitud total de la hélice " (RTOS distot 2 2) "."))
)

(DEFUN c:helisol ( / cen radin radfin nv pv dz drad distot p0)
(SETVAR "cmdecho" 0)
(SETQ error0 *error* *error* errores)
(SETQ refnt0 (GETVAR "osmode"))(SETVAR "osmode" 0)
(SETQ pick0 (GETVAR "pickbox"))(SETVAR "pickbox" 0)
(COMMAND "_undo" "_begin")
(datos_helisol)
(helice)
(solido)
(COMMAND "_undo" "_end")
(SETVAR "osmode" refnt0)(SETVAR "pickbox" pick0)(SETVAR "cmdecho" 1)(PRIN1)
)

Continua...