Bu
dersimizde Autolisp ile daire çizmeyi öğreneceğiz. Bir önceki dersten farklı olarak daire çap değerini kullanıcıdan isteyeceğiz. Setq
komutuyla dr_capi deyişkenine değer atadık.
; Daire çizme lispi
(defun c:crc2 (/ pt1 drcap)
(setq pt1 (getpoint "\n Daire merkezi için ekrana tıkla ?! :"))
(setq dr_capi (getreal "\n Daire çapı nedir ? :"))
(command "circle" pt1 "d" dr_capi "")
(princ)
)
(Princ "Lisp'i çalıştırmak için > crc2 < yazınız! [http://hqlibrary.blogspot.com] ")
(defun c:crc2 (/ pt1 drcap)
(setq pt1 (getpoint "\n Daire merkezi için ekrana tıkla ?! :"))
(setq dr_capi (getreal "\n Daire çapı nedir ? :"))
(command "circle" pt1 "d" dr_capi "")
(princ)
)
(Princ "Lisp'i çalıştırmak için > crc2 < 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 crc2 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) Getreal komutu ile kullanıcıdan bilgi istedik. Kullanıcıdan sayısal değer alıp, bunu setq komutu ile dr_capi deyişkenine tanımladık.
4) Command komutunu kullanarak daire çizme işini gerçekleştirdik.
5) Autolisp programı bitmeden önce princ komutunu kullandık.
Sormak istediğiniz bir soru var mı ?
EmoticonEmoticon