캐드 분류
오토캐드 선 기준으로 분할 리습을 찾고 있습니다.
컨텐츠 정보
- 177 조회
- 1 댓글
- 0 추천
- 0 비추천
-
목록
본문
사선으로 된 선을 기준으로 수직의 선을 분할하려고 합니다.
trim 으로 사용 시 사진 상 아래처럼 여러개를 복사해서 잘라야 하는 번거로움이 있습니다,
break 는 수평, 수직이어야 멀쩡하게 잘리더라구요..
리습이 있는건가요?
아니면 명령어가 있는건가요?
관련자료
댓글 1
dhL님의 댓글
(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) )
