Tin:getclosestpoint

提供:GizmoLabs - だいたい CAD LISP なサイト
2023年1月28日 (土) 08:41時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(Tin:getclosestpoint tinEname point )


機能
この関数は、point で指定された2D/3D点に最も近い tinEname TinSurface 3d 定義点を返す。


引数
  • tinEname : (ename または vla-object) 問い合わせる TinSurface エンティティ
  • point : 最も近い実TinSurface定義点を探索する 2D または 3D の点リスト。


戻り値
point に最も近い 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 niar-pt (tin:getclosestpoint tin '(45 45 8)))
(50.0 50.0 10.0)


関連事項