AutoLISP

CONS 는 일반 변수를 dxf code 와 결합하도록 합니다

text 를 다루는 예제입니다

txtnew 는 문자열 값입니다

cons 는 이 txtnew 에 dxf code 1 을 입혀 newtxt 로 합니다

 (setq newtxt (cons 1 txtnew))

이제 newtxt 는 dxf code 1 문자열 txtnew 인 변수가 됩니다

이제 dxf code를 가진 newtxt 는 dxfcode를 가진 txtold 를 대체하여 ent에 저장합니다

     (setq newent (subst newtxt txtold ent) )
     (entmod newent)

entmode 로 문자값 txtold 이 txtnew 로 변경 됩니다

CADBOX  AUTOBOX 는 오토캐드에 강력한 기능들을 추가합니다

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))) ; 객체정보내 블록이름 응답중 두번째가 사용할 블록이름