Model

Gemini (Default)

Example input

[Task_Description]: Create a command 'D5' that draws 5 concentric circles starting from a user-selected center point, with radius increasing by 10 units each time.

Example output

(defun c:D5 (/ pt rad i)
  (setq old_cmdecho (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq pt (getpoint "\nSelect Center Point: "))
  (setq rad (getreal "\nEnter Initial Radius: "))
  (if (and pt rad)
    (progn
      (setq i 0)
      (repeat 5
        (command "._CIRCLE" pt (+ rad (* i 10)))
        (setq i (1+ i))
      )
      (princ "\n5 Concentric Circles Drawn.")
    )
    (princ "\nInvalid Input.")
  )
  (setvar "cmdecho" old_cmdecho)
  (princ)
)