Tin:changepointelevations

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


機能
この関数は、tinEname TinSurface エンティティ内の指定された点 points を新しい Z高度 elevations に変更する。


引数
  • tinEname : (ename または vla-object) 問い合わせる TinSurface エンティティ
  • points : 高度を変更する 2D/3D の点リストのリスト
  • elevations : 指定された点の新しい Z 高度の数値のリスト。


戻り値
設定成功なら T、失敗なら nil


  • メモ :

points と elevations は同じ長さのリストでなければならない!(各ポイントに1つのZ高度値)


サンプル

(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:changePointElevations tin '((10 80 5) (50 50 10)) '(7 12))
T

(tin:changePointElevations tin '((10 80 5) (50 50 10)) '(7 12 13))
nil ; 引数リストの長さが違うので nil


関連事項