Tinc:createbreaklinebypoints

提供:GizmoLabs - だいたい CAD LISP なサイト
2023年1月28日 (土) 08:49時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(Tinc:CreateBreaklineByPoints tinEname type points elevType )


機能
tinEname TinSurfaceエンティティに対して、points と elevType を使用した type のブレークライン制約を作成する。


引数
  • tinEname : TinSurface エンティティのename または VLAオブジェクト。
  • type : 作成されるブレークライン制約のタイプ (0 = bcTinBreaklineNomal, 1 = bcTinNonDestructive)
  • points : ブレイクラインの輪郭を定義する点のリスト。
  • elevType : ブレークライン制約のための標高タイプの整数。(1=bcTinElevationMin , 2=bcTinElevationMax, 3=bcTinElevationMid )


戻り値
ID識別子(integer)。失敗した場合は NIL。


  • メモ
    • モードについては、型定数を参照。


サンプル
(vl-load-tin)
(setq tin (tin:createTin '(0 0 0) '(100 100 100) 1000))
(setq points '((30 30)(50 30)(50 50)(30 50)))
(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 constraint (tinc:createBreaklineByPoints tin bcTinBreaklineNomal points bcTinElevationMid))
(setq constraint (tinc:createBreaklineByPoints tin bcTinNonDestructive points  bcTinElevationMid))

(setq constraint (tinc:createBreaklineByPoints tin bcTinBreaklineNomal points bcTinElevationMin))
(setq constraint (tinc:createBreaklineByPoints tin bcTinNonDestructive points  bcTinElevationMin))

関連事項