홈/ 질문/Q 102910
다음
진행 중
Lv.0
등록일: 2014-12-10T19:50:19+09:00 카테고리:

닫힌 폴리라인의 최고, 최저, 좌측, 우측 끝 포인트를 얻을수 있을까요?

닫힌 폴리라인으로 그려진 형상이 있을때
R값이든 포인트든 현재 보이는 2D UCS 상에서
제일 좌측에 위치한 값과 우측에 위치한 값
최상단과 최하단의 포인트들을 얻어오는 방법이 있을까요?

공유

    관련 있는 질문들

    2 답변

    1. aalan

    2. 빠른 답변과 완벽한 답변 감사드립니다.
      이걸 가지고 생각했던걸 만들어봐야겠습니다.

      거듭 감사드립니다. ^^

      • 0

    3. (defun c:test( / se en ent pt maxx minx maxy miny minxp maxxp minyp maxyp)
       (if (setq sel (entsel “n폴리선 선택:”))
        (progn
         (setq en (car sel) ent (entget en))
         (foreach e ent
          (if (= (car e) 10)
           (progn
            (setq pt (trans (cdr e) 0 1) x (car pt) y (cadr pt))
            (if (or (null minx) (< x minx))
             (setq minx x minxp pt)
            )
            (if (or (null miny) (< y miny))
             (setq miny y minyp pt)
            )
            (if (or (null maxx) (> x maxx))
             (setq maxx x maxxp pt)
            )
            (if (or (null maxy) (> y maxy))
             (setq maxy y maxyp pt)
            )      
           )
          )
         )
         (
          (lambda (vs)
           ;최하단 : minyp, 최상단 : maxyp, 제일 좌측 : minxp, 제일 우측 maxxp
           (foreach p (list minxp maxxp minyp maxyp)
            (setq p (trans p 1 0))
            (grvecs
             ‘(6 (1 -1) (-1 1) (-1 -1) (1 1))
             (list
              (list vs 0.0 0.0 (car p))
              (list 0.0 vs 0.0 (cadr p))
              (list 0.0 0.0 vs 0.0)
              (list 0.0 0.0 1.0 0.0)
             )
            )
           )
          )
          (* (/ (getvar “VIEWSIZE”) (cadr (getvar “SCREENSIZE”))) 10)
         )   
        )
       )
       (princ)
      )

      • 0