Tinvs:getboundingpolygon

BricsCADのLISP - Tin+Civil関数 - AutoLISP Home - AutoLISP 目次 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (Tinvs:getboundingpolygon tinEname )

機能: tinEname TinVolumeSurface エンティティに関連付けられた、バウンディング/クリッピングポリゴンを返す。

引数

tinEname : TinVolumeSurfaceエンティティの ename または VLAオブジェクト。

戻り値: (2D/3D点の) 点のリスト、または NIL

サンプル

(vl-load-tin)
(setq tin (tin:createTin '(0 0 0) '(100 100 100) 1000))
(tin:addpoints tin '((10 80 5) (50 50 10) (10 10 2) (80 20 7) (70 60 3) (40 70 10) (25 25 6) (55 55 2) (75 45 5) ))

; 適当にクリッピング用のエンティティ作ってクリッピングしてから
(setq tinvol (tinvs:createBySurfaceAndEntity  tin  bcTinVolumeToDepth  -5  (entlast)  0.2))
(Tinvs:getboundingpolygon  tinvol)
((116.539316599172 117.77919383521 0.0) (156.640087197868 105.227326615293 0.0) (171.474112094134 45.8912270302312 0.0) (98.1190439257876 30.731179608773 0.0) (89.805469533375 98.5438648488441 0.0) (116.539316599172 117.77919383521 0.0))