Tinvs:createby2surfacesandentityのソースを表示

{{BCAD_LISP_CIVIL}}

; 構文
: (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


* メモ
** midOrdinateDistance は曲線の中点から円弧の中心までの距離で、円弧の膨らみに似ており、一種の公差として使用される。次のサイトを参考 https://civil3dplus.wordpress.com/2012/12/23/surfaces-and-the-mid-ordinate-distance/


; サンプル
<pre class="brush: autolisp;">
(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>
 </pre>

-----
関連事項
* [[tin:createTin]]
* [[tin:addpoints]]
* [[tinvs:createby2surfacesandentity]]
* [[tinvs:createby2surfacesandpoints]]


[[Category:AutoLISP]]
[[Category:BricsCADのLISP]]