문자 변경 리습 수정 좀 부탁드립니다~~ ㅠ

Question

숨은초보Lv.0

등록일: 2015-10-202015-10-20T17:35:30+09:00 2015-10-20T17:35:30+09:00카테고리: AutoCAD & CADian

문자 변경 리습 수정 좀 부탁드립니다~~ ㅠ

; 가 를 나 로
(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)
  )
)
)

아래 피스 님께서 ~ 제가 원하던 리습을 만들어 주셨는데요~!

문자 ” 가 ” 를 ” 나 ” 로 바뀌는 리습인데 동시에 ” 나 ” 를 ” 가 ” 로 바뀌도록 수정 가능할까요?

” 가 나 ” 에 명령어 먹이면 ” 나 가 ” 이렇게 바뀌도록요~~ㅠ 어려운건가요;;;

염치없이 부탁만 드립니다~~ㅜ

11 답변

수야12 · Answer 1 · 2015-10-21T07:43:38+09:00

위 리습으로는 힘들어요 컴퓨터는 한번에 하나씩 작업합니다 “가나”를 바꾼다면 일단 “가”먼저 바꿔서 “나나”로 바꾸고 다시 “나”를 “가가”로 바꿔서 최종결과물은 “가가”가 되겠네요

질문을 하실때 확실하게 사용자가 선을 그어 줘야 합니다

제작자는 가나들어간 문자 하면 여러경우의 수를 생각하게 됍니다

가123나 가A12나 가나나가 a12가나 가-123나 a1가나23 등등 이런경우의 수를 생각 하면서 만들다 보면

밑도 끝도 없이 일이 켜져요 그러니 사용자가 확실히 선을 그어 줘야죠 안그러면 님처럼 바로 밑에서

만들어 줬는데 바로 리습 수정좀해주세요 ㅜ.ㅜ ;; 이러고 올라옵니다 (어찌 이렇게 패턴들이 똑 같은지..)

숨은초보 · Answer 2 · 2015-10-21T08:20:00+09:00

음… 문장에서 ” 가나가나가나가나가나 ” -> ” 나가나가나가나가나가 ”

이렇게 바뀌는게 불가능하다는 말씀이시죠? ㅠ 만들어 주신 리습으로 가 -> 나 , 나 -> 가

2개 리습 만들어서 사용하면 상관은 없는데 혹시 한번에 같이 변경해줄수 있게 제작이 가능한건지

몰라서 여쭤본거에요^^ 제가 저렇게 많은 경우의 수가 있는지는 생각을 못했네요~~

자유천지 · Answer 3 · 2015-10-21T16:58:33+09:00

컴퓨터는 아직은 단순해서 시키는 대로 합니다..인공지능 컴이 되면 그냥 가능 하겠지만
컴퓨터 잘못은 아니죠..
문장에서 ” 가나가나가나가나가나 ” -> ” 나가나가나가나가나가 ”  하려면
가 -> 다 로 바꾼후  ” 다나다나다나다나다나 “
나 -> 가 로바꾼후   ” 다가다가다가다가다가 “
다 -> 나 로바꾸어야..   ” 나가나가나가나가나가 ”   에고…

[Deleted User] · Answer 4 · 2015-10-21T19:43:34+09:00

[Deleted User]

2015-10-21T19:43:34+09:00답변 등록 답변 등록 일시 2015-10-21 7:43 pm

하아.. 그냥 제가 해드릴게요 …
힌트 다드렸는데ㅠ-ㅡ…

0

공유
공유
- 공유 Facebook
- 공유 Twitter

[Deleted User] · Answer 5 · 2015-10-21T20:07:41+09:00

(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)
)
)
)