Ana Sayfa | SSS | Site Haritası | Yardım
Kenan kılıçaslan

  • Sürtünme Kaybı
  • Diferansiyel Denklem
  • Denklem Çözümü

Lisp Programlama

Döngüler

AutoLisp'te döngünün 2 çeşiti vardır. Bunlar (repeat) ve (while) diye isimlendirilir.

 

(repeat)

(Repeat) basit bir döngü yapısıdır. İstenilen kez dögü çalışır. Burada temel bir örnek vardır.

(defun c:loop ( ) 
 
   (setq pt (getpoint ("\nDönme Merkezi"))) 
   (setq n  (getint "\nKademe Sayısı : "))
   (repeat n
              (command "Rotate" "L" "" pt "20")
    )
	(princ)
)

(while)

(while) bir koşula bağlı olarak döngü devam eder. Koşul nill değer olınca döngüden çıkar.

Örnek 1:
(defun c:loop1 ()
	(while
		(setq pt (getpoint "\nBir nokta seç : "))
		(command "point" pt)
	)
  (princ)
)
  
Örnek 2:
(defun c:loop2 () 
	(setq ptlist nil)
	(while
		(setq pt (getpoint "\nBir nokta işaretle veya ENTER tuşuna bas: "))
		(setq ptlist (append ptlist (list pt)))
	)
  (princ)
)
  
Örnek 3:
(defun c:loop3 ()
	(setq count 0)
	(while (< count 10)
		(princ count)
		(setq count (1+ count))
	)
  (princ)
)
  

Yukarı | Lisp Ana Sayfa

beyaz_sayfa_en_alt_oval

Dökümanlar    Ürün ve Hizmetler    Hesap Modülleri    Birim Çevir    Referanslar    İletişim

Kenan KILIÇASLAN 2012© Tüm Hakları Saklıdır.       Designed by Nuit