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] Zlicza wartości podlist
PostWysłany: Pon Maj 11, 2009 7:26 am 
Awatar użytkownika
Administrator
Dołączenie: Wto Lut 17, 2009 6:17 pm
Posty: 200
Offline
Zlicza wartości podlist listy l na pozycjach podlist określonych przez poz

Przykładowe wywołanie:
(Plista_pozycja_zlicz (list '("1" 2)'(3 4)'(nil nil)) 0)

zwróci wynik:
4

Kod programu:
(defun Plista_pozycja_zlicz(l poz / zwrot i jest)

(setq
zwrot 0
jest nil
i 0)
(while (< i (length l))
(if (or (equal(type(nth poz(nth i l)))(type 1)) (equal(type(nth poz(nth i l)))(type 1.1)) )
(progn
(setq zwrot (+ zwrot (nth poz(nth i l))) )
(setq jest T)
)
)
(if (equal(type(nth poz(nth i l)))(type "1"))
(progn
(setq zwrot (+ zwrot (atof(nth poz(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

RODO - Polityka prywatności.


Ta strona internetowa używa plików cookies w celu tworzenia statystyk oglądalności i utrzymania sesji użytkownika na Forum.