Zajmujemy się tworzeniem i pisaniem programów oraz nakładek na AutoCAD®, BricsCAD®, GstarCAD®, ZwCAD®, ZwCAD+ Plus®
Zaloguj się           Zarejestruj się          FAQ          Szukaj

Odpowiedz  [ 1 post ] 
Autor Wiadomość
 Temat postu: [AutoLISP] Sumuje wszystkie elementy listy
PostWysłany: Nie Maj 10, 2009 7:13 pm 
Awatar użytkownika
Administrator
Dołączenie: Wto Lut 17, 2009 6:17 pm
Posty: 196
Offline
Sumuje wszystkie elementy listy l i zwraca wynik w postaci liczby.

Przykładowe wywołanie:
(lista_zlicz (list 1 2 "3" "4.5"))

zwróci wynik:
10.5

Kod programu:
(defun lista_zlicz(l / zwrot i jest)

(setq
zwrot 0
jest nil
i 0)
(while (< i (length l))
(if (or (equal(type(nth i l))(type 1)) (equal(type(nth i l))(type 1.1)) )
(progn
(setq zwrot (+ zwrot (nth i l)) )
(setq jest T)
)
)
(if (equal(type(nth i l))(type "1"))
(progn
(setq zwrot (+ zwrot (atof(nth i l))) )
(setq jest T)
)
)

(setq i (1+ i))
)

(if (equal jest nil) nil zwrot)
)


 Profil WWW  
 
Wyświetl posty z poprzednich:  Sortuj według  
Odpowiedz  [ 1 post ] 

Kto jest na forum

Użytkownicy przeglądający to forum: Brak zarejestrowanych użytkowników oraz 1 gość




Szukaj:
Skocz do:  
 cron

Ta strona używa plików Cookies - Polityka plików Cookie.