Autolisp ders no 2

Bu dersimizde iki nokta arasında çizgi çizmeyi öğreneceğiz. Ekranda 2 noktaya tıklayarak çizgi başlangıç ve bitiş noktasını belirleyerek line komutunu kullanarak çizim işi gerçekleştirilecek

; Çizgi çizme lispi

(defun c:line2 (/ pt1 pt2 pt3)
(setq  pt1 (getpoint "\n İlk nokta için ekrana tıkla ?! :"))
(setq  pt2 (getpoint "\n İkinci nokta için ekrana tıkla ?! :"))
(setq  pt3 (getpoint "\n Üçüncü nokta için ekrana tıkla ?! :"))
(command "line"  pt1  pt2 pt3 "")
(princ)
)

(Princ "Lisp'i çalıştırmak için  > line2 < 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 line2 olarak belirlendi.

2) Setq komutu ile ard arda ikitane deyişken tanımladık. Bu deyişken için isim olarak pt1 ve pt2 dedik. Pt1 demek point1 demek, yani 1 nolu kordinat noktası demek. Pt2 demek 2 nolu kordinat noktası demek. Bu programda yeni olarak pt3 deyişkeni ekledik. Böylece 3. kordinat noktasını da tanımladık.

3) Getpoint komutu ile kullanıcıdan ekrana tıklamasını istedik. Ekrana tıklanıldığında belli bir kordinat noktasını setq komutu ile pt1 deyişkenine tanımladık.

4) Bizlerin kordinat dediği şey  x,y,z kordinatı. Çizgi başlangış ve bitiş noktası için seçimi yapmak gerekiyordu. Bu programda bunu gerçekleştirdik.

5) Command komutunu kullanarak çizgi çizme işini gerçekleştirdik.

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


Autolisp ders no 1   Autolisp ders no 2   Autolisp ders no 3    Autolisp ders no 4


İletişim : Mesaj göndermek için bu yazıya tıkla !