프로그램
캐드 분류

블록을 사각 중심에 배치 할 수 있는 리습이 있을까요?

컨텐츠 정보

  • 57 조회
  • 3 댓글
  • 0 추천
  • 0 비추천
  • 목록

본문

안녕하세요.

평소처럼 일을 하던중에 갑자기 떠올라서 질문드립니다..

 

1721787293911.png

17217872948375.png

17217872967575.png

사진과 같이 모형을 사각 중심에 배치하여 양끝 치수가 동일하고 상하치수가 동일하게 배치하는 작업을 하던중 이것도 분명 리습으로 구현이 될것같아서..

혹시 알고 계신분이 계시다면 도움을 요청드리고 싶어서 글을 올립니다..

이 작업이 저에게 제일 시간 소비가 많이 되는 작업이라 꼭 리습으로 된다면 좋을거같습니다 ㅠㅠ

꼭 블록이 아니여도 됩니다..

어차피 나중엔 블록을 깨기 때문에 상관없는데 중심에만 들어간다면 ㅠㅠ

고수분들의 답변을 기다립니다.. 부탁드립니다..

감사합니다… 감사합니다…

lsp
동일 치수
리습
배치
블록
오토캐드
중심

관련자료

댓글 3

수야12님의 댓글

ㅎㅎ 어우 너무 좋은 덕담이십니다 감사합니다 님께도 같은 축복이 함께 하시길

창조어색당님의 댓글

정말 정말 감사합니다.. 진짜 수야님이 주신 리습하나로 30분 걸리던거 3분만에 작업이 되서 지금까지 뭐했나싶을정도로 현타가 옵니다ㅠㅠ 너무 감사합니다!!! 적게 일하고 많이 버시고 복 많이 받으십시요!!ㅎㅎㅎ

수야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)

여분필드1 여분필드2 여분필드3
전체 7,337 / 11 페이지
번호
제목
이름
알림 0