Tin:removepoints

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


機能
引数 Point の点を ename の TinSurface エンティティに削除する。


引数
  • ename : TinSurface エンティティの ename。
  • Points : 削除する 2D/3D の点リストのリスト。


戻り値
削除が成功なら T、それ以外は nil


メモ

tin:removepoint も参照。


サンプル
(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) ))
(tin:removepoints tin '((10 80 5) (10 10 2)))
T


関連事項