리스트에서 순서뽑기

((A B) (C D) (E F) (G H))

caar - A
cadar - B
caadr - C
cadadr - D
caaddr - E
cadr (caddr - F
car (cadddr - G
cadr (cadddr - H
car - (A B)
cadr - (C D)
caddr - (E F)
cadddr - (G H)

 

(defun c:xx ( / lst)
   (setq lst (list '(a b) '(c d) '(e f) '(g h)))
   (princ "\n")
   (princ (caar lst))
   (princ "\n")
   (princ (cadar lst))
   (princ "\n")
   (princ (caadr lst))
   (princ "\n")
   (princ (cadadr lst))
   (princ "\n")
   (princ (caaddr lst))
   (princ "\n")
   (princ (cadr (caddr lst)))
   (princ "\n")
   (princ (car (cadddr lst)))
   (princ "\n")
   (princ (cadr (cadddr lst)))
   (princ "\n")
   (princ (car lst))
   (princ "\n")
   (princ (cadr lst))
   (princ "\n")
   (princ (caddr lst))
   (princ "\n")
   (princ (cadddr lst))
   (princ)
)

 

'CAD > Lisp' 카테고리의 다른 글

grread 옵션 정리  (0) 2014.11.10
SSGET 사용법 정리  (0) 2014.11.07
(mapcar) 와 (lambda)  (0) 2014.10.25
Entmake 할 때, 객체별 요구리스트 정리  (0) 2014.10.25
켜 생성  (0) 2014.10.11