XiCAD & etc...

함수 설명

객체의 사각 테두리 좌표를 반환

구성

(xi:Boundingbox  obj)

    obj : vla-object

반환 : 사각형 좌표 리스트

예제)

(if 
   (and
      (setq sel (entsel "\n 테두리 좌표를 얻을 객체 선택: "))
      (setq ent (car sel))
   )
   (xi:Boundingbox (vlax-ename->vla-object ent))
)

반환:

((-42000.0 0.0) (0.0 0.0) (0.0 29700.0) (-42000.0 29700.0))

참고

UCS 좌표계에서 테두리 좌표를 반환하고자 할 때는...

;; xi_acDoc 변수의 정의는 (xi:StartS) 에 들어 있음
(defun c:xxx ( / sel ent )
   (xi:StartS)
   (if 
      (and
         (setq sel (entsel "\n 테두리 좌표를 얻을 객체 선택: "))
         (setq ent (car sel))
         (setq pts (xi:UcsBoundingbox (vlax-ename->vla-object ent) xi_acDoc))
      )
      (princ pts)
   )
   (xi:EndS)
)