캐드

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

tbfnq100 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 작성
작성일 2022.12.10 07:28

262 조회
11 댓글
0 추천
0 비추천
목록

; 가 를 나 로
(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 / 1 페이지

수야12 이름으로 검색
작성일 2015.10.21 07:43

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

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

왕땡이 이름으로 검색
작성일 2015.10.21 08:20

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

자유천지 이름으로 검색
작성일 2015.10.21 16:58

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

피시 이름으로 검색
작성일 2015.10.21 19:43

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

피시 이름으로 검색
작성일 2015.10.21 20:07

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