홈/ 질문/Q 196084
다음
답변됨
JMinG
Lv.0
등록일: 2026-01-14T20:50:15+09:00 카테고리:

리습선생님들… 부탁하드려도 될까요? ㅠㅜ

혹시 회전된 블록을 회전값 0으로 만들어주는 리습 만들어주실수 있나요?

리습이해가 안가다보니 부탁드리겠습니다. ㅠ

공유

    관련 있는 질문들

    답변을 남겨주세요

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

    아직 계정이 없으신가요?

    2 답변

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

      (defun c:TEST ( / ss i ent obj cnt)
      (vl-load-com)
      (setq cnt 0)
      (prompt “n회전값을 0으로 만들 블록을 영역 선택하세요.”)
      (setq ss (ssget ‘((0 . “INSERT”))))
      (if ss
      (progn
      (setq i 0)
      (repeat (sslength ss)
      (setq ent (ssname ss i))
      (setq obj (vlax-ename->vla-object ent))
      (vla-put-Rotation obj 0.0)
      (setq cnt (1+ cnt))
      (setq i (1+ i)))
      (prompt (strcat “n완료 : ” (itoa cnt) “개 블록의 각도를 0으로 변경했습니다.”))
      )
      (prompt “n선택된 블록이 없습니다.”)
      )
      (princ)
      )

      복사 붙혀넣기 하면 쌍따음표 등 기호 애러날수있어요…리습 실행 애러나면 확인해보세요

      • 0