홈/ 질문/Q 169945
다음
진행 중
AidenJ
Lv.2
등록일: 2022-09-07T03:04:04+09:00 카테고리:

폴리라인 끝에 위치한 블록 반대편 끝으로 이동

  • 캐드 작업중인데, 블록 종류가 여러가지고 그블록들에 각각 폴리라인이 그어져 있습니다.
  • 여기서 문제인데, 그 블록들을 폴리라인의 반대편 끝으로 한번에 이동시키는 리습이나 방법이 있을까요??
  • 블록종류 다양함
  • 폴리라인길이 각각 다름
공유

    관련 있는 질문들

    답변을 남겨주세요

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

    아직 계정이 없으신가요?

    4 답변

    1. aalan
    2. Lv.12

      ;블록을 선택한다.
      ;블록안에 있는 폴리선을 찾고 반대편으로 이동한다.
      (defun C:blockMove()
      (vl-load-com)
      (princ “이동할 블럭을 선택하세요:”)
      (setq ss (ssget ‘((0 . “INSERT”))))
      (repeat (setq n (sslength ss))
      (setq blk (ssname ss (setq n (1- n))))
      (vla-getboundingbox (vlax-ename->vla-object blk) ‘minpt ‘maxpt)

      (setq minP (vlax-safearray->list MinPt))
      (setq maxP (vlax-safearray->list MaxPt))
      (setq midP (list (/ (+ (car minP) (car maxP)) 2) (/ (+ (cadr minP) (cadr maxP)) 2) (/ (+ (caddr minP) (caddr maxP)) 2)) )

      (setq ssPL (ssget “_C” minP maxP ‘((0 . “LWPOLYLINE”))))
      (if (> (sslength ssPL) 0)
      (progn
      (setq ent (ssname ssPL 0))
      (setq entData (entget ent))
      (setq ptlist (mapcar ‘cdr (vl-remove-if-not ‘(lambda (x) (= (car x) 10)) entData)))
      (setq startPt (car ptlist))
      (setq endPt (nth (-(length ptlist) 1) ptlist))

      (if (< (distance midP startPt) (distance midP endPt))
      (vla-move (vlax-ename->vla-object blk) (vlax-3d-point startPt) (vlax-3d-point endPt))
      (vla-move (vlax-ename->vla-object blk) (vlax-3d-point endPt) (vlax-3d-point startPt))
      )
      );progn
      )
      )
      )

      • 2