< > 기호안에 문자를 지우고 싶습니다 아무리 찾아해메도 답을 못구해 고수님의 조언을 구합니다
예 <sdr> 위 문구가 문자에 포함되어있을경우 기호와 기호안에 문자를 삭제하고싶습니다
한말씀 부탁드립니다
감사합니다
어느분께서 답을 주셨는데 제가 부족한것인지 작동을 못해 혹시 제가 잘못사용한것인지 한말씀 부탁드리고자 합니다.
명령어 kkk
그런제 잘못된 인수유형이라고 작동을 안하네요..
부탁드립니다.
감사합니다.
어느분께서 답을 주셨는데 제가 부족한것인지 작동을 못해 혹시 제가 잘못사용한것인지 한말씀 부탁드리고자 합니다.
명령어 kkk
그런제 잘못된 인수유형이라고 작동을 안하네요..
부탁드립니다.
감사합니다.
(defun c:kkk()
(setq ob (car (entsel)))
(setq mystr (cdr (assoc 1 (entget ob))))
(setq elist (entget ob))
(setq old (assoc 1 elist))
(setq int1 (vl-string-search “<” mystr))
‘(setq int2 (vl-string-search “>” mystr))
(setq str1 (substr mystr 1 int1))
(setq str2 (substr mystr (+ int2 2) 100))
(setq mytext (strcat str1 str2))
(setq new (cons 1 mytext))
(setq chg (subst new old elist))
(entmod chg)
(princ)
)
(setq ob (car (entsel)))
(setq mystr (cdr (assoc 1 (entget ob))))
(setq elist (entget ob))
(setq old (assoc 1 elist))
(setq int1 (vl-string-search “<” mystr))
‘(setq int2 (vl-string-search “>” mystr))
(setq str1 (substr mystr 1 int1))
(setq str2 (substr mystr (+ int2 2) 100))
(setq mytext (strcat str1 str2))
(setq new (cons 1 mytext))
(setq chg (subst new old elist))
(entmod chg)
(princ)
)
‘(setq int2 (vl-string-search “>” mystr)) 앞에 쩜(어퍼스트로피)제거 하세요
ArchiOffice 사용하시니…다중도면 일괄처리 마법사(XCMD)에서 문자열 교체 이용하시면 됩니다.
리습이 동작을 하던 동작을 하지 않던 최소한 자신의 질문에 관심을 가져주신분(sdgghh)께 감사의 댓글은 쓰고 이 질문을 해야 되지 않나 합니다.
먼저 질문이 밑에 밑에 글인데 어느분이란 표현도 좀 그렇네요 ㅎ