Tinc:createbreaklinebypoints

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

関連事項