조영주Lv.1 등록일: 2023-08-282023-08-28T16:49:53+09:00 2023-08-28T16:49:53+09:00카테고리: AutoCAD & CADian 블록 교체 리습 요청 블록 교체 리습 요청 MA 명령어 같이 블록 선택하면 > 선택한 블록으로 변경 할수 있는 리습 요청드립니다. 공유 Facebook 관련 있는 질문들 원 또는 사각형안에 입력할 문자가 동시에 출력되는 리습을 찾고있습니다. CTB 질문드립니다. 고수님들... ㅠ 필드 질문드립니다. 캐드 화면 색감이 흐린데 이유를 모르겠습니다. 답변을 남겨주세요응답 취소답변을 등록하기 위해서는 로그인이 필요합니다. 아이디 또는 이메일* 비밀번호* 아이디 기억 비밀번호를 잊으셨나요? 7 답변 작성 순 최신 순 공감 순 베스트 답변 주왕 Lv.20 2023-08-28T18:53:14+09:00답변 등록 답변 등록 일시 2023-08-28 6:53 pm (수정됨) 아키모아 달수님작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) ) no9002 Lv.4 2023-08-29T06:45:54+09:00에게 댓글을 달았습니다. 답변 등록 일시 2023-08-29 6:45 am 안녕하세요 선배님 .. 찾고있었는데. 감사합니다.. 혹시 저 리습 내용안에 명령어가 다 포함되어있을텐데.. 제가 해석을 못해서.. 어떻게 사용하면 될지 ㅠ 주왕 Lv.20 2023-08-29T07:40:46+09:00에게 댓글을 달았습니다. 답변 등록 일시 2023-08-29 7:40 am (수정됨) (defun c:BLG (/ oE tE ss) 명령어 는 BLG 편리하게 수정 사용 리습 사용법 을 모르시면 고캐드 매인 검색 창에서 "리습사용법" 검색하시면 많이 있어요… no9002 Lv.4 2023-08-30T06:35:23+09:00에게 댓글을 달았습니다. 답변 등록 일시 2023-08-30 6:35 am 넵 너무 감사합니다. !! 조영주 Lv.1 2023-08-29T09:22:32+09:00에게 댓글을 달았습니다. 답변 등록 일시 2023-08-29 9:22 am (수정됨) 처음에 명령어 작동이 잘 안되는 거 같았는데 원본 블록 선택 > 변경할 블록 선택 > 변경할 블록 객체 선택 하니깐 변경되었습니다. 아주 감사합니다. 다만, 명령어 입력 후 명령창에 글씨가 깨짐 현상이 있습니다. n>>> 湲곗?釉붾윮.: 위 같이 나오는데 해결 방법은 없나요? 캐드 프로그램 문제인가요? 주왕 Lv.20 2023-08-29T09:32:29+09:00에게 댓글을 달았습니다. 답변 등록 일시 2023-08-29 9:32 am 리습 파일 저장할때 ..인코딩 UTF-8로 저장된듯…. ANSI로 바꿔 저장 하면 한글 정상으로 보일 겁니다. 조영주 Lv.1 2023-08-29T10:05:26+09:00에게 댓글을 달았습니다. 답변 등록 일시 2023-08-29 10:05 am 아 진짜 감사드립니다.. ㅠㅠ
아키모아 달수님작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로 바꿔 저장 하면 한글 정상으로 보일 겁니다.
아 진짜 감사드립니다.. ㅠㅠ