Tinvs:createby2surfacesandentity

提供:GizmoLabs - だいたい CAD LISP なサイト
2023年1月28日 (土) 08:52時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(Tinvs:createby2surfacesandentity tinEname1 tinEname2 clipEnt midOrdinateDist )


機能
tinEname1 と tinEname2 の TinSurface エンティティ、および clipEnt クリッピングエンティティから TinVolumeSurface を作成し、 midOrdinateDist 平滑化によってラスタライズする。


引数
  • tinEname1 : 最初の TinSurface エンティティのename または VLAオブジェクト。
  • tinEname2  : 2つ目の TinSurface エンティティのename または VLAオブジェクト。
  • clipEnt : クリッピング エンティティの ename または VLAオブジェクト。
  • midOrdinateDist : 滑らかさの実数。


戻り値
TinVolumeSurface エンティティの ename または nil



サンプル
(vl-load-tin)
(setq tin1 (tin:createTin '(0 0 0) '(100 100 100) 1000))
(tin:addpoints tin1 '((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 '(100 100) '(200 100 100) 1000))
(tin:addpoints tin2 '((10 80 25) (50 50 30) (10 10 22) (80 20 27) (70 60 23) (40 70 40) ))

; 適当にクリッピング用のエンティティを作ってから
(tinvs:createby2surfacesandentity   tin1  tin2  (entlast)  0.2)
<Entity name: 492fb560>
 

関連事項