홈/ 질문/Q 107158
다음
진행 중
Lv.0
등록일: 2016-08-29T10:28:16+09:00 카테고리:

리습 공유나 요청 간절히 부탁드립니다.

도저히 검색을 해도 찾을 수가 없습니다.
제가 찾는리습은 문자를 드레그로 긁어서 특정문자 지정후 앞 또는뒷 에글자를 지우는 리습을 찾아요
예를 들면 100*200*300-M123
이런 문자를 – 기호를 기준으로 앞을 모두 지운다거나.뒤를 모두지우는 리습이요…
아니면 M을 기준으로 앞이나 뒤를 모두 지우는 리습 찾아요
 이런 리습이 있으시다면 정중하게 부탁한번 드립니다.
노가다가 싫어요 ㅜㅜ  도움 요청드립니다.

공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. (vl-load-com)

      ; 앞에 살려보자
      (defun c:fd ()
       (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 data (cdr(assoc 1 (entget e))))
          (setq textfind (substr data 1 (vl-string-search “-” data)))
          (vlax-put obj ‘TextString textfind)
          (setq index (1+ index))
         )
         (vla-endundomark doc)
        )
       )
      )

      ; 뒤쪽 살려보자
      (defun c:ed ()
       (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 data (cdr(assoc 1 (entget e))))
          (setq textfind (substr data (+ (vl-string-search “-” data) 2) (strlen data)))
          (vlax-put obj ‘TextString textfind)
          (setq index (1+ index))
         )
         (vla-endundomark doc)
        )
       )
      )

      이런 느낌?

      틀린건 빨간줄 밖에 없으니
      리습 조금 배우신다면 이걸 하나의 리습으로 바꾸는건 어렵지 않으시겠죠?

      • 0

    3. 유용하게 잘 써보겠습니다
      너무 너무 감사드립니다.

      • 0