(defun c:CN()
(setvar “cmdecho” 0)
(setq t1 (getreal “시작할 수 : “))
(setq e1 (entsel))
(while e1
(setq ed (entget (car e1)) te1 (cdr (assoc 1 ed)))
(setq t2 (fix t1))
(if (< 0 t1)
(setq text (strcat “” (ItoA t2)))
; (setq text (strcat “” (ItoA t2)))
(setq text (ItoA t2)) )
(setq sb (subst (cons 1 text) (assoc 1 ed) ed))
(entmod sb)
(if (< 0 t1)
(setq t1 (1+ t2))
(setq t1 (1- t2)) )
(setq e1 (entsel))
예전에 이사님이 만들어주신 리습인데 +,-1씩 증감되는데 수정을 해봐도 한번박에 먹질안네요 차례대로 +5나-5씩 증감되게좀 부탁드려요