캐드 분류
리습 도와주세요~<br>리습 도와주세요<br>리습 도와주세요
컨텐츠 정보
- 1,043 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
안녕하세요 여러줄문자 내용중 한 문자에서 동일한 내용을 수정하는 리습이 필요합니다.
현재 제가 가지고 있는 리습은 뒷쪽만 변경되는 리습뿐입니다. 앞에도 같이 변경되는 리습
혹시 가능할까요??
예를 들어
안녕하세요 윤스 79입니다.
50,800,800,56,76
이런 여러줄 문자가 있으면 800부분을 900으로 일괄수정하는 리습이 꼭 필요합니다..ㅠㅠ
고수님들 꼭 도와주세요.
참고로 뒷쪽만 변경되는 리습 코드입니다.
(defun C:yQ (/ sset n index txlist tx newtx newlist tx1)
(prompt "n Multi TEXTs Change..Pick Texts…..")
(setq o_txt (getstring "n ORIG'L TEXT in-put…."))
(setq n_txt (getstring "n NEW TEXT in-put…."))
(setq o_qty (strlen o_txt))
(prompt "nPick TEXTs to change…")
(setq sset (ssget ))
(setq count (sslength sset))
(setq osu 0)
(repeat count
(COND ((OR (= (cdr (assoc 0 (setq txtin (entget (ssname sset OSU))))) "MTEXT")
(= (cdr (assoc 0 (setq txtin (entget (ssname sset OSU))))) "TEXT")
)
(setq newtx (cdr (assoc 1 (setq txtin (entget (ssname sset OSU))))) )
;;;(setq txtin (entget (ssname sset osu)))
(setq txt (cdr (assoc 1 txtin)))
(setq su 1)
(setq index 0)
(setq rm-k "")
(setq rm+k "")
(setq rmsame nil)
(setq co (strlen txt))
(repeat co
(setq rmk (substr txt su o_qty))
(setq rm-k (substr txt 1 (- su 1)))
(setq rm+k (substr txt (+ su o_qty) co))
(cond ((= o_txt rmk)
(setq f_txt (strcat rm-k n_txt rm+k))
(setq rmsame 111)
))
(setq su (+ su 1))
)
(if (= rmsame 111) (entmod (subst (cons 1 f_txt) (assoc 1 txtin) txtin)))
))
(setq osu (+ 1 osu))
)
)
제가 사용하는 멀티라인 스타일이 몇가지 되서 아래와 같이 리습으로 만들어서 사용하려고 하는데요… 이렇게 했더니 처음에 ACAD.MLN LOAD 창이
OPEN 되서 불편해요.
이것 좀 해결해 주세요…
부탁합니다…
(defun c:E1()
(COMMAND "MLINE" "J" "Z" "S" "1″ "ST" "BEAM")
(PRINC)
)
defun c:E2()
(COMMAND "MLINE" "J" "Z" "S" "1″ "ST" "BEAM2″)
(PRINC)
)
리습이 이상해요..
저장된 화일 이름으로 오른쪽 귀퉁이에 도곽번호를 넣어주는 리습입니다.
분명 zoom extend 한후 이 txx 리습을 사용하는데
같은 도면에서는 같은 위치에 들어가나 다른 화일을 열어 사요하면
위치가 조금 틀려져서 들어갑니다.
계속 같은 위치로 들어가게 하려면 어떻게 해야하는지
또 이 리습의 어디에서 그것을 관리하는지..
리습을 하나도 모르는 저는 답답할 뿐입니다.
이것도 부탁해서 받은 것인데..
제발 도와 주세요…
관련자료
댓글 2
/ 1 페이지
