Tin:addpoints

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


機能
引数 Points の点のリストを ename の TinSurface エンティティに追加する。


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


戻り値
追加が成功なら T、それ以外は 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) ))
T

関連事項