(defun c:kt (/)
   (command "undo" "group") (setvar "cmdecho" 0)
   (Setq oSm (getvar "osmode"))
   (defun *error* (er)(setvar "osmode" oosm)
   (command "undo" "e")(princ er))
   (setq Boy (getreal "\nKutu Y Boyutu ? : ")
          En (getreal "\nKutu X Boyutu ? : "))
   (setq  B (ssget '((0 . "POINT")))
          N (sslength B)
          L 0)
   (setvar "osmode" 0)
   (while (< L n)
      (setq eleman (entget (ssname B L))
            Ym  (cdr (assoc 10 eleman))
            M1 (/ Boy 2)
            M2 (/ En 2)
            N1 (polar Ym (/ pi 2) m1)
            N2 (polar Ym (-(/ pi 2)) m1)
            P1 (polar N1 0 (- m2))
            P2 (polar n2 0 m2))
      (command "Rectangle" p1 p2)
      (setq L (+ L  1))
   )
   (setvar "osmode" oSm)
   (command "_.undo" "e")(princ)
)