홈/ 질문/Q 170091
다음
진행 중
익명
등록일: 2022-09-08T16:00:44+09:00 카테고리:

오토캐드 선 기준으로 분할 리습을 찾고 있습니다.

사선으로 된 선을 기준으로 수직의 선을 분할하려고 합니다.

trim 으로 사용 시 사진 상 아래처럼 여러개를 복사해서 잘라야 하는 번거로움이 있습니다,

break 는 수평, 수직이어야 멀쩡하게 잘리더라구요..

리습이 있는건가요?
아니면 명령어가 있는건가요?

공유

    관련 있는 질문들

    답변을 남겨주세요

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

    아직 계정이 없으신가요?

    1 답변

    1. aalan
    2. Lv.12

      (defun c:m1trim( / adoc acsp)
      (vl-load-com)
      (setq adoc (vla-get-activedocument (vlax-get-acad-object)) acsp (vla-get-block (vla-get-activelayout adoc)))
      (setq main_line (car (entsel “n자르는 기준선을 선택하세요 : “)))
      (setq entData (entget main_line))
      (setq pt1 (cdr (assoc 10 entData)))
      (setq pt2 (cdr (assoc 11 entData)))
      (setq ss1 (ssget “F” (list pt1 pt2)))
      (ssdel main_line ss1)
      (setq obj_list (mapcar ‘vlax-ename->vla-object (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss1))) ))
      (setq main_obj (vlax-ename->vla-object main_line))
      (foreach line_obj obj_list
      (setq intPt (vlax-invoke line_obj ‘IntersectWith main_obj acExtendBoth))
      (vla-addline acsp (vlax-3d-point (vlax-get line_obj ‘StartPoint)) (vlax-3d-point intPt))
      (vla-addline acsp (vlax-3d-point intPt) (vlax-3d-point (vlax-get line_obj ‘EndPoint)))
      )
      (mapcar ‘vla-delete obj_list)
      )

       

      • 0