Tin:addpoint

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(Tin:addpoint ename Point )


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


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


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


メモ

TinSurface に多数のポイントを追加する場合、次のようにそのコードの周りにデータベーストランザクションを配置することが推奨される。

(vle-start-transaction)
  (while .... )  ;; たくさんの点追加
(vle-end-transaction)

これにより、全体のパフォーマンスが大幅に向上する(トランザクションが終了するまで、データベースとディスプレイの更新が遅延するため)。 tin:addpoints も参照。


サンプル
(vl-load-tin)
(setq tin (tin:createTin '(0 0 0) '(100 100 100) 1000))
(tin:addpoint tin '((10 80 5))
T

関連事項