Tin:raisesurface

提供:GizmoLabs - だいたい CAD LISP なサイト
2022年10月22日 (土) 12:29時点におけるGizmon (トーク | 投稿記録)による版
構文
(Tin:raisesurface tinEname delta )


機能
tinEname TinSurfaceエンティティを指定されたデルタ数だけ上昇させる(Z方向に移動させる)。


引数
  • tinEname : TinSurface エンティティの ename または vla-object
  • delta  : TinSurface を上昇させる量の実数。負数または0のときもある。


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


メモ

tin:getclosestpoint 関数も参照


サンプル
(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:raiseSurface tin 11.29) ; TinSurface全体を11.29 上昇させる。
(tin:raiseSurface tin -11.29) ; TinSurface全体を -11.29 上昇させる。

関連事項