Tinvs:getdepthorelevation

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(Tinvs:GetDepthOrElevation tinEname )


機能
tinEname TinVolumeSurface エンティティの基準高さを返す。


引数
  • tinEname : TinVolumeSurface エンティティの ename または VLAオブジェクト。


戻り値
基準となる高さの実数、または 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) ))
(setq boundary '((18.1 20.9)(60.7 20.9)(60.7 54.8 1) (18.1 54.8)))
(tinvs:createby2surfacesandpoints tin1 tin2 boundary)
(Tinvs:getdepthorelevation (entlast))
0.0

関連事項