Proporcione programación visual ceceo para esta imagen CAD.

¡Hola!

La tarea 26 es muy interesante. Intenté escribir un programa, utilizando principalmente la función de bucle de lisp para realizar el dibujo automático.

El procedimiento es el siguiente, por favor comprueba si es correcto.

(defun c: for_jump (/ p0 p r n i alfa pl j) (setq p0 ? '(0 0)

r (getdist p0 "radius:")

n (getint "\nNúmero de lados:")

i 0

alfa (/ (* 2 pi) n)

pl ? p0) ) (repetir n

(setq p ?(polar p0 (* i alfa) r)

?pl (cons p pl)

?i ?(1 i)

) ) (setq n (longitud pl)

i 0 ) (repetir n

(setq j (1 i))

(repetir (- n i 1)

? (comando "linea" (nth i pl) (nth j pl) "")

? (setq j (1 j))

)

(setq i (1 i)) )

)