Tin:merge

提供:GizmoLabs - だいたい CAD LISP なサイト
2022年10月21日 (金) 05:01時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{BCAD_LISP_CIVIL}} ; 構文 : (Tin:merge ''tinEname'' ''otherTin'' ) ; 機能 : tinEname TinSurface エンティティに otherTin のTinSurface エンティティ…」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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

関連事項