(DEFUN C:kare ( )
;;;;;;;;;;;;;;;;;;;;;;;AYARLAR;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq a 2)              ;koordinat yazısı büyüklüğü
(setq ax (* 2 a))
(setq ay (* 4 a))
(setq b 1)              ;koordinat yazısının karelaj cizgisinden uzaklığı
(setq c 0)              ;yazılacak yazının acısı
(setq d "red")          ;renk
(setq e 5)              ;karelaj cizgi uzunluÄŸu
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,
(setq f (getdist "n karelaj yapılacak pafta boyutlarını (x yonün deki uzunlugu yazınız): "))
(setq g (getdist "n karelaj yapılacak pafta boyutlarını (y yonün deki uzunlugu yazınız): "))
(setq h (getdist "n karelaj aralığını yazınız: "))
(setq xyz (getpoint "cizimin sol alt köşesini tıklayınız"))
(setq x (car xyz))
(setq y (cadr xyz))
(setq z (caddr xyz))
(command "zoom" "w" (list (- x 10) (- y 10) 0) (list (+ x 10) (+ y 10) 0))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(command "layer" "m" "koordinat" "c" d "" "")
(setq i 0)
(setq j 0)
;;;;;;y yonu yazı;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(While (< i (+ 1 g))
(setq xay (- x ay))
(setq xyzyyonu (list xay (+ y i) 0))
(setq ykoor (cadr xyzyyonu))
(setq yazıy (rtos ykoor))

(command "text" "j" "mc" xyzyyonu a c yazıy)
(setq i (+ i h))
)
;;;;;;x yonu yazı;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(While (< j (+ 1 f))
(setq yax (- y ax))
(setq xyzxyonu (list (+ x j) yax 0))
(setq xkoor (car xyzxyonu))
(setq yazıx (rtos xkoor))

(command "text" "j" "mc" xyzxyonu a c yazıx)
(setq j (+ j h))
)
;;;;;;karelaj;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(command "layer" "m" "karelaj" "c" d "" "")
(setq i 0)
(setq j 0)
(While (< i (+ 1 g))
(While (< j (+ 1 f))
(setq karx (+ x j))
(setq kary (+ y i))
(setq karxy1 (list (- karx (/ e 2)) kary 0))

(setq karxy2 (list (+ karx (/ e 2)) kary 0))

(setq karxy3 (list karx (- kary (/ e 2)) 0))

(setq karxy4 (list karx (+ kary (/ e 2)) 0))

(command "line" karxy1 karxy2 "")

(command "line" karxy3 karxy4 "")
(setq j (+ j h))
)
(setq i (+ i h))
(setq j 0)
)
(command "layer" "m" "0" "")
(command "zoom" "p")
)
(PRINC " --> 'cizimokulu.com' Çizim yardımları yüklendi !")