홈/ 질문/Q 113670
다음
진행 중
Lv.0
등록일: 2022-03-05T09:58:09+09:00 카테고리:

객체(블록)을 표준좌표로 이동 리습 부탁드립니다.

안녕하세요.


리습 제작을 부탁드리고자 글 올립니다.



사진을 보시면 3개의 객체가 있습니다(블록으로 되어있습니다)

이 3개를 캐드의 원점 즉, 표준좌표로 이동을 원합니다.



혹시 시간 되시는 분이 계시면 작성 부탁 좀 드리겠습니다.

죄송합니다



 

공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.0

      제가 쓰던 정리 리습에서 수정해봤습니다

      이동할 객체 1개 또는 한 묶음 단위로 선택 하셔야 합니다
      ;———————————————————
      ;; By. Bee누
      (defun C:XY (/ ss entname vlentname hrp hrpx hrpxl hrpy hrpyl llp llpx llpy llpxl llpyl llp1 hrp1 pt di pt1 cxy xy)
      (setvar “cmdecho” 0)
      (setq ss (ssget))
      (setq n 0)
      (repeat (sslength ss)
      (setq entname (ssname ss n))
      (setq vlentname (vlax-ename->vla-object entname))
      (vla-getboundingbox vlentname ‘minp ‘maxp)
      (setq hrp (vlax-safearray->list maxp))
      (setq hrpx (car hrp))
      (setq hrpxl (cons hrpx hrpxl))
      (setq hrpy (cadr hrp))
      (setq hrpyl (cons hrpy hrpyl))
      (setq llp (vlax-safearray->list minp))
      (setq llpx (car llp))
      (setq llpxl (cons llpx llpxl))
      (setq llpy (cadr llp))
      (setq llpyl (cons llpy llpyl))
      )
      (setq llpxl (vl-sort llpxl ‘<))
      (setq llpyl (vl-sort llpyl ‘<))
      (setq hrpxl (vl-sort hrpxl ‘>))
      (setq hrpyl (vl-sort hrpyl ‘>))
      (setq llp (list (nth 0 llpxl) (nth 0 llpyl)))
      (setq hrp (list (nth 0 hrpxl) (nth 0 hrpyl)))
      (setq cxy (polar hrp (angle hrp llp) (*(distance hrp llp)0.5)))
      (setq xy (list 0 0))
      (setq os_m (getvar “osmode”))
      (setvar “osmode” 0)
      (command “move” ss “” cxy xy)
      (setvar “osmode” os_m)
      (while (autoxy) )
      (princ)
      )
      ;———————————————————
      ;auto wa
      (defun autoxy (/ ss entname vlentname hrp hrpx hrpxl hrpy hrpyl llp llpx llpy llpxl llpyl llp1 hrp1 pt1 cxy xy)
      (setvar “cmdecho” 0)
      (setq ss (ssget))
      (setq n 0)
      (repeat (sslength ss)
      (setq entname (ssname ss n))
      (setq vlentname (vlax-ename->vla-object entname))
      (vla-getboundingbox vlentname ‘minp ‘maxp)
      (setq hrp (vlax-safearray->list maxp))
      (setq hrpx (car hrp))
      (setq hrpxl (cons hrpx hrpxl))
      (setq hrpy (cadr hrp))
      (setq hrpyl (cons hrpy hrpyl))
      (setq llp (vlax-safearray->list minp))
      (setq llpx (car llp))
      (setq llpxl (cons llpx llpxl))
      (setq llpy (cadr llp))
      (setq llpyl (cons llpy llpyl))
      )
      (setq llpxl (vl-sort llpxl ‘<))
      (setq llpyl (vl-sort llpyl ‘<))
      (setq hrpxl (vl-sort hrpxl ‘>))
      (setq hrpyl (vl-sort hrpyl ‘>))
      (setq llp (list (nth 0 llpxl) (nth 0 llpyl)))
      (setq hrp (list (nth 0 hrpxl) (nth 0 hrpyl)))
      (setq cxy (polar hrp (angle hrp llp) (* (distance llp hrp)0.5)))
      (setq xy (list 0 0))
      (setq os_m (getvar “osmode”))
      (setvar “osmode” 0)
      (command “move” ss “” cxy xy)
      (setvar “osmode” os_m)
      )
      • 0

    3. 감사합니다. 작업할때 시간 단축이되어 좋은 리습입니다

      • 0