Tin:merge

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


機能
tinEname TinSurface エンティティに otherTin のTinSurface エンティティをマージする


引数
  • tinEname : TinSurface エンティティの ename または vla-object
  • otherTin : マージする TinSurface エンティティの ename または vla-object


戻り値
マージ成功なら T、それ以外は nil


  • メモ :
    • マージされても otherTin の エンティティは消去またはクリアされない。
    • tinEname、otherTin は重なってなくてもマージされる。


サンプル

(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) ))
(setq tin2 (tin:createTin '(0 0 0) '(100 100 100) 1000))
(tin:addpoints tin2 '((0 0 0) (5 5 1) (10 10 2) (80 20 7) (90 90 8) (90 70 10)))
(tin:merge tin tin2)
T

関連事項