치수에 파이 넣는 리습입니다.

누가 올려주신걸 잘 쓰고 있는데..

치수 객체 하나를 선택해서 파이를 넣는 리습입니다.

이때 객체 하나가 아닌 영역 선택으로 바꿔서 파이를 넣는 걸로 수정하고 싶은데

어디를 수정해야 하나요?

2번째 줄 같은데… 공부하는 단계라.. 가르침 좀 부탁드립니다.

(defun c:AZ ()
(setq entlist (entget (car (entsel))))
 (setq txt (assoc 1 entlist))
 (IF (= “DIMENSION” (CDR (ASSOC 0 EntList)))
 (setq n_txt (strcat “%%c<>”))
 (setq n_txt (strcat “%%c” (cdr txt)))
 )
 (setq tetxt1 (cons (car txt) n_txt))
 (setq tea1 (subst tetxt1 txt entlist))
 (entmod tea1)
 (princ)
)