블록 교체 리습 요청

아키모아 달수님작14.02.04 18:01 (defun c:BLG (/ oE tE ss) (and (setq oE (entsel “n>>> 기준블럭.:”)) (= (cdr (assoc 0 (entget (car oE)))) “INSERT”) (setq tE (entsel “n>>> 대상블럭.:”)) (= (cdr (assoc 0 (entget (car tE)))) “INSERT”) (setq ss (ssget (list (cons 0 “INSERT”)(assoc 2 (entget (car tE)))))) (foreach e (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss))) (entmod (subst (assoc 2 (entget (car oE)))(assoc 2 (entget e))(entget e))) ) )(princ) )

안녕하세요 선배님 .. 찾고있었는데. 감사합니다.. 혹시 저 리습 내용안에 명령어가 다 포함되어있을텐데.. 제가 해석을 못해서.. 어떻게 사용하면 될지 ㅠ

(defun c:BLG (/ oE tE ss) 명령어 는 BLG 편리하게 수정 사용

리습 사용법 을 모르시면 매그니 매인 검색 창에서 “리습사용법” 검색하시면 많이 있어요…

넵 너무 감사합니다. !!

처음에 명령어 작동이 잘 안되는 거 같았는데

원본 블록 선택 > 변경할 블록 선택 > 변경할 블록 객체 선택 하니깐 변경되었습니다. 아주 감사합니다.

다만, 명령어 입력 후 명령창에 글씨가 깨짐 현상이 있습니다. n>>> 湲곗?釉붾윮.: 위 같이 나오는데 해결 방법은 없나요? 캐드 프로그램 문제인가요?

리습 파일 저장할때 ..인코딩 UTF-8로 저장된듯…. ANSI로 바꿔 저장 하면 한글 정상으로 보일 겁니다.

아 진짜 감사드립니다.. ㅠㅠ