Tinvs:isvolumesurface

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


機能
tinEnameエンティティが有効な TinVolumeSurface エンティティであるかどうかを返す


引数
  • ename : 問い合わせる TinVolumeSurface エンティティの ename または vla-object。


戻り値
有効な TinVolumeSurface エンティティなら T そうでなければ nil。



サンプル
(vl-load-tin)
(setq tin (tin:createTin '(0 0 0) '(100 100 100) 1000))
(tinvs:isvolumesurface tin)
nil ; 有効なTinVolumeSurface  ではないので nil が返る
(tin:addpoints tin '((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) ))
(tinvs:isvolumesurface tin) 
nil ; 有効なTinVolumeSurface  ではないので nil が返る

(tinvs:createBySurfaceAndEntity  tin  bcTinVolumeToDepth  -5  (entlast)  0.2)
(tinvs:isvolumesurface tin) 
T ; 有効な TinVolumeSurface が作成されたので T が返る

; Tin サーフェスを削除してから
(tinvs:isvolumesurface tin) 
nil ; TinサーフェスとともにTinVolumeSurface エンティティもなくなったので nil が返る

関連事項