;            Ebatlı Dörtgen Çizim Lispi  v.1.0           
;      ( kullanıcıdan verdiği ebat değerlerine göre )     
;                 ( ölçülü dörgen çizme )                 
;          ( 30 mm x 60 mm saç platina gibi .. )         
;                                                         
;              yazgunesi02@gmail.com                     
;              www.autocadokulu.com                       


(defun c:kt1 () ; komut ismi   kt1   olsun  dedik..
     ;     kullanıcıdan gerekli bilgileri alalım       
        (setq by (getreal "\n Kutu Boyu ? :" )
      en (getreal "\n Kutu Eni ? :" )
              yr (getpoint "\n Yerlestirme yeri [TıKLa] :")
     ;   dörtgenin yükseklik ayarı // çizim doktasının yeri     
              a1(list (car yr) (+ (cadr yr) en))
     ;   çizim objesindeki noktaların kordinat hesabı       
              a2(list (- (car yr) (/ by 2)) (cadr yr))
              a3(list (car a2) (cadr a1))
              a4(list (+ (car yr) (/ by 2)) (cadr yr))
              a5(list (car a4) (cadr a3))
          )
    ;   şimdi dörtgeni çizdirme zamanı                 
        (command   "color" "2" ""  ; renkli çizim yapma özelliği
                   "line" a2 a3  ""
          ; üstteki satırda dedik ki
          ; a2 noktasından a3 noktasına çizgi çiz
                   "line" a3 a5  ""
           "line" a5 a4  ""
             "line" a4 a2  ""
     )
       )

(Princ "Lisp'i çalıştırmak için > kt1 < yazınız! [www.autocadokulu.com] ")


;            Renk Değiştirme Testi Sonuçları

;    (command   "color" "5" ""  <<<  satırındaki rakam
;
;     değiştirildiğinde
;                       
;      1 >> kırmızı             
;      2 >> sarı       
;      3 >> yeşil       
;      4 >> açık mavi   
;      5 >> mavi       
;      6 >> pembe     
;      7 >> beyaz       oluyor.