아래 리습도 고캐드회원분께 받아서 잘 사용하고 있던 리습입니다.
순차적으로 숫자가 증가하는 리습인데..저희회사는 판넬 업체라 드로잉리스트에 P001..P002이런식으로 도면넘버를 잡는데..아래 리습으로는 안되더라구요..혹시 아래 리습으로 위의 내용같이 수정이 가능할지 모르지만..가능하다면 죄송하지만 수정좀 부탁드리겠습니다..감사합니다..
(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
)