홈/ 질문/Q 82030
다음
진행 중
Lv.0
등록일: 2009-05-15T10:35:59+09:00 카테고리:

point 점에 대하여 질문드려요

2d 평면상에 사각형이 하나 있는데요

각각의 모서리 4부분을 point로 하나씩 찍지 않고, 사각형을 전체 선택하여 한번에 4군데의 포인트 점을 찍을수 있는 리습이나 명령어는 없나요?

여기저기 뒤져봐도 못찾아서 질문드려요^^;

공유

    관련 있는 질문들

    2 답변

    1. aalan

    2. 그 사각형이 폴리선인가여? 라인인가여? ^^
      폴리선이면, 즉 rectangle 이면 …

      (defun c:ptt()
        (setvar “pdmode” 3)
        (if (setq ss (ssget (list (cons 0 “LWPOLYLINE”))))
          (progn
            (setq doc (vla-get-activedocument (vlax-get-acad-object)))
            (setq mspace (vla-get-modelspace doc))
            (setq index 0)
            (repeat (sslength ss)
              (vla-startundomark doc)
              (setq e (ssname ss index))
              (setq obj (vlax-ename->vla-object e))
              (setq vtxlist (vlax-safearray->list (vlax-variant-value (vla-get-coordinates obj))))
              (setq count 0)
              (repeat (/ (length vtxlist) 2)
                (setq ptx (nth count vtxlist))
                (setq pty (nth (1+ count) vtxlist))
                (vla-addpoint mspace (vlax-3d-point (list ptx pty)))
                (setq count (+ count 2))
              )
              (setq index (1+ index))
              (vla-endundomark doc)
            )
          )
        )
      )
      (vl-load-com)
      (prompt “n명령어 [ PTT ]”)
      (princ)

      • 0

    3. 뒤늦게야 확인해보고 테스트해보았습니다..
      너무 잘되네요 감사드립니다

      아참, 혹시 라인일경우에도 부탁드려도 될까요? LWPOLYLINE 을 라인으로 바꾸어보았으나 작동이 되질않네요^^;; 번거롭게 해드려서 죄송합니다.

      • 0