Tingr:setsurfacerule

提供:GizmoLabs - だいたい CAD LISP なサイト
2022年10月6日 (木) 08:08時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{BCAD_LISP_CIVIL}} ; 構文 : (Tingr:setsurfacerule ''grading'' ''surface'' ''gradingEntity'' ''cutSlope'' ''fillSlope'') ; 機能 : TinSurface エンティテ…」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(Tingr:setsurfacerule grading surface gradingEntity cutSlope fillSlope)


機能
TinSurface エンティティ,refEntity を輪郭,cutSlope 角度,fillSlope 角度を使用してグレーディング TinGrading エンティティを定義する。


引数
  • grading : TinGrading の ename または vla-オブジェクト。
  • surface: グレーディングを定義するターゲット表面エンティティ (他の TinSurface エンティティ)のename または vla-オブジェクト。
  • gradingEntity: グレーディングを定義する参照エンティティ(任意の曲線エンティティ)の ename または vla-オブジェクト。
  • cutSlope: カットスロープの角度
  • fillSlope : Fillスロープの角度


戻り値
T or nil


  • メモ
    • グレーディングエンティティを作成した後、完全にパラメータ化する前に(tingr:setsloperuletingr:setsurfacerule を参照)、BricsCADコマンドラインに無害な警告メッセージが表示されることがある。


サンプル
(vl-load-tin)
(setq grading (tingr:createTinGrading '(0 0 0) '(100 100 100) 100))
(tin:addpoints grading '((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 surface (tin:createTin '(0 0 0) '(100 100 100) 100))
(tin:addPoints surface '((20 20 12) (60 20 12) (60 50 12) (20 50 12)))
(setq refEntity (entlast))
(Tingr:setsurfacerule grading surface refEntity 0.25 0.35)
T

関連事項