Autolisp hakkında yardım

[cexparo]

Ö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ı

 

[seagate]

Bknz: Canvas (inşallah fazla ağır olmamıştır)

draw polygon (X1,Y1,X2,Y2,..........................,Xn,Yn)


Soru yazan arkadaş !
For döngüsü ile çalış ama sana sadece ilk hattı çizerken 4 adet koordinat sorsun diğerlerinde sadece 2 kordinat (x,y)

sonX = 0
sonY=0
for i in range("adamın girdiği adet") :
def "Senin fonksiyonun":
if ilk == 0 :
"2 şerden 4 kordinat işle"
"son girilen X i sonX e aktar"
"son girilen Y i sonY e aktar"
p1= "Adamın girdiği P1x,P1y"
p2= "Adamın girdiği P2x,P2y"
sonX= P2x
sonY= P2y
else:
p1 = sonX,sonY
p2= "Adamın girdiği P1x,P1y"


**Aslında x,y olarak değilde sadece Pson (Nokta) olarak kaydedebilirsin ama yarın öbürgün hacim alan hesaplatayım dersen o noktaları tek tek parçalaman gerekir.