; 가 를 나 로
(defun c:gtn ()
(if (setq ss (ssget (list (cons 0 “*TEXT”))))
(progn
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vla-startundomark doc)
(setq index 0)
(repeat (sslength ss)
(setq e (ssname ss index))
(setq obj (vlax-ename->vla-object e))
(setq textfind (vl-string-subst “나” “가” (cdr(assoc 1 (entget e))) ))
(vlax-put obj ‘TextString textfind)
(setq index (1+ index))
)
(vla-endundomark doc)
)
)
)
아래 피스 님께서 ~ 제가 원하던 리습을 만들어 주셨는데요~!
문자 ” 가 ” 를 ” 나 ” 로 바뀌는 리습인데 동시에 ” 나 ” 를 ” 가 ” 로 바뀌도록 수정 가능할까요?
” 가 나 ” 에 명령어 먹이면 ” 나 가 ” 이렇게 바뀌도록요~~ㅠ 어려운건가요;;;
염치없이 부탁만 드립니다~~ㅜ
도움이 되셨다니 다행이네요.
님 말씀이 너무 지나치신거 아닌가요~ㅋ
아직도 답변 없음…대략 ㄴㄷ
리습달은걸 다시 올려서 이걸 수정해주세요..로 강화 요청해서
어떻게든 답을 구하고자 하는 질문자 분들 존나 많은
수고 하셨네요~~ㅎㅎ
굳이 그럴필요 까지야….
(defun c:gtn ()
(if (setq ss (ssget (list (cons 0 “*TEXT”))))
(progn
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vla-startundomark doc)
(setq index 0)
(repeat (sslength ss)
(setq e (ssname ss index))
(setq obj (vlax-ename->vla-object e))
(setq texts (cdr(assoc 1 (entget e))))
(setq nLen (strlen texts))
(setq nPos 0)
(while (/= (- nLen nPos) 0)
(setq cmps (substr texts (1+ nPos) 2))
(if (= “가” cmps)
(setq texts (strcat (substr texts 1 nPos) “나” (substr texts (+ nPos 3) (- nLen (+ nPos 2)))))
)
(if (= “나” cmps)
(setq texts (strcat (substr texts 1 nPos) “가” (substr texts (+ nPos 3) (- nLen (+ nPos 2)))))
)
(setq nPos (1+ nPos))
)
(vlax-put obj ‘TextString texts)
(setq index (1+ index))
)
(vla-endundomark doc)
)
)
)
힌트 다드렸는데ㅠ-ㅡ…
컴퓨터는 아직은 단순해서 시키는 대로 합니다..인공지능 컴이 되면 그냥 가능 하겠지만
컴퓨터 잘못은 아니죠..
문장에서 ” 가나가나가나가나가나 ” -> ” 나가나가나가나가나가 ” 하려면
가 -> 다 로 바꾼후 ” 다나다나다나다나다나 “
나 -> 가 로바꾼후 ” 다가다가다가다가다가 “
다 -> 나 로바꾸어야.. ” 나가나가나가나가나가 ” 에고…
음… 문장에서 ” 가나가나가나가나가나 ” -> ” 나가나가나가나가나가 ”
위 리습으로는 힘들어요 컴퓨터는 한번에 하나씩 작업합니다 “가나”를 바꾼다면 일단 “가”먼저 바꿔서 “나나”로 바꾸고 다시 “나”를 “가가”로 바꿔서 최종결과물은 “가가”가 되겠네요