홈/ 질문/Q 183806
다음
답변됨
JMinG
Lv.0
등록일: 2023-04-19T14:33:13+09:00 카테고리:

안녕하세요 리습하나구하고있는데 검색해도 찾기어려워 문의드립니다.

안녕하세요 리습하나 찾다가 안나오길래 이번기회에 만들려고하다가 너무어려워서 포기하였습니다 ㅜㅜ

혹시 회전되어있는 블록을 리습을 이용하여 다른블록도 회전값 똑같이 만들어주는 리습을 구하고있습니다

매치프롭(matchprop) 비슷한 개념으로 생각하심 됩니다.

예를 들면 블록하나가 회전값이 36입니다. 리습을 이용하여 다른블록을 매치프롭같이 회전된블록 클릭후

돌릴려는 블록을 클릭하면 회전값이 36이 되게 하는 것입니다.

부탁드리겠습니다 ㅜ

공유

    관련 있는 질문들

    답변을 남겨주세요

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

    아직 계정이 없으신가요?

    2 답변

    1. aalan
    2. 베스트 답변
      Lv.21

      https://blog.naver.com/khs12kim/223079525433 <= 참고용 스샷

      (defun c:ff(/ *error* ob1 ss1 ro)(vl-load-com)

      (defun *error* (msg)
      (princ "nerror:")(princ msg)
      (if (= 1(getvar 'nomutt)) (setvar 'nomutt 0))
      (princ)
      )

      (prompt "nSelect base block")
      (setvar 'nomutt (- 1 (getvar 'nomutt)))
      (setq ob1(vlax-ename->vla-object (ssname (ssget ":E:S" '((0 . "insert")))0)))
      (setvar 'nomutt (- 1 (getvar 'nomutt)))
      (prompt "nSelect target blocks")
      (if (= 0(getvar 'nomutt)) (setvar 'nomutt 1))
      (setq ss1(ssget '((0 . "insert"))))
      (setq ro(vla-get-rotation ob1))
      (foreach x(vl-remove-if 'listp (mapcar 'cadr (ssnamex ss1)))
      (vla-put-rotation (vlax-ename->vla-object x) ro)
      )
      (if (= 1(getvar 'nomutt)) (setvar 'nomutt 0))
      (princ)
      )

      • 1