Vla-getboundingbox

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (vla-getboundingbox vla-object MinPoint MaxPoint)

機能: 指定されたオブジェクトを囲むボックスの 2 点を取得する。

引数

vla-object … ボックスを取得する VLA オブジェクト(すべての図形オブジェクト,、AttributeReference、Dimension）
MinPoint … オブジェクトの境界ボックスの最小点を指定する 3D WCS 座標。バリアント型(3 要素の倍精度浮動小数点数型配列)
MaxPoint … オブジェクトの境界ボックスの最大点を指定する 3D WCS 座標。バリアント型(3 要素の倍精度浮動小数点数型配列)

戻り値: nil

サンプル

(defun C:bbox-Test ()
  (vl-load-com)
  (setq obj (vlax-ename->vla-object (car (entsel))))
  (if obj
    (progn
      (vla-getboundingbox obj 'minpt 'maxpt)
      (setq minpt (vlax-safearray->list minpt))
      (setq maxpt (vlax-safearray->list maxpt))
      (setq minpt (list (car minpt) (cadr minpt)))
      (setq maxpt (list (car maxpt) (cadr maxpt)))
      (setq str (strcat
	  "Minimum Point X: " (rtos (car minpt) 2 16)
	  "、Y: " (rtos (cadr minpt) 2 16) "\n"
	  "Max Point X: " (rtos (car maxpt) 2 16)
	  "、Y: " (rtos (cadr maxpt) 2 16)
	  ))
      (alert str)
    )))