while loop help

[Anonymous]

if 'Yes' draw circle 

if 'no' draw line 

and i want to loop this. can any one help on this please.

[_Tharwat]

Hi,

Something like this?

(defun c:test (/ rad rep pt1 pt2)
  (setq rad 0.5) ;; Radius of Circle.
  (while (progn
           (initget "Yes No")
           (setq rep (getkword
                       "\nDraw Circle [Yes], Line [No] or enter to Exit :"
                     )
           )
         )
    (if (setq pt1 (getpoint "\nSpecify first point :"))
      (if (= rep "Yes")
        (entmake (list '(0 . "CIRCLE") (cons 10 pt1) (cons 40 rad)))
        (if (setq pt2 (getpoint "\nSpecify next point :" pt1))
          (entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)))
        )
      )
    )
  )
  (princ)
)

[Anonymous]

Tq