(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
)
이 리습이 복사를 하면 숫자1씩 증가하는 리습인데요 제가 리습 완전 초짜 하나두 몰라염..ㅜㅡ 그래서 부탁 드리는건데요
이 리습이 숫자만 복사가 되더라구요 예를 들면 CW-001 이걸 복사하면 CW-00 <--요부분은 복사가 안되고 숫자 1만 복사가 되면서 2 3 4 이런 식으로 증가가 되더라구욤..ㅜㅡ 근데 제가 원하는 건 CW-001 CW-002 이런식으로 문자도 복사가 되면서 숫자는 001 002 이런식으로 나오는게 필요한데
에휴…제가 리습을 알면 고치겠지만 초짜라서 방법을 모르겠어염..고수님들 도와주세요..ㅜㅡ