프로그램
캐드 분류

리습 수정 도움요청드립니다

컨텐츠 정보

  • 157 조회
  • 2 댓글
  • 0 추천
  • 0 비추천
  • 목록

본문

(DEFUN C:123 (/ ss te)()
(and
(setq ss (ssget (list (cons 0 "text,mtext")(cons 1 "@!3″))))
(setq te (getstring "nMATERIAL : "))
(not (= te ""))
(foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
(entmod (subst (cons 1 te)(assoc 1 (entget ent))(entget ent)))
)
)(princ)
위에는 제가 어지저찌 퍼다와서 붙혀넣고 하다보니 틀만 갖춰진 리습인데…
해당 리습 사용시 불필요한 행정이 너무많습니다 행정을 줄이고 싶습니다
현제 프로세스가 캐드 명령행에 123명령어 입력후
-> 객체선택 (도면내 @!3의 내용이 들어간 모든 text,mtext 만 필터링) ->
스페이스바 -> (nMATERIAL : 문구가 뜨면서) 명령행에 입력 ->
SUS304 -> 스페이스바 -> 끝 (도면내 @!3의 내용이 들어간 모든 text,mtext 내용을 SUS304로 변경)

입니다.. 제가 원하는 프로세스는 캐드 명령행에 123명령어 입력후

-> 
도면내 @!3의 내용이 들어간 모든 text,mtext 를 SUS304로 변경

같이 하나의 행정으로 줄이고싶습니다.
지금 저 리습에서 어디를 어떻게 수정해야 할지 모르겠습니다..ㅠㅠ
문제점과 개선사항을 알려주시면 감사하겠습니다.

관련자료

댓글 2 / 1 페이지
전체 6,983 / 1 페이지
번호
제목
이름

최근글


새댓글


알림 0