치수에 파이 넣는 리습입니다.
컨텐츠 정보
- 296 조회
- 4 댓글
- 0 추천
- 0 비추천
- 목록
본문
누가 올려주신걸 잘 쓰고 있는데..
치수 객체 하나를 선택해서 파이를 넣는 리습입니다.
이때 객체 하나가 아닌 영역 선택으로 바꿔서 파이를 넣는 걸로 수정하고 싶은데
어디를 수정해야 하나요?
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)
)
관련자료
상큼메론90님의 댓글
잘 비교해 보세요~ 공부도 열띠미~
(defun c:azz (/ ss i n entlist txt n_txt tetxt1 tea1 ) (setq ss (ssget)) (setq i 0) (setq n (sslength ss)) (repeat n (setq entlist (entget (ssname ss i))) (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) (setq i (1+ i)) ) (princ) );
;;;