cexparo
Üye
- Katılım
- 2 Ocak 2014
- Mesajlar
- 8
- Puanları
- 1
Öncelikle lisp'e yeni başladım.
bu kod ile bir çizgi çizdirebiliyorum istediğim açı uzunluk ile
Şimdi ilk çizginin bittiği yerden gene devam etmek istiyorum gene uzunluğu ve açıyı bana sorsun ama yapamadım,yardım edermisiniz?
Teşekkürler.
(defun c:kanatt (/ p1 uzk drc ang p2)
(setq p1 (getpoint "\nÇizimin başlıyacağı nokta: ")
uzk (getdist "\nkanat uzunluğunu gir: ")
drc (getreal "\nkanat açısı açısı: ")
ang (/ (* drc pi) 180) ; burada yukarıda girdiğimiz açıyı radyana çevirdik.
p2 (polar p1 ang uzk)) ; p1 noktasından ang açıyla uzaklık kadar gittiğimizde orası p2 noktası
bu kod ile bir çizgi çizdirebiliyorum istediğim açı uzunluk ile
Şimdi ilk çizginin bittiği yerden gene devam etmek istiyorum gene uzunluğu ve açıyı bana sorsun ama yapamadım,yardım edermisiniz?
Teşekkürler.
(defun c:kanatt (/ p1 uzk drc ang p2)
(setq p1 (getpoint "\nÇizimin başlıyacağı nokta: ")
uzk (getdist "\nkanat uzunluğunu gir: ")
drc (getreal "\nkanat açısı açısı: ")
ang (/ (* drc pi) 180) ; burada yukarıda girdiğimiz açıyı radyana çevirdik.
p2 (polar p1 ang uzk)) ; p1 noktasından ang açıyla uzaklık kadar gittiğimizde orası p2 noktası