Autolisp ders no 5

 











Bu dersimizde Autolisp ile yay çizmeyi öğreneceğiz. Daha önceki derslerimzde çizgi, daire çizmeyi öğrenmiştik. Benzer yöntem olarak yay çizmeyi öğreneceğiz.

; Yay çizme lispi

(defun c:yay ()
  (setq pt1 (getpoint "\nYay başlıngıç noktası ?! : "))
  (setq pt2 (getpoint "\nYay orta nokta ?! : "))
  (setq pt3 (getpoint "\nYay bitiş noktası ?! : "))
  (command  "arc" pt1 pt2 pt3 "")
  (princ)
)
(Princ "Lisp'i çalıştırmak için  > yay < yazınız! [http://hqlibrary.blogspot.com] ")

Program hakkında açıklamalar :

1) İlk satırda bulunan c: sonrasındaki ifade komut ismidir.Yani buradaki komut ismi yay olarak belirlendi.

2) Setq komutu ile ard arda üç tane deyişken tanımladık. Bu deyişken için isim olarak pt1 dedik. Pt1 demek point1 demek, yani 1 nolu kordinat noktası demek.Yay çizimi gerçekleşmesi için ekranda 3 farklı noktaya tıklamayı kullanıcıdan istedik.

3) Getpoint komutu ile kullanıcıdan ekrana tıklamasını istedik. Ekrana tıklanıldığında, getpoint komutu ile elde edilen kordinat değerini setq komutu ile pt1 , pt2 , pt3 deyişkenlerine tanımladık.

4) Command komutunu kullanarak yay çizme işini gerçekleştirdik.

5) Autolisp programı bitmeden önce princ komutunu kullandık.