3D 객체 기준점에 의한 정렬..

(defun c:test( / _Midpt _Bound-cp s1 s2)
 (vl-load-com)
 (defun _Midpt (p1 p2) (mapcar ‘(lambda (x) (* x 0.5)) (mapcar ‘+ p1 p2)))
 (defun _Bound-cp (ob / minp maxp)
  (vlax-method-applicable-p ob ‘getboundingbox)
  (vla-getboundingbox ob ‘minp ‘maxp)
  (apply ‘_Midpt (mapcar ‘vlax-safearray->list (list minp maxp)))
 )
 (and
  (setq s1 (entsel “n움직일 객체 선택:”))
  (setq s2 (entsel “n센터를 참조할 객체 선택:”))
  (
   (lambda (lst / cp)
    (setq cp (mapcar ‘vlax-3d-point (mapcar ‘_Bound-cp lst)))
    (vla-move (car lst) (car cp) (cadr cp))
   )
   (mapcar ‘vlax-ename->vla-object (mapcar ‘car (list s1 s2)))
  )
 )
 (princ)
)
리습으로 간단히?? ^^

=작업내용=
명령: vpoint

현재 뷰 방향:  VIEWDIR=0.0000,0.0000,1.0000
관측점 지정 또는 [회전(R)] <나침판과 삼각대 표시>: -1,-1,1
모형 재생성 중.

명령: pl
PLINE
시작점 지정:
현재의 선 폭은 0.0000임
다음점 지정 또는 [호(A)/반폭(H)/길이(L)/명령 취소(U)/폭(W)]: 50

다음점 지정 또는 [호(A)/닫기(C)/반폭(H)/길이(L)/명령 취소(U)/폭(W)]: 50

다음점 지정 또는 [호(A)/닫기(C)/반폭(H)/길이(L)/명령 취소(U)/폭(W)]: 50

다음점 지정 또는 [호(A)/닫기(C)/반폭(H)/길이(L)/명령 취소(U)/폭(W)]: c

명령: extrude

현재 와이어프레임 밀도:  ISOLINES=4
돌출할 객체 선택: 1개를 찾음

돌출할 객체 선택:

돌출의 높이 지정 또는 [방향(D)/경로(P)/테이퍼 각도(T)]: 50

명령: z
ZOOM
윈도우 구석을 지정, 축척 비율 (nX 또는 nXP)을 입력, 또는
[전체(A)/중심(C)/동적(D)/범위(E)/이전(P)/축척(S)/윈도우(W)/객체(O)] <실시간>: w

첫 번째 구석을 지정: 반대 구석 지정:
명령: l
LINE 첫 번째 점 지정: mid
<-
다음 점 지정 또는 [명령 취소(U)]: mid
<-
다음 점 지정 또는 [명령 취소(U)]:
명령: c
CIRCLE 원에 대한 중심점 지정 또는 [3점(3P)/2점(2P)/Ttr – 접선 접선 반지름(T)]:
원의 반지름 지정 또는 [지름(D)]: d
원의 지름를 지정함: 30

명령: extrude

현재 와이어프레임 밀도:  ISOLINES=4
돌출할 객체 선택: 1개를 찾음

돌출할 객체 선택:

돌출의 높이 지정 또는 [방향(D)/경로(P)/테이퍼 각도(T)] <-50.0000>: 100

명령: m
MOVE
객체 선택: 반대 구석 지정: 2개를 찾음

객체 선택:
기준점 지정 또는 [변위(D)] <변위>: 두 번째 점 지정 또는 <첫 번째 점을 변위로 사용>: @0,0,25

명령: *취소*