Autolisp ders no 3

Bu dersimizde Autolisp ile daire çizmeyi öğreneceğiz. Ekrandaki herhangi bir noktaya tıklayarak çizim işi gerçekleştirilecek. Bu programda daire çap değeri yada radüs değeri sorulmuyor. Setq komutuyla drcap deyişkenine değer atadık. Daire çapı 15 olarak tanımlandı.

; Daire çizme lispi

(defun c:crc1 (/ pt1 drcap)
(setq  pt1 (getpoint "\n Daire merkezi için ekrana tıkla ?! :"))
(setq drcap 15)
(command "circle"  pt1 "d" drcap)
(princ)
)

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

2) Setq komutu ile ard arda iki 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.

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  aslında x,y,z kordinatı.

5) Command komutunu kullanarak daire ç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 !