캐드 분류
기존 문자 수정하면서 숫자 증감 리습 수정 하고 싶습니다
컨텐츠 정보
- 162 조회
- 0 추천
- 0 비추천
- 목록
본문
(defun c:N2 ()
(setvar "cmdecho" 0)
(setq e (getreal "n Input First Number:")
d (getreal "n Input Number Interval:"))
(setq tt (entsel "n>>수정하고자 하는 Text : ")
tt1 (car tt))
(command "CHANGE" TT1 "" "" "" "" "" "" (rtos e 2 0))
(WHILE (/= tt nil)
(SETQ tt (entsel "n수정하고자 하는 Text :")
tt1 (car tt))
(if (/= tt nil)
(progn
(setq e (+ e d))
(princ tt1)
(command "CHANGE" TT1 "" "" "" "" "" "" (rtos e 2 0))
);end progn
);end if
) ;;;;;;;;;;;;;;;;;;;;;; WHILE END
) ;;;;;;;;;;;;;;;;;;;;;; DEFUN END
위 리습에서
앞뒤부분에 고정 문자를 넣고 싶습니다.
관련자료
댓글 0
등록된 댓글이 없습니다.