Tin:setsurfaceelevation

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(Tin:setsurfaceelevation tinEname elevation)


機能
この関数は、tinEname TinSurfaceエンティティののすべての定義点を elevation の Z 値に設定する。


引数
  • tinEname : TinSurface エンティティの ename または vla-object
  • elevation : 全体に対する固定の Z 高度値の実数。


戻り値
セットできたら T 出来なかったら nil


  • メモ :

tin ファーフェスをフラット化したいときにも使える。


サンプル
(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:setsurfaceelevation tin -20.0) ; TinSurface のすべてのポイントをZ値-20.0に設定
T



関連事項