; http://www.jefferypsanders.com/autolispintr.html
; http://www.afralisp.net/visual-lisp/tutorials/properties-methods-part-3.php
; http://www.cadtutor.net/forum/showthread.php?33295-Help-for-VLA-*-functions-(where-to-find)


(DEFUN C:circulos ()

    (SETQ centro (GETPOINT "centro"))
    (SETQ radio (GETDIST centro "distancia"))
    (SETQ circulos (GETINT "circulos"))

    (SETQ radio_actual (/ radio circulos))

    (REPEAT circulos
        (COMMAND "_circle" centro radio_actual)
        (SETQ radio_actual (+ (/ radio circulos) radio_actual))
    )

)