(defun  c:ree()
  (setq arc_size(getdist"\n"))
  (princ "\n")

  (if (= nil arc_size)
  (setq arc_size num1)
    )

  (command "rectang"
  (setq p1(getpoint))
  (setq p2(getcorner p1))
  )

  (command "revcloud" "a" arc_size arc_size "o"
  (setq ent (entlast))  ;마지막으로 그린 객체를 선택세트로
  "n"
  )

  (setq num1 arc_size)

  (princ)

  )

colud의 크기를 입력 받은후 rectang을 그리면 사각형의 구름이 그려진다.