(defun c:bAr (/)
(setvar "cmdecho" 0) (command "undo" "group") (setq oosm (getvar "osmode"))
(defun *error* (er) (setvar "osmode" oosm) (command "undo" "e") (princ er))
(setvar "osmode" 225)       
(setq pt (getpoint "\rSınır sol alt köşe. "))
(setq dpt (getcorner pt "\nSınır sağ üst köşe. "))
(setq ent (entsel "\rBlok seçiniz."))
(if (= nil ent)
(progn (setq nt (getstring "\rBlok ismini giriniz. : ")))
(progn (setq nt (cdr (assoc 2 (entget (car ent)))))))
(setvar "osmode" 0)
(initget 1)
(setq nx (getint "\rYan yana blok sayisi: "))
(initget 1)
(setq ny (getint "\rDikine blok sayisi: "))
(setq x0 (car pt))
(setq y0 (cadr pt))
(setq x2 (car dpt))
(setq y2 (cadr dpt))
(setq x1 (/ (- x2 x0) (* 2 nx)))
(setq y1 (/ (- y2 y0) (* 2 ny)))
(setq x4 (* x1 2))
(setq y4 (* y1 2))
(setq xy1 (list (+ x1 x0) (+ y1 y0)))
(command "insert" nt xy1 "1" "1" "0")
(if (> nx 1) (if (> ny 1) (command "array" "la" "" "r" ny nx y4 x4)))
(if (= nx 1) (if (> ny 1) (command "array" "la" "" "r" ny nx y4)))
(if (= ny 1) (if (> nx 1) (command "array" "la" "" "r" ny nx x4)))
(setvar "osmode" oosm) (command "_.undo" "e") (princ)
)