; 아키모아 운영진 “행복한하루”
; http://cafe.daum.net/archimore
; 숫자 1증가 1감소하기
; 2007.09.14
(defun c:nq(/ ss ps k ed txt len n q num numa nnum @1 @2 @3 ntxt)
(prompt “n>>숫자 1증가 또는 1감소하기..”)
(setq ss (ssget (list (cons 0 “text,mtext”))))
(setq ps (getint “n 1 증가<1> / -1 감소<엔터>:”))
(setq k 0)
(repeat (sslength ss)
(setq ed (entget (ssname ss k)))
(setq txt (cdr (assoc 1 ed)))
(setq len (strlen txt))
(setq n 1 q nil)
(repeat len
(setq num (substr txt n 1)
numa (ascii num))
(if (<= 48 numa 57) (progn (setq q n) (setq nnum (atoi num))))
(setq n (1+ n))
);repeat
(if q
(progn
(setq @1 (substr txt 1 (- q 1))
@3 (substr txt (1+ q) (- len q)))
(cond ((= ps 1) (setq @2 (rtos (1+ nnum) 2 0)))
(t (setq @2 (rtos (- nnum 1) 2 0)))
);cond
(setq ntxt (strcat @1 @2 @3))
(entmod (subst (cons 1 ntxt) (assoc 1 ed) ed))
);progn
);if
(setq k (1+ k))
);repeat
(princ)
);defun
—————
이건 숫자가 1씩증가하는 리습인데요
저는 100씩 증가하는 리습이 필요하거든요.
혼자 해볼려 했는데.도통 모르겠어요.
고수님들 부탁드려요!