Hunger for help and sugestions

[Baçon]

Helo:

Thank you for reading

Best regards

[paulmcz]

(defun c:whatever (/ ip inr nv u1)
(setq ns (getint "\n Number of polygon sides: ")
inr (getdist "\n Circumscribed circle radius: ")
nv (getint "\n Number of laps: ")
ip (getpoint "\n Insertion point: ")
u1 0
osn (getvar "osmode")
u2 (/ pi ns))
(setvar "osmode" 0)
(while (>= nv 1)
(command "polygon" ns ip "" (polar ip u1 inr))
(setq inr (* inr (cos u2))
nv (1- nv)
u1 (+ u1 u2)))
(setvar "osmode" osn)
(princ)
)
Here you go...