안녕하세요.
평소처럼 일을 하던중에 갑자기 떠올라서 질문드립니다..
사진과 같이 모형을 사각 중심에 배치하여 양끝 치수가 동일하고 상하치수가 동일하게 배치하는 작업을 하던중 이것도 분명 리습으로 구현이 될것같아서..
혹시 알고 계신분이 계시다면 도움을 요청드리고 싶어서 글을 올립니다..
이 작업이 저에게 제일 시간 소비가 많이 되는 작업이라 꼭 리습으로 된다면 좋을거같습니다 ㅠㅠ
꼭 블록이 아니여도 됩니다..
어차피 나중엔 블록을 깨기 때문에 상관없는데 중심에만 들어간다면 ㅠㅠ
고수분들의 답변을 기다립니다.. 부탁드립니다..
감사합니다… 감사합니다…
어떤것을 먼저 선택해도 되나 움직이고 싶은 객체를 먼저 선택하시면 됩니다
(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)
정말 정말 감사합니다.. 진짜 수야님이 주신 리습하나로 30분 걸리던거 3분만에 작업이 되서 지금까지 뭐했나싶을정도로 현타가 옵니다ㅠㅠ 너무 감사합니다!!! 적게 일하고 많이 버시고 복 많이 받으십시요!!ㅎㅎㅎ
ㅎㅎ 어우 너무 좋은 덕담이십니다 감사합니다 님께도 같은 축복이 함께 하시길