・ 指定されたオブジェクトを囲むボックスの 2 点を取得

GetBoundingBox はActiveXのメソッドです
これを Lispから使えるようにコーディングしてみました
当然、事前に (vl-load-com) は必須です

(defun Jof_boundingbox (en ;図形名
			  / minpt maxpt)
    (vla-getboundingbox (vlax-ename->vla-object en) 'minpt 'maxpt)
    (if (and minpt maxpt)
      (list (vlax-safearray->list minpt) (vlax-safearray->list maxpt))
      nil
      )
    )