< > 기호안에 문자를 지우고 싶습니다 아무리 찾아해메도 답을 못구해 고수님의 조언을 구합니다
예 <sdr> 위 문구가 문자에 포함되어있을경우 기호와 기호안에 문자를 삭제하고싶습니다
한말씀 부탁드립니다
감사합니다
비밀번호를 잊으셨나요? 비밀번호를 재설정하려면 이메일 주소를 입력해주세요.
해당 질문을 신고하는 이유를 간단히 입력해주세요.
해당 답변을 신고하는 이유를 간단히 입력해주세요.
해당 유저를 신고하는 이유를 간단히 입력해주세요.
(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)
)
로드시키고 텍스트 선택하세요