CAR CADR CADDR CDR LIST 중 선택 응답

 

 

CAR  LIST의 첫값만 응답

 

(setq ename (car (entsel "\n Select a Circle  "))) ; 선택한 원의 이름 저장

 

 

CADR  두번째 값만 응답

 

(setq p1(list(car pa)(+(cadr pa) y))) ; 점 pa 의 list 두번째는 y값

 

CADDR  세번째 값만 응답

 

점인 list 인경우 caddr 은 z값이 됩니다

 

 

 

CDR  첫값제외 모두응답

 

    (setq blocksel (entsel))
    (setq ename (car blocksel)) 
    (setq dtblock (entget ename)) 
    (setq blkname (cdr (assoc 2 dtblock))) ; 객체정보내 블록이름 응답중 두번째가 사용할 블록이름