홈/ 질문/Q 113610
다음
진행 중
Lv.0
등록일: 2022-02-07T19:33:40+09:00 카테고리:

텍스트저장해놓고 문자변경할수있는 리습있을까요?

안녕하십니까, 몇날몇일을 찾아보고 이것저것짬뽕해서 써봐도 도저히 못찾겠어서 글남깁니다.

다름이아니라 업무상 캐드를 사용하고있는대
파이입력, 문자치환, 문자정렬, 오늘날짜자동입력 등등 리습을 잘 사용하고있지만
딱 한가지 리습을 도저히 못찾아서 한달만에 글올립니다..
원하는 기능은—————————
예를들어 문자내용을  치킨마요 라고 저장해놓고
새로운 도면 그릴때 문자가있으면 단축키만 활용하여 문자내용을 치킨마요로 바꿀방법을 찾고있습니다.
텍스트 매치리습, 파인드, 특정문자지정 일괄변경, 이런것아아니고
ex)   okok  <– 이런 텍스트라고하면 단축키를사용하여 텍스트클릭하면 치킨마요로 변경되는 리습입니다.  (*오늘날짜입력 리습과 비슷한 타입)
기능을 서술하려고하니 간단한건대 복잡하게 말하고있네요.. 제발부탁드리겠습니다. 절때 중복은 아니라고 자신합니다…
공유

    관련 있는 질문들

    6 답변

    1. aalan
    2. Lv.1

      예를들어 “치킨마요”만 입력할 수 있는 리습은 만들 수 있어도
      도면마다 무작위 텍스트를 적용해야 한다면 100% 확신을 못하지만

      그거는 리습으로는 안되는 걸로 알고있습니다
      • 0

    3. 제가너무 거창하게 말한것 같은대.. 치킨마요만 입력할수있으면 됩니다!

      ‘도면 마다 무작위 텍스트 적용은 아닙니다’ 
      예를들어 찾은 리습중에 가장 비슷했던게 치수나 문자앞이나 뒤에 Pi 추가하는 리습이였는대
      그 Pi라는걸 치킨마요로 바꿔놨더니 치수나 문자앞에 치킨마요로 추가가 되더라구요,
      제가 말씀드린건 앞이나 뒤가아닌 그 문자가 치킨마요로 바꾸는걸 말씀드린겁니다 ㅠㅠ 
      • 0
    4. Lv.0
      https://alltopx.com/117 내용을 수정 했습니다.
      딱 한 단어만 사용하신다면
      (defun C:tw(/ a b c d e)
        (prompt “nSelect text to edit: “)
        (setq a (ssget))
        (setq b (sslength a))
        (setq c 0)
        (while (<= 1 b)
           (setq d (ssname a c))
           (if (or  (= (cdr  (assoc  0 (entget  d))) “TEXT”)   (= (cdr (assoc  0  (entget d))) 
      “DIMENSION”) (= (cdr (assoc 0 (entget d))) “MTEXT”))
              (progn
                 (redraw d 3)
                 (prompt “nNew text string <“)
                 (princ (cdr (assoc 1 (entget d))))
                 (princ “>:”)
                 (setq e “치킨마요”) ;; 여기서 치킨마요만 변경
                 (if (= e “”)
                     (setq e (cdr (assoc 1 (entget d))))
                 )
                 (entmod (subst (cons 1 e) (assoc 1 (entget d)) (entget d)))
                 (redraw d 4)
              )
           )
        (setq b (- b 1))
        (setq c (+ c 1))
        )
        (princ)
      )
      • 0

    5. 와 선생님 제가찾던 리습입니다… 와…. 감탄만나오네요… 와…감사합니다..

      • 0
    6. Lv.0
      (defun C:tw(/ a b c d )
      (cond ((= e nil) (setq e “치킨마요”)))
      (while 
       
      (if (= (strcase(getstring (strcat “n 고정단어 : ” e ” [변경(S)]”))) “S”)
      (setq e (getstring “n Text : “))
      (progn
        (prompt “nSelect text to edit: “)
        (setq a (ssget))
        (setq b (sslength a))
        (setq c 0)
        (while (<= 1 b)
        (setq d (ssname a c))
       
           (if (or  (= (cdr  (assoc  0 (entget  d))) “TEXT”)   (= (cdr (assoc  0  (entget d))) 
      “DIMENSION”) (= (cdr (assoc 0 (entget d))) “MTEXT”))
              (progn
                 (redraw d 3)
                 (prompt “nNew text string <“)
                 (princ (cdr (assoc 1 (entget d))))
                 (princ “>:”)
                 (if (= e “”)
                     (setq e (cdr (assoc 1 (entget d))))
                 )
                 (entmod (subst (cons 1 e) (assoc 1 (entget d)) (entget d)))
                 (redraw d 4)
              )
           )
        (setq b (- b 1))
        (setq c (+ c 1))
        )
        )
        )
        )
        (princ)
      )
      내용을 조금 수정 했습니다.
      하나만 사용하신다면 기존 올려드린거로 사용하시면 됩니다만
      만약 한 파일에 두개 이상의 단어 또는 그때그때 바뀐다면 이것도 참고해보세요
      • 0

    7. 위에올린것만으로도 충분해서 잘사용하고있었는대 답글달린걸 이제봤네요 방금확인해봤는대 이것또한 업그레이드 예술입니다.. 대단하십니다 잘쓰겠습니다 ㅠ

      • 0