Tingr:setsurfacerule

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(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 : 充填勾配角度


戻り値
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

関連事項