(defun c:nc (/ ent ss new_text in_point in_point_2 ss2)
(setq ent (entsel “n 텍스트선택 : “))
(if ent
(progn
(setq ss (atof (cdr (assoc 1 (entget (car ent))))) )
($$cpcp)
)
)
);;def
(defun $$cpcp ()
(setq in_point(getpoint”n 기준점”))
(setq in_point_2 “jy”)
(while in_point_2
(setq ss (+ ss 1))
(setq new_text (rtos ss 2 0))
(setq in_point_2(getpoint”n 복사점”))
(if in_point_2
(progn
(command “COPY” ent “” in_point in_point_2 “”)
(setq ss2 (entlast))
(entmod (subst (cons 1 new_text) (assoc 1 (entget ss2)) (entget ss2)))
);;prg
);;if
);;whi
)