홈/ 질문/Q 187192
다음
답변됨
조영주
Lv.1
등록일: 2023-08-28T16:49:53+09:00 카테고리:

블록 교체 리습 요청

블록 교체 리습 요청

MA 명령어 같이

블록 선택하면 > 선택한 블록으로 변경 할수 있는 리습 요청드립니다.

공유

    관련 있는 질문들

    답변을 남겨주세요

    답변을 등록하기 위해서는 로그인이 필요합니다.

    아직 계정이 없으신가요?

    7 답변

    1. aalan
    2. 베스트 답변
      Lv.25
      (수정됨)

      아키모아 달수님작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)
      )

      • 1