문자 변경 리습 수정 좀 부탁드립니다~~ ㅠ
컨텐츠 정보
- 259 조회
- 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)
)
)
)
관련자료
피시님의 댓글
(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) ) ) )