홈/ 질문/Q 26480
다음
진행 중
Something went wrong with the plugin API.
등록일: 2001-09-10T18:01:56+09:00 카테고리:

예전에…

어떻게 설명을 해야 할지…
text에서요…
lisp 으로 사용했던 거 같은데..
왜….
예를들어…mbc-1,mbc-2,mbc-3,…..mbc-1000이라는게 있음…
명령어 하나를 사용해…m만….k로….
그러니까 바꾸고 나면…kbc-1,kbc-2,kbc-3…
이렇게…되는거..
lisp짜는 방법을 몰라요…ㅠ.ㅠ
가르쳐주셔두 감사하겠구요..
프로그램을…주셔두…감사하겠습니다.

공유

    관련 있는 질문들

    2 답변

    1. aalan

    2. 내용 없대두 그러네…^^

      • 0

    3. 안녕하십니까?
      텍스트 찾아 바꾸는 명령은 캐드자체에도 있습니다.
      편집–>찾기 로 가시면 찾아 바꾸기 기능이 있습니다.
      굳이 리습을 사용하여 바꾸시길 원하신다면…..

      ;==============TEXT 찾아 바꾸기============================
      (defun c:te (/ e1 en otl ot nt nb e2 e3 e4 e5 e5l nn nc ft tc )
      (setq e1 (ssget))
      (setq en (sslength e1))
      (princ "선택된text..")(princ en)(princ "개")(print)
      (while
      (= 0 (setq otl (strlen (setq ot (getstring T "바꿀 문자입력:")))))
      )
      (setq nt (getstring T "새문자 입력:"))
      (setq nb 0)

      (while
      (< nb en)
      (setq e2 (ssname e1 nb))
      (setq e3 (entget e2))
      (setq e4 (assoc 1 e3))
      (setq e5 (cdr e4))
      (setq e5l (strlen e5))
      (setq nn 1)
      (setq nb (+ 1 nb))
      (while
      (<= nn e5l)
      (setq nc (vl-string-subst nt ot e5))
      (SETQ E5 NC)
      (setq ft (cons 1 nc))
      (setq tc (subst ft e4 e3))
      (entmod tc)
      (setq nn (+ 1 nn))
      (PRINC)
      );WHILE
      );WHILE
      );END OF TE

      이렇게 하시면 될겁니다.
      그럼 수고 하세요.

      • 0