(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
위 리습에서
앞뒤부분에 고정 문자를 넣고 싶습니다.