Tin:movepoints

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


機能
tinEname TinSurface エンティティの fromPoint を toPoint に移動する。


引数
  • tinEname : TinSurface エンティティの ename または vla-object
  • fromPnts : 移動される点の 2D/3D点リストのリスト
  • toPnts : 移動先の点の 2D/3D点リストのリスト


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


  • メモ :
    • fromPnts と toPnts 両方の点リストは同じ点数でなければならない。
    • fromPnts の点は、TinSurfaceの実定義点でなければならない(幾何学的許容範囲内)。
    • fromPnts の各点は,toPnts の同じインデックスにある点に対応する(1対1の関係)。
    • tin:movepoint 関数も参照。


サンプル
(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:movepoints tin '((10 70 5)(75 45 5)) '((10 80 5)(85 50 5)))
T

(tin:movepoints tin '((10 80 5)(85 50 5))  '((10 70 5)(75 45 5)))
T

関連事項