블록을 사각 중심에 배치 할 수 있는 리습이 있을까요?
컨텐츠 정보
- 59 조회
- 3 댓글
- 0 추천
- 0 비추천
- 목록
본문
안녕하세요.
평소처럼 일을 하던중에 갑자기 떠올라서 질문드립니다..
사진과 같이 모형을 사각 중심에 배치하여 양끝 치수가 동일하고 상하치수가 동일하게 배치하는 작업을 하던중 이것도 분명 리습으로 구현이 될것같아서..
혹시 알고 계신분이 계시다면 도움을 요청드리고 싶어서 글을 올립니다..
이 작업이 저에게 제일 시간 소비가 많이 되는 작업이라 꼭 리습으로 된다면 좋을거같습니다 ㅠㅠ
꼭 블록이 아니여도 됩니다..
어차피 나중엔 블록을 깨기 때문에 상관없는데 중심에만 들어간다면 ㅠㅠ
고수분들의 답변을 기다립니다.. 부탁드립니다..
감사합니다… 감사합니다…
lsp동일 치수
리습
배치
블록
오토캐드
중심
관련자료
수야12님의 댓글
어떤것을 먼저 선택해도 되나 움직이고 싶은 객체를 먼저 선택하시면 됩니다
(defun c:ff(/ ss1 ss2 p1 p2)
(setq ss1(ssget “:S”))
(setq ss2(ssget “:S”))
(setq p1(ks_Bnd (ssname ss1 0)) p2(ks_Bnd (ssname ss2 0)))
(vlax-invoke (vlax-ename->vla-object (ssname ss1 0)) ‘move p1 p2)
(princ)
)
(defun ks_Bnd(e / p)
(vla-GetBoundingBox (vlax-ename->vla-object e) ‘MinPt ‘MaxPt)
(setq p(ks_midpt (vlax-safearray->list MinPt) (vlax-safearray->list MaxPt)))
p
)
(defun ks_midpt (p1 p2)
(mapcar ‘(lambda (x1 x2) (/ (+ x1 x2) 2.0)) p1 p2)
)
(vl-load-com)