(defun new_window
       (dcl_id)
       (new_dialog "arr" dcl_id)
 +     (action_tile "el_r"
            (strcat
                "(setq elR (atof $value))"
                "(done_dialog)")))

(defun circle
    (x y r)
    (command "circle" (list x y) r))

(defun rectangle
    (x y r)
    (command "polygon" 4 (list x y) "I" r))

(defun triangle
    (x y r)
    (command "polygon" 3 (list x y) "I" r))

(defun draw_array
    (shape eX eY R
     aX aY size aR cl)
    (shape eX eY R)
    (command "arraypolar" "l" "" (list aX aY) "I" size 360 "X")
    (setpropertyvalue (entlast) "Radius" aR)
    (setpropertyvalue (entlast) "Color" cl))

(defun get_input
    (/ dcl_id)
    (setq shape nil
          aPosX 0 aPosY 0
          R nil
          elPosX 0 elPosY 0
          mouse1 nil
          mouse2 nil
          elCount nil
          color nil
          elR nil
          color 0
          cancel nil
          point nil)
    (setq step 2)
    (setq dcl_id (load_dialog "C:/Users/User/Desktop/123.dcl"))

    (while (>= step 2)

        (new_dialog "abc" dcl_id)

        (set_tile "aCenterX" (rtos aPosX))
        (set_tile "aCenterY" (rtos aPosY))
        (set_tile "elPosX" (rtos elPosX))
        (set_tile "elPosY" (rtos elPosY))

        (start_image "circle")
            (fill_image 0 0  (dimx_tile "circle") (dimy_tile "circle") 256)
            (slide_image 0 0 (dimx_tile "circle") (dimy_tile "circle") "C:/Users/User/Desktop/circle.sld")
        (end_image)
        (start_image "square")
            (fill_image 0 0  (dimx_tile "square") (dimy_tile "square") 256)
            (slide_image 0 0 (dimx_tile "square") (dimy_tile "square") "C:/Users/User/Desktop/square.sld")
        (end_image)
        (start_image "triangle")
            (fill_image 0 0  (dimx_tile "triangle") (dimy_tile "triangle") 256)
            (slide_image 0 0 (dimx_tile "triangle") (dimy_tile "triangle") "C:/Users/User/Desktop/triangle.sld")
        (end_image)

        (action_tile "circle"
            "(setq shape circle)
             (new_window dcl_id)
             (start_dialog)")
        (action_tile "triangle"
            "(setq shape triangle)
             (new_window dcl_id)
             (start_dialog)")
        (action_tile "square"
            "(setq shape square)
             (new_window dcl_id)
             (start_dialog)")
        (action_tile "elPosX"
            "(setq elPosX (atof $value))")
        (action_tile "elPosY"
            "(setq elPosY (atof $value))")
        (action_tile "aCenterX"
            "(setq aPosY (atof $value))")
        (action_tile "aCenterY"
            "(setq aPosX (atof $value))")
        (action_tile "r"
            "(setq R (atof $value))")
        (action_tile "element_count"
            "(setq elCount (atof $value))")
        (action_tile "mouse_pos1"
            "(done_dialog 3)")
        (action_tile "mouse_pos2"
            "(done_dialog 4)")
        (action_tile "accept"
            "(done_dialog 1)")
        (action_tile "cancel"
            "(setq cancel 1)
             (done_dialog 1)")
        (action_tile "color"
            "(setq color (cdr (assoc 62 (acad_truecolordlg 0))))
             (start_image \"color_display\")
             (fill_image 0 0 (dimx_tile \"color_display\") (dimy_tile \"color_display\") color)
             (end_image)")

    (setq step (start_dialog))
    (if (= step 3) (setq point (getpoint)
                         aPosX (nth 0 point)
                         aPosY (nth 1 point)))
    (if (= step 4) (setq point (getpoint)
                         elPosX (nth 0 point)
                         elPosY (nth 1 point))))

    (if (not (= cancel 1))
         (list shape elPosX elPosY elR aPosX aPosY elCount R color)))

(defun c:drawww ()
    (apply 'draw_array (get_input)))

(apply 'draw_array (get_input))