고수님들께 리습 수정을 부탁합니다.
아래 리습은 도면중에서 여러 텍스트중에 선택된 문자중에 첫자만 9로 수정하는
리습인데
첮자를
0~9,A~Z중에 임의의 문자로
바꿀수 있게 아래 리습을 수정부탁합니다.
defun c:Aa()
(setq ent (ssget (list(cons 0 “text”)))
c 0);;바꿀 text을 선택
(if ent
(progn
(while (>= (sslength ent) c)
(setq ent_t (ssname ent c))
(setq ent_txt (entget ent_t))
(setq ent_old (assoc 1 (cdr ent_txt)))
(setq ent_new (strcat “9” (substr (cdr ent_old) 2 (- (strlen (cdr ent_old)) 1))))
;;; 9와 선택한 old 문자의 두번째부터 끝까지로 새로운 문자 형성
(setq new (cons 1 ent_new))
(setq new_t (subst new ent_old ent_txt));;
(entmod new_t)
(setq c (+ 1 c))
);;repeat
));;progn_if
);;aa