Vla-getboundingbox

提供:GizmoLabs - だいたい CAD LISP なサイト
2014年11月7日 (金) 12:53時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-getboundingbox ''vla-object'' ''MinPoint'' ''MaxPoint'') ; 機能 : 指定されたオブジェクトを囲むボックスの 2 点を取...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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)
    )))


関連事項